title image


Smiley API: Aktuelle und vorige Instanz schließen
Hi,



ich habe folgendes Problem:



Wenn ich mein Programm starte, weiß ich ja, ob noch eine vorige Instanz lief (App.PrevInstance = True). Die aktuelle Instanz kann ich auch ganz leicht beenden mit z.B. End.

Aber wie schließe ich die erste Instanz ?



Danke und Gruß,

Appi



Folgendes funzt nicht:

CurHwnd = GetWindow(hWnd, GW_HWNDFIRST) 'API-Funktion

Do While CurHwnd 0

' Fenstertitel ermitteln

sTitel = Space$(255)

Length = GetWindowText(CurHwnd, sTitel, Len(sTitel))

sTitel = Left$(sTitel, Length)



' Fenstertitel prüfen

If InStr(sTitel, App.Title) > 0 Then

lCount = lCount + 1

lOldHwnd(lCount) = CurHwnd 'Handle im Array speichern

MsgBox "Ich werde bereits ausgeführt!" + Str(CurHwnd)

'Exit Do

End If



' Handle des nächsten Fensters

' 0, wenn kein weiteres Fenster vorhanden

CurHwnd = GetWindow(CurHwnd, GW_HWNDNEXT)

Loop



'Beide Programme beenden

lret = SendMessage(lOldHwnd(1), WM_SYSCOMMAND, SC_CLOSE, LNULL)

lret = SendMessage(lOldHwnd(2), WM_SYSCOMMAND, SC_CLOSE, LNULL)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: