unit1.pas

墨香外挂源码!!有兴趣的人下载来研究研究巴

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PsGlobal, ActiveX, ExtCtrls, Registry;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Label4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hnd: THandle;
implementation

{$R *.dfm}
function sethook: bool; external 'MXTools.dll';
function endhook: bool; external 'MXTools.dll';

procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\PPSSoft\MXTools', True);
    WriteString('FilePath', FilePath);
    CloseKey;
    Free;
  end;
  Caption := Caption + ' Ver ' + GetFileVersion('', 4);
  Label3.Caption := '  声明：本程序应该不算是外挂吧，只是模拟键盘动作！ ' + #13
    + '              如果这也算外挂那按键精灵也是外挂了！' + #13
    + '              本程序并没有影响游戏公平性！' + #13
    + '              如果使用本程序发生任何问题都与作者无关，' + #13
    + '              如果说你不同意作者的免责条款请退出本程序！';
  Timer1.Enabled := True;
  SetHomePages('http://www.vifo.cn');
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  endhook;
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
  RunFile('http://www.vifo.cn/gamebbs');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  sethook;
end;

initialization //防止程序二次运行，在implementation 需定义变量 hnd: THandle;
  hnd := CreateMutex(nil, True, 'Net110Backup');
  if GetLastError = ERROR_ALREADY_EXISTS then Halt;
  OleInitialize(nil);
finalization
  try
    OleUninitialize;
    if hnd <> 0 then {//判断应用程序句柄是否存在} begin
      CloseHandle(hnd); //结束二次运行程序
    end;
  except
  end;
end.