scrivere un file in tmp?
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
xchè>:(
Tanto SHELL in più o in meno che cambia ? :D
xchèsono d'accordo che è meglio scrivere in italiacano senza abbreviazioni ma io permetto ed uso : xchè e cmq! :P
Adirato
perdonate l'intrusione ma la questione interessa anche a me ;DCodice: [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.
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.