Hallo,
hiermit kann man überprüfen ob eines der Programme gestartet worden ist.
Die Units ComObj und
ActiveX werden benötigt!
Delphi-Quellcode:
function IsProgActive(sClassName:
String): Boolean;
var
ClassID: TCLSID;
Unknown: IUnknown;
begin
try
ClassID := ProgIDToClassID(sClassName);
Result := GetActiveObject(ClassID,
nil, Unknown) = S_OK;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsProgActive('
Word.Application')
then
ShowMessage('
Word läuft');
if IsProgActive('
Excel.Application')
then
ShowMessage('
Excel läuft');
if IsProgActive('
Outlook.Application')
then
ShowMessage('
Outlook läuft');
if IsProgActive('
Access.Application')
then
ShowMessage('
Access läuft');
if IsProgActive('
Powerpoint.Application')
then
ShowMessage('
Powerpoint läuft');
end;
Grüsse, Daniel
