كود تعطيل alt+tab ,alt+ctrl+delete

السلام عليكم و حمة الله و بركاته

الأعضاء الأكارم كود لتعطيل

alt+tab,alt+ctrl+del

var

Form1: TForm1;

MyW: Word = 0;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@MyW,0);

Label1.Caption:='mode - disable';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@MyW,0);

Label1.Caption:='mode - enable';

end;