قفل کردن سیستم

[dokneh]

procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); //Locks keys like ctrl+alt+del, ctrl+esc, alt+tab, windows start button key...
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;