Hallo zusammen,
ich benutze in meinem Programm die units aus dem
Delphi HH Kit. Wenn man das Programm beendet, wird in MainForm.FormDestroy das Objekt mHelp (mHelp: THookHelpSystem) mittels mHelp.Free freigegeben. Dabei entsteht konstant immer eine Wartezeit von 1 Sekunde in THookHelpSystem.Destroy.
Habt Ihr das Problem auch schon beobachtet und vielleicht einen Workaround gefunden?
Danke+Gruß,
Christoph
Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject);
begin
...
{Hook - verwendet HH_FUNCS.pas}
mHHelp := hh_funcs.THookHelpSystem.Create(chmFile, '', htHHAPI);
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
...
if Assigned(mHHelp) then begin
// Hilfe freigeben
mHHelp.Free; // das hier dauert konstant eine Sekunde!
end;
end;