Гугл все разрешил.
Решил более нестандартно + без лишних файлов
Код:
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))));