[ImDoode]

Гугл все разрешил.
Решил более нестандартно + без лишних файлов

Код:

var AtomText: array[0..31] of Char;

Код:

procedure LookForPreviousInstance;
var
PreviousInstanceWindow : hWnd;
AppName : array[0..30] of char;
FoundAtom : TAtom;
begin
FoundAtom := GlobalFindAtom(pchar('pekpek2'+Application.Title));
if FoundAtom = 0 then begin
  //WinExec('1.exe', sw_normal);
  FoundAtom := GlobalAddAtom(pchar('pekpek2'+Application.Title));
  Form1.Caption:='pekpek2';
  exit;
  end;

FoundAtom := GlobalFindAtom(pchar('pekpek1'+Application.Title));
if FoundAtom = 0 then begin
  //WinExec('1.exe', sw_normal);
  FoundAtom := GlobalAddAtom(pchar('pekpek1'+Application.Title));
  Form1.Caption:='pekpek1';
end;

end;

Удаление атома:

Код:

GlobalDeleteAtom(GlobalFindAtom((pchar('pekpek1'+Application.Title))));