Re:폴더..잠금에대한..거.......(ESC,Ctrl,Alt,Del 제어 방법)

[웅거리]

alt,ctrl,시작 버튼을 제어하는 소스입니다.
폼하나와 버튼 두개를 생성합니다.
참고로 API텍스트 뷰어에 보면 SystemParametersInfo함수와
SPI_SCREENSAVERRUNNING 상수를 볼수 있습니다.

Option Explicit

Private Const SPI_SCREENSAVERRUNNING = 97&
Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Command1.Caption = "Disabled"
Command2.Caption = "Enabled"
End Sub

Private Sub Form_Unload(Cancel As Integer)
'CTRL+ALT+DEL 와ALT+TAB 가 다시 작동할 수 있도록 한다.
Command2_Click
End Sub

Private Sub Command1_Click()
'ctrl+alt+del 작동 안함
'alt+tab 작동 안함
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _
blnOld, 0&)
End Sub

Private Sub Command2_Click()
'ctrl+alt+del 작동 함
'alt+tab 작동 함
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _
blnOld, 0&)
End Sub

위의 소스는 ctrl+alt+del 과 alt+tab 과 ctrl + esc 와 시작버튼을 못쓰게 만듭니다.
하지만 윈98에서 밖에 쓸수가 없습니다.
윈2000 이상 버젼에서는 SystemParametersInfo함수가 작용하지 않습니다.
윈2000에서 컴퓨터 사용을 제어 하고 싶으시면 키보드 제어 보다는 마우스를 제어하는 것이
더 효율적일 겁니다.
마우스 제어하는 방법은 나중에 올리겠습니다. ^^;
그럼 공부 열심히 하세요.



--------------------- [원본 메세지] ---------------------
특정폴더..지정은..어떻케..해야해요~?

그리고..그창이뜨면..ESC나..Ctrl+Alt+delete로..해서..닫기..이런것도..못하게..할수는..없나요?