Einzelnen Beitrag anzeigen

mlspider

Registriert seit: 22. Okt 2003
Ort: Berlin
661 Beiträge
 
Delphi 7 Enterprise
 
#1

Vor dem Beenden eine Aktion ausführen?

  Alt 26. Nov 2004, 14:37
Ich habe eine Applikation, die minimiert als Tray Icon gestartet wird und nur darauf wartet, bis es durch das Beenden von Windows geschlossen wird.

Dabei soll das Programm beim schießen, einen Registerschlüssel modifizieren. Ich habe es wie folgt versucht:

Delphi-Quellcode:
uses registry;

{$R *.dfm}

var regist : TRegistry;

begin
if Application.Terminated then begin
  regist := TRegistry.Create;
  regist.RootKey := HKEY_CURRENT_USER;
  regist.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
  regist.WriteInteger('DisableTaskMgr', 1);
  sleep(3000);
  end;

end.
Leider ohne Erfolg. Wie könnte man dies anstellen?
Mario
Handbücher haben einen hohen Heizwert!!!

http://geprellte-ebay-kaeufer.de
  Mit Zitat antworten Zitat