Delphi - Ejecutar una sola vez

Como puedo impedir que mi aplicacion se ejecute mas de una vez?

gracias

puedes usar algun componente para evitar las instancias de tu aplicación o algo como esto:

añadir
forms,
windows,
dialogs


var
Instancia: THandle;

begin
Instancia := CreateMutex(Nil, True, 'appMutex');
if Instancia <> 0 then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Application.MessageBox('Imposible abrir la aplicación, existe otra en ejecución actualmente', 'Error', MB_ICONERROR + Mb_Ok);
CloseHandle(Instancia);
Halt;
end;
end;
...
resto del codigo
end;

esto va en el codigo del proyecto
(Project -> View Source)

a mi me funciona
cualquier duda, aqui estamos
suerte

la suite JVCL tiene un componente q al ponerlo sobre la mainform y activarlo impide lanzar otras instancias de la misma aplicacion
la lista gratuita de los LMD (lmdinnovative.com) tiene un componente similar..

ya te dieron un codigo, pero se puede hacer con mutex, eventos, etc.
mi preferido es usando segmentos compartidos, pero delphi no lo soporta :P
en segmentos compartidos puedes leer variables de otra instancia del programa, esto lo puedes lograr usando CreateFileMapping y demas... en delphi.