alt+tab,Ctrl+Esc 비활성화SystemParametersInfo

[올란도]

1. 모듈에 다음의 API Function 과 상수를 선언합니다.

Public Declare Function SystemParametersInfo Lib "user32" Alias _
              "SystemParametersInfoA" _
              (ByVal uAction As Long, _
               ByVal uParam As Long, _
               ByVal lpvParam As Any, _
               ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

2. 폼에 두개의 버튼을 만들고 다음과 같이 코딩하십시요.
   (Command1 은 Disable, Command2 는 Enable 시키는 버튼입니다.)

Private Sub Command1_Click()
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0)
End Sub

Private Sub Command2_Click()
    Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0)
End Sub

[꼭미남강유]

실행해도 다 되는데요.. XP Pro 입니다.