Bei manchen Programmen will man verhindern, dass diese beendet werden. Eine Methode, um dies zu bewerkstelligen, ist, ganz einfach alle Windows-Tastenkombinationen zu sperren wie Strg+Alt+Entf oder Alt+Tab. Dazu kann man dem System vortäuschen, der Bildschirmschoner würde laufen. Denn dann sind soweiso alle diese Kombinationen gesperrt. Um dies vorzutäuschen, bedienen Sie sich folgender API-Funktion:

Ihre Bewertung:   1 2 3 4 5

Bewertung dieses Tipps:

(bewertet von insgesamt 41 Besuchern)

Um diese API-Funktion in eigenen Projekten nutzen zu können, muss sie zuerst im Kopf der Datei deklariert werden. Ich empfehle Ihnen, diese Deklaration in einem Modul vorzunehmen, da die Funktion dann später im gesamten Projekt zur Verfügung steht. Andernfalls, wenn Sie lieber eine Form zum Deklarieren verwenden möchten, müssen Sie jedes Vorkommen von "Public" in "Private" ändern:

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

Nun müssen Sie nur noch die Funktion mit den richtigen Parametern aufrufen. Und die sehen wie folgt aus:

Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, 0, 0) 'Tastenkombinationen deaktivieren

Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, 0, 0) 'Tastenkombinationen aktivieren

---

Quellen: SHADOWare.de

©2000 by SHADOWare, Thomas Bachem