Hallo,
xxx := unassigned;
brachte leider keinen Erfolg.
Für den KillTask fehlen wohl einige Eintragungen in den uses, z.Bsp. kann ich nichts mit " TProcessEntry32 " anfangen.
"Refactoring/
Unit suchen" hat nichts gefunden.
Vielleicht hilft es ja wenn ich mal die Öffnen Prozedur poste.
Delphi-Quellcode:
procedure TExcelImport.OeffneDatei(Dateiname: string);
begin
try
FExcel:= CreateOleObject('Excel.Application');
FExcel.Visible := false;
FExcel.WorkBooks.Open(Dateiname);
FSheet := FExcel.Workbooks[1].WorkSheets[1];
except
on E:EOleException do
begin
FExcel.Quit;
raise EFileAccessException.Erzeugen('Die Datei konnte nicht geöffnet werden: ' + E.ClassName);
end;
end;
end;
Oliver