Aplicacion En Ejecucion

[juanjo_m_m]

probe y trate pero no pude, al final encontre este articulo y me sirvio gracias de todas maneras..

Otro ejemplo, mediante un semáforo




Pon esto en el OnCreate de tu form:


procedure TMainForm.FormCreate(Sender: TObject);
var Sem : THandle;
begin
Sem := CreateSemaphore(nil,0,1,'PROGRAM_NAME');
if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle( Sem );
ShowMessage('This program is already running.'+
'Este programa ya se está ejecutando...');
Halt;
end;
end;