[risolto]programma già aperto

[dex]

Codice: [Seleziona]

PRIVATE FUNCTION MultiIstanza() AS Boolean
DIM Risposta AS String
 
  SHELL "ps aux | grep " & Application.Name & ".gambas" & " | grep -wv grep | wc -l" TO Risposta
 
  RETURN IIf(Val(Risposta) > 1, TRUE, FALSE)
         
END

Basta chiamare questa funzione: se è vera il programma è già in esecuzione.

grazie raga, risolto

[vuott]

Segnalo anche questa discussione:

http://www.gambas-it.org/smf/index.php?topic=2056.0