Отключить команду Завершение работы
Материал из 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