Delphi - File .exe

[pegaso22]

Ciao a tutti,
è possibile [IN DELPHI] non far partire un file .exe, se non è aperto un altro file .exe?
Mi spiego meglio:
io ho il mio file b.exe, che da solo non deve potersi aprire, può andare solo se è stato avviato il file a.exe.
Si può fare?
Come?

[Genius7115]

Si può fare. Ma ti chiedo scusa non ricordo bene come. Devo guardare.

[pegaso22]

ok... aspetto una tua risposta.
Grazie mille.

[alka]

Una "controdomanda": i file eseguibili sono entrambi prodotti da te?

[alka]

In caso negativo:
http://groups.google.it/groups?hl=it...1191bea&rnum=1.

Ciao!

[pegaso22]

Si, sono entrambi prodotti da me.

[Genius7115]

Soluzione raffinata: Utilizzare le API
Soluzione veloce: utilizzare un file di appoggio.

[alka]

Originariamente inviato da pegaso22
Si, sono entrambi prodotti da me.

In tal caso, puoi servirti di un mutex.

I mutex sono una specie di "semafori" usati dai processi come se giocassero a rubabandiera: attraverso un'apposita funzione API, un processo può prenderne il possesso, mentre altri processi, nell'esecuzione della stessa funzione, rimangono bloccati in attesa che la risorsa si liberi, oppure intraprendono altre azioni quando si accorgono che essa è impegnata.

Sono elementi del sistema operativo molto utilizzati quando si lavora con thread separati, assieme ad altre strutture come le Critical Section (sezioni critiche).

Entrambi gli strumenti sono utilizzabili ai massimi livelli in Delphi.

Osserva il codice sorgente modello che segue relativo ad un progetto DPR:

program MyProgram;

uses
  Windows,
  Forms,
  SysUtils,
  ...;

{$R *.res}

var
  MutexHandle: Cardinal;
  
begin
  MutexHandle := CreateMutex(nil, True, 'NomeApplicazione');
  if (MutexHandle <> 0) and (GetLastError = 0) then
  begin
    try
      Application.Initialize;
      Application.Title := 'Titolo';
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    finally
      CloseHandle(MutexHandle);
    end;
  end;
end.

Ovviamente, si tratta solo di uno scheletro di esempio (in base ai file del tuo progetto e alle tue esigenze, occorre alterare la forma del codice).

La funzione CreateMutex viene usata per creare il mutex assegnandoli un nome univoco (NomeApplicazione).

Supponendo che il codice venga inserito in entrambe le applicazioni, quando lanci la seconda ti fallirà la funzione CreateMutex poichè la prima è già in esecuzione (e ha già provveduto ad "impegnare" il mutex); il mutex viene impegnato fino al suo rilascio che avviene tramite la chiamata alla funzione API CloseHandle.

In realtà, ci sono moltissimi modi per verificare se un programma esterno è in esecuzione: questo è quello che preferisco dal punto di vista della sicurezza (ad esempio, altri si basano sul titolo o sulla classe di appartenenza della MainForm).

Cerca ulteriori informazioni su Internet se necessario.

Ricorda che dal menu della Guida di Delphi hai accesso anche al file "Windows API SDK", sebbene non sia molto aggiornato; il file contiene le istruzioni per l'uso delle funzioni API incluse quelle che ti ho citato.

Se non trovi informazioni lì, puoi sempre consultare la fonte più autorevole a riguardo: MSDN.

Ciao!

[pegaso22]

Grazie mille, faccio un pò di prove.
Ciao ciao.