Evitar multiples instancias de nuestra aplicacion

[[rretamar]]

Existe un componente para Lazarus llamado Uniqueinstance que hace lo mismo. Lo interesante de este componente es que funciona tanto en Windows como en Linux. Aquí se explica cómo instalarlo y usarlo:

http://wiki.freepascal.org/UniqueInstance/es

Este componente ya viene preinstalado en la distribución Lazarus Codetyphon.

[Armando Montiel]

Excelente!!! Es justo lo que andaba buscando para implementarlo en mi sistema...
Muchas gracias...

[chenech]

Por si alguien lo nececita en C++ Builder, añadir en la función main:

  const char UnicoNombre[] = "MiPrograma";
  HANDLE hHandle = CreateMutex(NULL, TRUE, UnicoNombre);
  if(ERROR_ALREADY_EXISTS == GetLastError()) {
    ShowMessage("El programa ya está en ejecución");
    return(1);
  }