Vor dem Beenden eine Aktion ausführen?

[Nightshade]

Versuchs mal im finalization Abschnitt :

Delphi-Quellcode:

var
  Form1: TForm1;
  regist: TRegistry;

implementation

{$R *.dfm}


initialization
  //  Wird vorher ausgeführt
finalization
  //  Wird nachher ausgeführt
  regist := TRegistry.Create; 
  regist.RootKey := HKEY_CURRENT_USER; 
  regist.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true); 
  regist.WriteInteger('DisableTaskMgr', 1);
  regist.free;


end.