Отключить команду Завершение работы

Previous  Top  Next

    
 

 

Code:

uses

Registry;

...

procedure TForm1.Button1Click(Sender: TObject);

var

a: TRegistry;

begin

a := TRegistry.create;

with a do

begin

   RootKey := HKEY_CURRENT_USER;

   OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);

   WriteInteger('NoClose', 1);

   CloseKey;

   Free;

end;

end;

 

 

©Drkb::01679

http://delphiworld.narod.ru/

DelphiWorld 6.0