[VB6] Far partire un eseguibile sono quando lo stesso non e' caricato

[Rabinhood]

Abbiamo fatto un programmino in cui lanciamo un programma (free.exe) con un tasto (es. A). Quando pero' si schiaccia la A per qualche motivo ne apre un altro. Mi servirebbe una stringa dove se e' gia aperto il free.exe la A non deve lanciare nulla.
Ho cercato ma non ho trovato nulla che possa risolvere questo problema.

[vonkranz]

Originariamente inviato da Rabinhood
Abbiamo fatto un programmino in cui lanciamo un programma (free.exe) con un tasto (es. A). Quando pero' si schiaccia la A per qualche motivo ne apre un altro. Mi servirebbe una stringa dove se e' gia aperto il free.exe la A non deve lanciare nulla.
Ho cercato ma non ho trovato nulla che possa risolvere questo problema.

se free.exe e' un programma che hai fatto tu, basta che gestisci App.PrevInstance all'apertura

se invece non e' un tuo prg, basta che usi una variabile statica che imposti a true la prima volta che lanci Free.exe.

[Rabinhood]

Free.exe e' un nome fittizio. Questo programma non e' stato fatto da me. Come posso fare per impostarlo a true? Nel senso che non dovrebbe esserci comunque un controllo se il processo e' attivo?

[vonkranz]

Originariamente inviato da Rabinhood
Free.exe e' un nome fittizio. Questo programma non e' stato fatto da me. Come posso fare per impostarlo a true? Nel senso che non dovrebbe esserci comunque un controllo se il processo e' attivo?

L'avevo capito che era fittizio
Se il prg non e' fatto da te, non puoi farci nulla; puoi fare una cosa del tipo:

Private Sub Command1_Click()
Static attivo As Boolean
If Not attivo Then
   Shell (nomeprogramma)
   attivo = True
End If
End Sub

[macse]

'in module
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (lpClassName As Any, ByVal lpWindowName As String) As Long

'in form
hApp = FindWindow(ByVal 0&, "Titolo")
If hApp = 0 Then
rets = Shell("c:\free.exe")
End If


NB il campo dove ho scritto "Titolo" deve contenere esattamente quello che viene scritto nella ControlBar (quella blu in alto in ogni form)
Ad Esempio se esegui la calcolatrice avrà come Caption del form il valore "Calcolatrice"

Se viene trovata una finestra con la caption che hai specificato la funzione (API) ti restituisce un Long con l'Handle dell'applicazione
ovviamente se restituisce 0 significa che non ha trovato nessuna form ( anche invisibile ) con quella Caption.