Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

(zum 3.) prüfen, ob gestartet ?
Autor: Axel
Datum: 23.11.01 16:43
Hallo Ihr, Hallochen Cyberlord, so richtig wills nicht klappen mit dem Skript. Es ging um die Überprüfung, ob meine eigene Anwendung (z.B.: "Example.exe") schon gestartet ist oder nicht. Ist sie gestartet soll meine Anwendung in der Fensterposition an vorderster Stelle erscheinen. Ich bekomme zwar keine Fehlermeldung, aber wenn ich in der Form_Load nicht eine "END"-Anweisung mit einbringe, wird trotzdem eine zweite Anwendung gestartet. Lordchen, hast Du noch eine geniale Idee. Mit der FindWindow-Funktion kam ich auch nicht weiter. Hier nochmal mein bisheriges Skript: Option Explicit Private Declare Function GetActiveWindow Lib "user32" () 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 Private Const hWnd_TOPMOST = -1 Private Const SWP_NoMove = &H2 Private Const SWP_NoSize = &H1 '---------------------------------------------------------------------------------------------- Private Sub Form_Load() If App.PrevInstance Then MsgBox "Programm wurde bereits gestartet!" SetMyWinToFront True 'Fenster sichtbar machen End 'wenn ich diese Anweisung nicht drin habe wird eine zweite Anwendung gestartet Else MsgBox "Erster Start ..." End If End Sub '---------------------------------------------------------------------------------------------- Private Function SetMyWinToFront(ByVal bMode As Boolean) As Boolean If bMode Then SetWindowPos Me.hWnd, GetActiveWindow, Me.Top, Me.Left, 0, 0, SWP_NoMove Or SWP_NoSize Else SetWindowPos Me.hWnd, hWnd_TOPMOST, Me.Top, Me.Left, 0, 0, SWP_NoMove Or SWP_NoSize End If End Function '---------------------------------------------------------------------------------------------- Bitte helft mir weiter, denn das zweite WE scheint in die Hose zu gehen. cu, Axel

(zum 3.) prüfen, ob gestartet ?	69	Axel	23.11.01 16:43
Re: (zum 3.) prüfen, ob gestartet ?	253	Dieter	23.11.01 18:21
Sorry - da sind ja noch Fehler im Code	264	Dieter	23.11.01 18:22
Aber jetzt - der vollständige Code	297	Dieter	23.11.01 19:21
Re: Aber jetzt - der vollständige Code	45	Axel	24.11.01 19:41

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