Как запретить два запуска копии программы

program Project1;
 
uses
  Forms,windows ,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
var
  hwnd: THandle;
 
begin
  hwnd := FindWindow('TForm1', 'Form1');// тупо не запускается 
  if hwnd = 0 then//хоть 0 хоть 1 result =0
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
    SetForegroundWindow(hwnd)
end.
или вот это ( с чем я 4 часа пропарился ))))и тоже самое
 
program Project1;
 
uses
  Forms,  Windows,
  Messages,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
 
var
wnd: HWND;
  copyDataStruct: TCopyDataStruct;
  ParamString: string;
  WParam, LParam: integer;
  begin
 
  wnd:= FindWindow('Form1',nil);
  if Wnd = 0 then begin
  Form1:= TForm1.Create(Application);
  Form1.Show;
  Form1.Update;
 
end;
  Application.CreateForm(TForm1, Form1);
begin
  repeat
  Application.ProcessMessages;
  until Form1.CloseQuery;
 
 Form1.Hide;
  Form1.Free;
end;
  Application.Run;
 
    CopyDataStruct.lpData := PChar(ParamString);
    CopyDataStruct.cbData := Length(ParamString);
    CopyDataStruct.dwData := 0;
    WParam := Application.Handle;
    LParam := Integer(@CopyDataStruct);
 
    SendMessage(wnd, WM_CopyData, WParam, LParam);
    Application.Terminate;
 
end.

program Project1;
 
uses
  Forms,windows ,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
var
  hwnd: THandle;
 
begin
  hwnd := FindWindow('TForm1', 'Form1');// тупо не запускается 
  if hwnd = 0 then//хоть 0 хоть 1 result =0
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
    SetForegroundWindow(hwnd)
end.

program Project1;
 
uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {MySuperMainForm};
 
{$R *.res}
var
  hwnd: THandle;
 
begin
  hwnd := FindWindow('TMySuperMainForm', 'MySuperMainForm');// тупо не запускается
  if hwnd = 0 then//хоть 0 хоть 1 result =0
  begin
    Application.Initialize;
    Application.CreateForm(TMySuperMainForm, MySuperMainForm);
  Application.Run;
  end
  else
    SetForegroundWindow(hwnd)
end.