Einzelnen Beitrag anzeigen

stonimahoni

Registriert seit: 12. Okt 2004
146 Beiträge
 
Delphi 7 Professional
 
#1

excel.exe aus delphi raus schliessen

  Alt 14. Dez 2004, 08:39
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 :

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 :

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
Carsten
  Mit Zitat antworten Zitat