这个程序码应该是 Delphi 编写的吧!
hhmyj 2008-04-03 12:05:13 unit fileplay;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
WMPLib_TLB, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
playtime: TTimer;
testinfo: TStaticText;
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure playtimeTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormResize(Sender: TObject);
begin
// Address $466C80
end;
procedure TForm1.FormShow(Sender: TObject);
begin
// Address $466E80
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// Address $46730C
end;
procedure TForm1.playtimeTimer(Sender: TObject);
begin
// Address $467354
end;
end.
上述程序码中我想知道 // Address $467354 的地址是在那里,我想写一个注册机,不知道怎么搞,大家帮帮忙吧!