为什么不能拒绝重复执行程序？

Question

program CaiWu;uses
  Forms, Windows,
  UMain in 'UMain.pas' {Main},
  UPass in 'UPass.pas' {Pass},
  UDM_CaiWu in 'UDM_CaiWu.pas' {DM_CaiWu: TDataModule},
  UKeMu in 'UKeMu.pas' {KeMu},
  UOperationer in 'UOperationer.pas' {Operationer},
  UCL_Input in 'UCL_Input.pas' {CL_Input},
  UCL_Edit in 'UCL_Edit.pas' {CL_Edit},
  UHSItem in 'UHSItem.pas' {HSItem},
  UCL_Browser in 'UCL_Browser.pas' {CL_Browser},
  UrptCL_Browser in 'UrptCL_Browser.pas' {rptCL_Browser},
  UCL_Budget in 'UCL_Budget.pas' {CL_Budget},
  UrptCL_Class in 'UrptCL_Class.pas' {rptCL_Class};
{$R *.res}begin
  if FindWindow('TMain','Main')=0 then
  begin
    Application.Initialize;
    Application.Title := '出纳信息管理系统2003';
    Application.CreateForm(TMain, Main);
    Application.CreateForm(TDM_CaiWu, DM_CaiWu);
    Pass:=TPass.Create(nil);
    Pass.ShowModal;
    Pass.Update;
    Application.Run;
  end;
end.

Answer 1

有个api叫CreateM?????建立互斥,,,,

Answer 2

CreateMutex,OpenMutex, ReleaseMutex

Answer 3

begin
  Application.Initialize;
  Application.Title:='ddd';
  CreateMutex(nil,LongBool(0),'ddd');
  if GetLastError()<>ERROR_ALREADY_EXISTS then
  begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.