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

Материал из DRKB

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

uses
  Registry;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
    WriteInteger('NoClose', 1);
    CloseKey;
    Free;
  end;
end;


Source: http://delphiworld.narod.ru/
ID: 01679