Läuft Word, Excel, Outlook, Access oder Powerpoint?

[Daniel B]

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