Как отследить из приложения - что на машине запущен Excel?

← →
СержК (2004-10-20 16:33) [0]

← →
Гаврила © (2004-10-20 16:36) [1]

GetActiveOleObject - проверка на существование

← →
Digitman © (2004-10-20 16:40) [2]

> СержК

в общем случае - никак
в частном случае - получив из реестра полный путь к исп.файлу Ехела и, перечислив работающие процессы, обнаружиьть средь них искомый

← →
СержК (2004-10-20 16:42) [3]

Уточню вопрос.
Мне нужно знать, что Excel не запущен не только из моей программы, но вообще не запущен на машине.

← →
Digitman © (2004-10-20 16:48) [4]

> Уточню вопрос.
> Мне нужно знать, что Excel не запущен не только из моей
> программы, но вообще не запущен на машине.

грош цена этому "уточнению"

Ехел-процесс либо работает (в одном или более экземплярах) либо не работает в принципе ... и не важно откуда он "запущен"

← →
Pentium133 © (2004-10-20 17:06) [5]

MessageDlg(mtConfirmation, "Запущен ли Exel?" [mbYes, mbNo], 0)

> в общем случае - никак

Ну не самый общий случай... Но все же...

ExcelApplication1:TExcelApplication; ExcelApplication1.ConnectKind:=ckRunningInstance; try ExcelApplication1.Connect; ExcelApplication1.Disconnect; showmessage("Ексель работает"); except showmessage("Ексель не работает "); end;

Так как-то можно еще через createOleObject сделать, но боюсь ошибиться.

Да ладно вам:

uses ComObj;
..

function TAForm.IsXLSActive : Boolean;
var
Xls : Variant;
begin
Xls := GetActiveOleObject ("Excel.Application");
Result := not VarIsNull(Xls);
end;

procedure TAForm.Button1Click(Sender: TObject);
begin
try
if IsXLSActive then ShowMessage("Is active")
except
ShowMessage("Not active")
end;
end;

Как отследить из приложения - что на машине запущен Excel? Найти похожие ветки