Controllare il lancio di un'applicazione

[FilSWS]

Ciao, ho scoperto sta mattina che la commessa non molto esperta di un negozio lancia durante il lavoro per 10-15 volte l'applicazione che ho installato su quel pc senza accorgersi che è semplicemente ridotto ad icona creando non pochi problemi.

Come posso controllare se il programma è già in esecuzione e quindi bloccare o far apparire il programma già lanciato?

Grazie

[alka]

Leggi questo articolo (in lingua inglese).

Ciao!

[mondobimbi]

io procedo in questa maniera.
Ogni volta che la applicazione viene lanciata controlla per prima cosa se esiste un certo file nascosto. Se questo non esiste lo crea e lancia l'applicazione, se invece esiste la applicazione non parte. Quando la applicazione viene chiusa il file nascosto viene cancellato.
ciao
sergio

[alka]

Originariamente inviato da mondobimbi
Ogni volta che la applicazione viene lanciata controlla per prima cosa se esiste un certo file nascosto. Se questo non esiste lo crea e lancia l'applicazione, se invece esiste la applicazione non parte. Quando la applicazione viene chiusa il file nascosto viene cancellato.

E' un metodo rischioso: se l'applicazione viene terminata in modo anomalo, è necessario rimuovere il file manualmente per farla ripartire.

E' sufficiente usare un mutex attribuendogli un nome con la funzione API CreateMutex e verificarne la presenza in memoria quando si avvia l'applicazione; se non è possibile prendere il possesso del mutex, significa che l'applicazione è già attiva.

Ciao!

[mondobimbi]

Originariamente inviato da alka
E' un metodo rischioso: se l'applicazione viene terminata in modo anomalo, è necessario rimuovere il file manualmente per farla ripartire.

direi fastidioso se va in crash, tuttavia mozilla e firefox funzionano così.
ciao

[alka]

Originariamente inviato da mondobimbi
direi fastidioso se va in crash

Più che fastidioso, alquanto problematico.

Originariamente inviato da mondobimbi
tuttavia mozilla e firefox funzionano così.

Sono applicazioni progettate per altre piattaforme diverse da Windows, pertanto non possono fare affidamento sui mutex (in quanto non esistono o sono differenti in altre piattaforme diverse da Windows).

Per un'applicazione Delphi, si tratta di un'inutile complicazione rispetto all'uso del mutex che, in certi casi, come nell'uso dell'installer Inno Setup, consente di verificare se un'applicazione è aperta.

Si tratta in sostanza di una metodologia pratica standard e comunemente seguita, pertanto efficace e vivamente consigliata rispetto ad altre soluzioni, almeno in Windows (che è l'ambiente trattato da Delphi).

Ciao!

[antovar]

Io ho risolto lo stesso problema usando la FindWindow() inserendola nel sorgente principale.

program .....
uses ......


const
ProgName = 'Nome etichetta del form principale';
ClassProg='Nome classe del form principale';
var
MyProg: THandle;

Myprog := FindWindow(ClassProg, ProgName) ; //Cerca l'handle dell'applicazione
If MyProg <> 0 Then //impedisce che l'applicazione venga avviata più volte
begin
Application.MessageBox('Applicazione già avviata.... ', ProgName, MB_OK + MB_ICONINFORMATION);
Application.Terminate;
end else begin
//inserire qui il restante codice per l'inizializzazione dell'applicazione
.....
....

[alka]

Originariamente inviato da antovar
Io ho risolto lo stesso problema usando la FindWindow() inserendola nel sorgente principale.

Sì, è un'altra delle alternative, anche se si corre maggiormente il rischio di incontrare un'altra applicazione dalle medesime caratteristiche. Pur essendo una soluzione viabile, il mutex risulta in generale quella più "sicura".

P.S.: non chiamare il metodo Application.Terminate, non è necessario (peraltro, l'applicazione non è ancora stata avviata in quel punto, quindi non ottieni alcun effetto). In generale, affinché un'applicazione non entri in esecuzione, è sufficiente che il programma principale (la parte compresa tra begin...end nel file DPR) si concluda senza chiamare il metodo Application.Run. E' la forma corretta per eludere l'avvio dell'applicazione senza correre il rischio di generare errori che si adatta a tutti i casi in assoluto.

Ciao!