Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

fenster minimieren
Autor: BigDeal
Datum: 11.12.03 16:01
Hi leute Ich hab ein kleines Programm das ich aufrufe wenn ein bestimmtes programm läuft das Problem ist wenn ich alle Programme minimiere und dann das eine Pragramm wieder maximiere ist meine Form weg und ich weis nicht warum. Hier ist mein Source Private Declare Function GetCursorPos Lib "user32" (lpPoint As _ POINTAPI) As Long Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint _ As Long, ByVal yPoint As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias _ "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal _ cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias _ "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _ As Long, lParam As Any) 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 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Private Const EM_SETPASSWORDCHAR = &HCC Private Type POINTAPI X As Long Y As Long End Type Dim bRunning As Boolean 'Zeigt an, ob das Programm läuft Public Sub getWindowUM() Dim P As POINTAPI Dim lo As Long Dim str As String 'Formular immer oben halten SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE 'Form1.Visible = false 'Bis das Programm beendet wird weitermachen... bRunning = True Do While Not bRunning = False 'Cursorposition auslesen GetCursorPos P 'Das entsprechende Fenster finden 'lo = WindowFromPoint(P.X, P.Y) lo = WindowFromPoint(0, 0) DoEvents 'Den Titel auslesen str = String(GetWindowTextLength(lo), Chr$(0)) GetWindowText lo, str, 100 If InStr(str, "MCS") Then Form1.Visible = True Label1.Caption = ABNummer + " " + Klartext DoEvents Else Label1.Caption = "" Form1.Visible = False DoEvents End If 'Den Passwortcharacter entfernen SendMessage lo, EM_SETPASSWORDCHAR, 0, "" DoEvents Loop ich bitte um Hilfe weis jemand woran das liegt.

fenster minimieren

542

BigDeal

11.12.03 16:01

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