Thema: Delphi AV beim beenden

Einzelnen Beitrag anzeigen

Meta777

Registriert seit: 8. Sep 2004
Ort: Magdeburg
248 Beiträge
 
Delphi 10 Seattle Enterprise
 
#9

Re: AV beim beenden

  Alt 18. Sep 2006, 22:17
Hallihallo....

Wir haben nun folgende Lösung umsetzen müssen:

Delphi-Quellcode:
function daForceSelfTerminate: Boolean;
//2006_09_14 Code der nach daForceSelfTerminate() steht wird nicht ausgeführ
//wenn daForceSelfTerminate() TRUE zurück gibt...
var
  h: Cardinal;
begin
  Result := False;
  h := OpenProcess(PROCESS_TERMINATE, False, GetCurrentProcessId);
  if (h <> 0) then
    Result := TerminateProcess(h, 0);
end;
Allerdings gefällt mir diese Lösung nicht wirklich...
Ich habe Bedenken dass es unter älteren Windows-Versionen (Win9x/ME) vielleicht Probleme mit der Speicherbereinigung geben könnte?
Unter NT/2K/XP hoffe ich das so etwas nicht der Fall ist.
Könntet ihr mir jedoch sagen ob meine Befürchtungen begründet sind oder eher nicht?

Vielen Dank

Shalom & Gottes Segen

PS: Das Ausschalten der Bereichsprüfung hatte unangenehme folgen, da einige Routinen (unter anderen Hagen's DEC und Zeichenmethoden) nicht mehr liefen... Also haben wir die Bereichprüfung wieder deaktivieren müssen...
  Mit Zitat antworten Zitat