OleContainer, Com object

[Shuraken]

type
  TFrOle = class(TOleContainer);
  
procedure TForm1.Button1Click(Sender: TObject);
var
  OleApplication, OleObject: Variant;
begin
if OpenDialog1.Execute then
  begin
    OleApplication := CreateOleObject('Excel.Application');
    OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, false);
    FOleObject := GetActiveOleObject('Excel.Application');
    OleContainer1.SetFocus;
    TFrOle(OleContainer1).DblClick;
  end;
end;

Принцип такой: запускаю отдельное Excel-приложение, после чего загружаю в OleContainer свой файлик и открываю на редактирование, все просто. Но тут возникает одна интересная проблема. Если в системе уже был запущен какой-нибудь Excel-документ, то OleContainer "прилепляется" к нему, не обращая внимание на мое запущенное приложение и получается, что я не могу получить доступ уже к ранее запущенному файлу, и из-за этого дальше OleContainer начинает глючить. Отказаться от OleContainer-а нельзя (просто примите на веру) и поэтому возникает вопрос(ы).
1. Можно ли каким нибудь образом "указать" OleContainer-у на мое запущенное приложение, чтобы он работал с ним и не трогал остальные документы?
2. Если нет, то можно ли каким-нибудь образом при запуске Excel-я (CreateOleObject('Excel.Application ') указать системе, во сколько он запущен (и таким образом "обмануть" OleContainer)?

[mihali4]

А вы не пробовали просмотреть каталог Delphi7\Demos\ActiveX ?
Мне показалось, что там есть очень удачные реализации применения OleContainer-а.
Может быть, и вам поможет в решении вашей проблемы.

[Shuraken]

Спасибо, но это те же самые действия, что и я использовал. Я ищу что-то свыше этих действий. OleContainer запускает приложение в своем окне. Мне надо указать какое именно приложение надо запустить, ну, я открываю документ Excel обычным образом. В TaskManager-е появляется процесс Excel. Дальше я через Com запускаю еще один процесс. И дальше я хочу связать именно этот процесс с документом, который я запускаю через OleContainer, чтобы тот запущенный процесс и OleContainer-процесс ничего друг о друге не знали. Попробуйте сами сперва открыть какой-нибудь Excel документ, и после этого выполнить код в первом сообщении и Вы сами убедитесь, что после этого переключиться на другой документ уже нельзя.

[Stilet]

запускаю отдельное Excel-приложение, после чего загружаю в OleContainer свой файлик и открываю на редактирование, все
просто

А зачам такая морока? Зачем запускать отдельно Эхель?
Мона просто

procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.CreateLinkToFile('Фай лик.xls',false);
end;

[Shuraken]

Так еще раз повторяю, в этом случае при редактировании документа OleContainer "прилепится" к уже запущенному Excel-процессу (если таковой имеется) и заблокирует его, а мне это ну никак не надо, для этого и запускаю отдельно Excel, чтобы "прицепиться" к нему.

[Stilet]

в этом случае при редактировании документа OleContainer "прилепится" к уже запущенному Excel-процессу (если таковой имеется) и заблокирует его

Я конечно не знаю что у тебя за ситуация, но меня никакого приклеивания и блокирования не происходит, поэтому и сказал.

[Shuraken]

Ага... извини, фишку сразу не просек, ну... можно действительно так сделать. Сенкс.