Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hier ein TIPP
Autor: mike
Datum: 23.03.02 01:59
Hallo, hier ein Tipp von http://schittis-page.de: So können Sie die Tastenkombination Strg+Alt+Entf deaktivieren. Hat allerdings den unschönen Nebeneffekt, dass zusätzlich Alt+Tab und Strg+Esc ebenfalls deaktiviert werden ! ERFORDERLICHE OBJEKTE 2 Commandbuttons (Command1, Command2) FORM-CODE: Private 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 Private Sub Strg_Alt_Entf(Status As Boolean) Dim x As Long x=SystemParametersInfo(97, Status, CStr(1), 0) End Sub Private Sub Command1_Click() 'Strg+Alt+Entf deaktivieren Call Strg_Alt_Entf(True) End Sub Sub Command2_Click() 'Strg+Alt+Entf aktivieren Call Strg_Alt_Entf(False) End Sub ------------------- oder so:-------------------------------- Hauptsächlich für Programme, die im Hintergrund laufen sollen, ist es sinnvoll, das Beenden über die Taskliste (Ctrl+Alt+Entf) zu verhindern ! Es ist möglich, dass Ihr Programm erst gar nicht in der Liste erscheint ! ERFORDERLICHE OBJEKTE: 2 Commandbuttons (Command1, Command2) FORM-CODE Private Declare Function GetCurrentProcessId _ Lib "kernel32" () As Long Private Declare Function GetCurrentProcess _ Lib "kernel32" () As Long Private Declare Function RegisterServiceProcess _ Lib "kernel32" (ByVal dwProcessID As Long, _ ByVal dwType As Long) As Long Sub Sichtbar_in_TaskListe(JaNein) Dim p As Long Dim ret As Long If JaNein Then x = 0 Else x = 1 p = GetCurrentProcessId() regserv = RegisterServiceProcess(pid, x) End Sub Private Sub Command1_Click() 'in der Taskliste sichbar Call Sichtbar_in_TaskListe(True) End Sub Private Sub Command2_Click() 'nicht in der Taskliste sichbar Call Sichtbar_in_TaskListe(False) End Sub Private Sub Form_Load() Command1.Caption = "Sichtbar" Command2.Caption = "Unsichtbar" End Sub Um einen ähnlichen Effekt unter Windows NT zu erzielen, können Sie auch die Anweisung App.TaskVisible=False verwenden. Dies bewirkt, dass ein laufendes Programm nicht mehr unter "Anwendungen" sondern unter den "laufenden Prozessen" im Windows NT Task-Manager angezeigt wird. Nachteil daran: Unter Form_QueryUnload kann UnloadMode nicht mehr abgefangen werden, wenn das Programm "abgewürgt" wird. Gruß mike

Taskmanager	88	gorganogan	20.03.02 17:39
Vergiss es ganz schnell (oT)	252	Dieter	20.03.02 19:02
Gleiche Meinung.	232	unbekannt	20.03.02 19:37
Hier ein TIPP	73	mike	23.03.02 01:59
Au Backe. Wenn das Webmasterchen liest.	228	unbekannt	23.03.02 17:37
Re: Au Backe. Wenn das Webmasterchen liest.	49	mike	23.03.02 18:34
Re: Au Backe. Wenn das Webmasterchen liest.	229	unbekannt	23.03.02 18:37
Ja, aber...	45	mike	23.03.02 18:43
Re: Ja, aber...	240	unbekannt	23.03.02 18:51
Das hoff ich (oT)	39	mike	23.03.02 18:56

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