poll.dpr

来自「用delphi 编写的 验证码识别程序」· DPR 代码 · 共 38 行

program poll;

uses
  Forms,
//  Windows,
  Main in 'Main.pas' {frmLyPoll},
  AdvOcr in 'AdvOcr.pas',
//  HTTPtask in 'HTTPtask.pas',
//  HTTPutil in 'HTTPutil.pas',
  Post in 'Post.pas',
  Define in 'Define.pas';

{$R *.res}

VAR
  MutexHandle:  THandle;

begin
  // Use Mutex to only allow one copy of XXXXX to be in memory at a time
//  MutexHandle := 0;
//
//  TRY
//    MutexHandle := CreateMutex(NIL, TRUE, 'TfrmLyPoll');
//    IF GetLastError = ERROR_ALREADY_EXISTS
//    THEN BEGIN
//      SetForegroundWindow(FindWindow('TfrmLyPoll', NIL));
//      CloseHandle (MutexHandle)
//    END
//    ELSE BEGIN
      Application.Initialize;
      Application.CreateForm(TfrmLyPoll, frmLyPoll);
      Application.Run;
//    END;
//  FINALLY
//    ReleaseMutex(MutexHandle);
//  END;
end.