[risolto]programma già aperto

[dex]

devo fare in modo che in fase di avvio il programma deve controllare che non sia già aperto.

mi succede che alcuni utenti non si rendono conto di aver ridotto il programma ad icona e ne aprono uno nuovo, questo mi crea casini sul database.

[fsurfing]

sicuramente esiste una funzione apposita, ma ora non mi ricordo quale
in alternativa puoi scrivere una riga in settings o in un file di testo che all'avvio andrai a controllare per sapere se il programma è attivo o meno.
naturalmente devi ricordarti di rendere disattiva la righa alla chiusura

[pastrank]

Beh, la cosa piu' semplice e' creare un file all'avvio e da cancellare alla fine, poi, all'avvio di un'altra istanza, ti basta controllare se c'e'.

[dex]

avevo già pensato al file e poi scartato.

scrivere un file in fase di avvio non sempre si è sicuri che venga cancellato, se salta la corrente oppure se il pc viene spento senza chiudere il programma si rischia che il file resti ed impedisca l'avvio del programma.

mi servirebbe qualcosa nella ram tipo una variabile o una funzione attiva, in questo modo quando si spegne il pc si cancella tutto.

[fsurfing]

scrivere un file in tmp?

[fsurfing]

prova a guardare le funzioni desktop  e application

[fsurfing]

desktop.find(nome applicazione) ti ritorna un array di puntatori alle applicazioni se l' array contiene un solo puntatore l' applicazione aperta è una se sono di + le applicazioni aperte sono almeno due

[Ceskho]

scrivere un file in tmp?

E' una delle migliori soluzioni questa poichè tmp viene svuotato dal sistema sempre e comunque....

[leo72]

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.

[fsurfing]

xchè scomodare il terminale se cè desktop.find ? secondo me dovremmo smettere di usare shell per qualsiasi cosa

[Ceskho]

xchè

[Will32]

Tanto SHELL in più o in meno che cambia ? 

[Ceskho]

Tanto SHELL in più o in meno che cambia ? 

Cambia che richiamare un comando da SHELL significa poi saperne gestire gli output di errore.
Coloro che usano SHELL molto spesso lanciano il comando senza controllarne la riuscita e questo provoca instabilità nel software che si crea....richiamare la shell significa richiamare un altro programma con tutti i problemi annessi e connessi....

[fsurfing]

[off topic]

xchè
Adirato

sono d'accordo che è meglio scrivere in italiacano senza abbreviazioni ma io  permetto ed uso : xchè e cmq!
[/off topic]

[luca1202]

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.

perdonate l'intrusione ma la questione interessa anche a me
ho utilizzato la funzione che hai scritto per inserirla in Jungle!! grazie mille