（Del＋Cｔｒｌ＋Alt）キーを無効にする



■使用するコンポーネント

■使用するAPI関数

■ソースは下記のようになります。

■（Del＋Cｔｒｌ＋Alt）キーと（Alt＋Tab）キーを無効にする処理
procedure TForm1.Button1Click(Sender: TObject);
begin

　//(Del＋Cｔｒｌ＋Alt）キーと（Alt＋Tab）キーを無効にする
　SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

　//有効にする
　SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);

end;




Win32APIのページへ



ホーム PV ランキング