dbt3mainproj.dpr

来自「网络游戏神迹脱机外挂PASCAL源码」· DPR 代码 · 共 27 行

program Dbt3MainProj;

uses
  Forms, Windows,
  Dbt3Main in 'Dbt3Main.pas' {FrmMain};

{$R *.res}

var
  hMutex: HWND;
  Ret: integer;

begin
  Application.Initialize;
  Application.Title := '传奇外挂 酷酷神仙版';
  hMutex := CreateMutex(nil, False, '传奇外挂 酷酷神仙版');
  Ret := GetLastError;
  if Ret <> ERROR_ALREADY_EXISTS then
  begin
    Application.CreateForm(TFrmMain, FrmMain);
    Application.Run;
  end
  else
    ReleaseMutex(hMutex);
end.