grabtest.dpr

来自「AirtoFly.com中的长途有关信息抓取,并存写在数据库中」· DPR 代码 · 共 29 行

program GrabTest;

uses
  Forms,
  Windows,
  uMain in 'uMain.pas' {frmMain},
  u_Function in 'u_Function.pas';

{$R *.res}

var
  hMutex : Cardinal;

begin 
  hMutex := CreateMutex(nil, False, 'Grab(airtofly.com) 1.0');
  if hMutex <> 0 then
  begin
    if GetLastError = Error_Already_Exists then
    begin
      MessageBox(0, '程序已经运行', '错误', MB_ICONHAND);
      Application.Terminate;
      CloseHandle(hMutex);
    end;
  end;
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.