excel.exe aus delphi raus schliessen

**stonimahoni**

hi leute

ich hab mich schon der suche hier bemüht aber nix passendes gefunden daher stelle ich hier mal die frage :

ich exportiere aus meiner anwendung heraus daten nach excel. jetzt würde ich gern prüfen wenn ich die anwendung starte, ob excel - vor allem die excel.exe noch offen ist ( im taskmanager zu sehen )
und wenn ja wie ich den task dann killen kann ?!

im moment habe ich folgende funktion in benutzung :

zusammenfalten · markieren

Delphi-Quellcode:

			function TFormGarantie.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;

und beim aufrufen des formulars folgendes :

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFormGarantie.FormActivate(Sender: TObject);

var

 sClassName: String ;

begin

  if IsProgActive('Excel.Application') then

  begin

     ShowMessage('Excel läuft - bitte schliessen !!');

  end

end;

jemand ne ahnung wie ich das realisieren kann ?
wäre nice

mfg

stoni

excel.exe aus delphi raus schliessen

excel.exe aus delphi raus schliessen

Forumregeln