client.dpr

传奇3封外挂客户端+登陆器+配置器源码............................

program Client;

uses
  Forms,
  Windows,
  Messages,
  Unit_Main in 'Unit_Main.pas' {FrmMain},
  Unit_MyPro in 'Unit_MyPro.pas',
  Unit_Msg in 'Unit_Msg.pas',
  Unit_AddNewId in 'Unit_AddNewId.pas' {Frm_AddNewId},
  Unit_FindID in 'Unit_FindID.pas' {Frm_FindID},
  Unit_EditPass in 'Unit_EditPass.pas' {Frm_EditPass},
  Unit_FindChar in 'Unit_FindChar.pas' {Frm_FindChar},
  Unit_FindStorage in 'Unit_FindStorage.pas' {Frm_FindStorage},
  Unit_LevelIdx in 'Unit_LevelIdx.pas' {Frm_LevelIdx},
  Unit_About in 'Unit_About.pas' {Frm_About},
  Unit_RcFile in '..\配置器\Unit_RcFile.pas';
const
  CM_RESTORE=WM_USER+$1000;
  APPNAME='91gonet传奇3登陆器2.0商业';
{$R *.res}

var
  RvHandle:HWND;
begin
  RvHandle:=FindWindow(APPNAME,Nil);
  if RvHandle>0 then
  begin
    PostMessage(RvHandle,CM_RESTORE,0,0);
    Exit;
  end;
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrm_AddNewId, Frm_AddNewId);
  Application.CreateForm(TFrm_FindID, Frm_FindID);
  Application.CreateForm(TFrm_EditPass, Frm_EditPass);
  Application.CreateForm(TFrm_FindChar, Frm_FindChar);
  Application.CreateForm(TFrm_FindStorage, Frm_FindStorage);
  Application.CreateForm(TFrm_LevelIdx, Frm_LevelIdx);
  Application.CreateForm(TFrm_About, Frm_About);
  Application.Run;
end.