Ich hab es gerade mal getesten, bei mir wird der Prozess korrekt beendet.
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
begin
try
try
ExcelObj := CreateOleObject('
Excel.Application');
ExcelObj.Visible := false;
ExcelObj.DisplayAlerts :=false;
except
on e:
exception do
begin
ShowMessage(e.
Message + #13#10 + '
Kein Excel installiert?');
exit;
end;
end;
finally
close_excel;
//Klappt
end;
close_excel;
//Klappt
end;
Läuft er denn zu diesem Zeitpunkt bei dir in den Quit und Unassigned rein?