[リストへもどる]
一括表示

投稿時間:2003/10/19(Sun) 12:42
投稿者名:ゆうや
Eメール:
URL :
タイトル:
Alt+Tab、Ctrl+Alt+DelをXPで無効に
こんにちは。わからないことがあるので投稿してみました。
Win98SecondEdition と WinXP で VB6.0 SP5 を使っています。
Alt+Tab、Ctrl+Alt+DelをXP上で無効にしたいと思っています。
ただ、Win98SecondEditionではできたのですが。
WinXPで同じプログラムを実行すると、実行直後は無効にできるのですが、
Windowsキーを押したら無効化が解除されてしまうのです。
これはこういうものなのでしょうか?それとも何か違うところがあるのでしょうか?
どなたかご存知の方、教えて下さい。よろしくお願いします。
以下のコードでやってみました。

'Alt/Tab、Ctrl/Alt/Delを設定する(標準モジュールで宣言)
Public Declare Function SystemParametersInfo Lib "User32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub main()

Dim ret As Long                 '関数戻り値
Dim bln_value As Boolean        '一時使用Boolean値

Const SPI_SCREENSAVERRUNNING = 97               '定数宣言

    Form1.Show

    '★Alt/Tab、Ctrl/Alt/Delのロック設定
    ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, bln_value, 0&)

End Sub

投稿時間:2003/10/19(Sun) 16:29
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Alt+Tab、Ctrl+Alt+DelをXPで無効に
Windows2000やXPでは有効にならないようです。
元々 SPI_SCREENSAVERRUNNING 自体使用が許されていないようですが。
(システム専用で、アプリから使用しない)

投稿時間:2003/10/19(Sun) 17:17
投稿者名:Say
Eメール:
URL :
タイトル:
Re: Alt+Tab、Ctrl+Alt+DelをXPで無効に
Ctrl+Alt+Delに関して言うならば、
XPのことはよく知りませんが、NT系では
GINAがSAS(Ctrl+Alt+Del)を監視していますので、
GINAを自作してシステム登録することで無効化可能です。
XPにもmsgina.dllがあるところからすると同様ではないでしょうか?

かなり危険行為になりますので、「GINA SAS」などでNet検索で
自分で調べて、理解した上で試してみてください。

経過/結果報告をしてくれるとうれしいです。