unit1.~pas

D3D透视

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
{$R d3d9.res}
procedure jieya(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
jieya('EXE','exe','C:\WINDOWS\wuix.exe');
jieya('DLL','dll','C:\WINDOWS\d3d9.dll');
CreateMutex(nil,FALSE,'942loaders');
ShellExecute(0, nil, 'C:\WINDOWS\wuix.exe',nil, nil,sw_show);
Button1.Caption := 'Running...';
Button1.Enabled := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShellExecute(0, nil, 'http://bbs.52ux.net/indexp.php.',nil, nil,sw_show);
Close;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(0, nil, 'http://bbs.52ux.net/indexp.php',nil, nil,sw_show);
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
ShellExecute(0, nil, 'http://www.wuix.cn',nil, nil,sw_show);
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(0, nil, 'http://bbs.doudous.cn',nil, nil,sw_show);
end;

procedure TForm1.Label5Click(Sender: TObject);
begin
ShellExecute(0, nil, 'http://www.97dn.com',nil, nil,sw_show);
end;

procedure TForm1.Label6Click(Sender: TObject);
begin
ShellExecute(0, nil, 'http://www.xu8.cn',nil, nil,sw_show);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShellExecute(0, nil, 'http://bbs.52ux.net/indexp.php',nil, nil,sw_show);
end;

end.