[Lazarus-es] Evitar abrir la aplicación 2 veces

[José Antonio Cuello]

Tiene buena pinta, en cuanto pueda haré pruebas ... Muchas gracias.

El mié, 23-06-2010 a las 16:59 +0200, lazarus en differware.net escribió:
> Personalmente suelo usar la primera forma en la siguiente manera:
> 
> Program p1;
> 
> [..]
> 
> var Mutex: THandle;
> begin
>    Mutex := CreateMutex(nil, true, 'mimutex');
>    if (Mutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS) then
>    begin
>      // si estoy aqui, es que ya me estaba ejecutando...
>    end else
>    begin
>      // aqui, soy el unico con ese mutex!
>      [..]
> 	codigo de la aplicacion
>      [..]
> 
>      // destruimos el mutex
>      if Mutex<>0 then
>        CloseHandle(Mutex);
>    end;
> end;
> 



________________________________________________________________________

ARTEX TRADING S.A.
José Antonio Cuello Principal