PDA

View Full Version : قفل کردن سیستم



dokneh
چهارشنبه 15 آبان 1387, 23:03 عصر
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;