Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Totale Kontrolle
Autor: Loki
Datum: 19.11.01 16:13
Die beiden Funktionen verhindern, daß der User auf den Tastmanager und die Taskbar zugreifen kann: '-------------------------------------------------------------------- 'taskmanager 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 Const SPI_SETSCREENSAVEACTIVE = 97 '-------------------------------------------------------------------- 'taskbar ausblenden Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Const SWP_SHOWWINDOW = &H40 Private Const SWP_HIDEWINDOW = &H80 '-------------------------------------------------------------------- 'disables Taskmanager ' disable: bState = true ' enable: bState = false '-------------------------------------------------------------------- Function DisableTaskManager(bState As Boolean) Dim x As Long Dim lngWas As Long x = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, bState, lngWas, 0) End Function '-------------------------------------------------------------------- 'Hide/Show Taskbar ' Hide: hide = true ' Show: hide = false '-------------------------------------------------------------------- Public Sub HideTaskbar(hide As Boolean) Dim hWnd As Long hWnd = FindWindow("Shell_TrayWnd", "") If hide = True Then Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Else If hide = False Then Call SetWindowPos(hWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End If End If End Sub mfg Loki

Totale Kontrolle	80	Loki	19.11.01 14:15
Re: Totale Kontrolle	59	Loki	19.11.01 14:20
Re: Totale Kontrolle	240	Gerd	19.11.01 15:16
Re: Totale Kontrolle	65	Loki	19.11.01 16:13
Re: Totale Kontrolle	232	Dieter	19.11.01 21:15
Re: Totale Kontrolle	48	Loki	20.11.01 08:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen