PDA

Vollständige Version anzeigen : Alt+F4 + Strg+Alt+Entf + Alt+Tab sperren!


MarcNesium
04.05.2001, 17:12
weiss jemand den Code, mit denen ich alle diese kombinationen lösche?

Stefan Kulpa
05.05.2001, 05:13
Hallo!

Alt-F4 kannst du im Form_QueryUnload()-Ereignis abfangen. Den Rest wie folgt (jedoch nur unter Windows 9x):

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Option</FONT> <FONT COLOR=#000080>Explicit</FONT>

<FONT COLOR=#000080>Declare</FONT> <FONT COLOR=#000080>Function</FONT> SystemParametersInfo <FONT COLOR=#000080>Lib</FONT> "user32" <FONT COLOR=#000080>Alias</FONT> _
"SystemParametersInfoA" _
(<FONT COLOR=#000080>ByVal</FONT> uAction <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
<FONT COLOR=#000080>ByVal</FONT> uParam <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, _
lpvParam <FONT COLOR=#000080>As</FONT> Any, _
<FONT COLOR=#000080>ByVal</FONT> fuWinIni <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>) <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>Const</FONT> SPI_SCREENSAVERRUNNING = 97&
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Load()

<FONT COLOR=#008000>'// Ctr+Alt+Del sowie Alt+Tab ausschalten (Nur Win9x!)</FONT>
<FONT COLOR=#000080>Dim</FONT> lRes <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> blnOld <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
lRes = SystemParametersInfo(SPI_SCREENSAVERRUNNING, <FONT COLOR=#000080>True</FONT>, blnOld, 0&)

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Unload(Cancel <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>)

<FONT COLOR=#008000>'// Ctr+Alt+Del sowie Alt+Tab wieder einschalten (Nur Win9x!)</FONT>
<FONT COLOR=#000080>Dim</FONT> lRes <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> blnOld <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Boolean</FONT>
lRes = SystemParametersInfo(SPI_SCREENSAVERRUNNING, <FONT COLOR=#000080>False</FONT>, blnOld, 0&)

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></PRE>

Das ganze ist allerdings nicht ganz ungefährlich. Eigentlich wird dem System nur vorgetäuscht, dass ein Bildschirmschoner läuft ...
Das Programm sollte "stabil" genug sein, das "Deaktivieren" durchzuführen, sonst geht's nur noch mit einem Kaltstart weiter ...

Gruß

MarcNesium
05.05.2001, 10:00
Danke, Stefan, hat mir sehr geholfen!