[cyberpablis]

Directamente en el DPR:

Código Delphi [-]
  // Verifico que no exista una instancia previa del programa en ejecución.-
  Application.Title := 'Mi aplicacion';
  if CreateFileMapping($FFFFFFFF, nil, PAGE_READONLY, 0, 32, 'PABLOR_TAGGED') <> 0 then
      if GetLastError() = ERROR_ALREADY_EXISTS then
          begin
          Application.MessageBox('Ya existe una instancia de la aplicación ejecutándose', 'Atención', MB_ICONWARNING);
          ExitProcess(1);
          end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;