Question

DELPHI高手请进！怎样在 delphi中实现屏幕锁定？

Answer 1

直接调用系统命令：
procedure TForm1.Button1Click(Sender: TObject);
var cmdstr:string;
begin
cmdstr:='rundll32.exe user32.dll LockWorkStation';
winexec(PChar(cmdstr),9);
end;