|
发表于 24-10-2006 04:30 PM
|
显示全部楼层
在delphi中可以这样做:
procedure TForm1.FormCreate(Sender: TObject);
var tmp:integer;
begin
tmp := 0;
//屏蔽 Alt-Tab
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0);
//屏蔽 Ctrl-Alt-Del
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0);
end; |
|