Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Rechner oben halten
Autor: nice
Datum: 19.10.05 09:07
Hallo, ich möchte den Windows Rechner (Wissenschaftlich) immer im Vordergrund halten. Den windows Rechner (Standard) kann ich mit nachfolgenden Beschreibung oben halten, aber wenn ich in den wissenschaftlich teil wechsle, bleibt der Rechner nicht immer im vordergrund. Wie kann ich das hinbekommen? Nun der Code für Rechner - Standard : 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 Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long Private Const GW_HWNDNEXT = 2 Public Retval As Long Private Sub Form_Load() ShellTohWnd "c:\windows\system32\calc.exe", 1 Caption = Retval SetWindowPos Retval, -1, 0, 0, 0, 0, 3 Form1.Hide End Sub Public Function ShellTohWnd(ByVal hhwPfad As String, Optional Mode) Dim ProcHWND As Long, ProcHWN As Long, hWndTemp As Long ProcHWND = Shell(hhwPfad, Mode) hWndTemp = FindWindow(vbNullString, vbNullString) Do While hWndTemp <> 0 If GetParent(hWndTemp) = 0 Then Call GetWindowThreadProcessId(hWndTemp, ProcHWN) If ProcHWN = ProcHWND Then Retval = hWndTemp Exit Do End If End If hWndTemp = GetWindow(hWndTemp, GW_HWNDNEXT) Loop End Function Danke für eure Hilfe Gruß Ralph

Rechner oben halten	643	nice	19.10.05 09:07
Re: Rechner oben halten	337	RapID23o5	19.10.05 16:39
Re: Rechner oben halten	370	nice	20.10.05 06:36

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