1 instantie van een programma

[cbhonda]

Ik heb een programma dat serieele communicatie gebruikt, wanneer de gebruiker het programma 2 keer start krijg je dus problemen (poort is al open).
1 is het mogelijk het opstarten van meerdere instanties te voorkomen ?
of
2 beter : is het mogelijk te kijken of er al een instantie draait en zoja die dan te aktiveren, anders het programma gewoon starten.

Applicatie in VB6.0
Draait op pc met NT4.0

 

[rb32]

Dubbel opstarten

Hoi,

Met deze code kun je kijken of het programma al is opgestart.
Zo ja, eindigt het programma, zo niet gaat het gewoon door ...

If App.PrevInstance Then
msg$ = App.Title & " is al opgestart!"
MsgBox msg$, 16
End
End If

 

[cbhonda]

Ok

Bedankt rb32.