НTL
20.04.2009, 17:58
Сделал я программку в делфи 7, и начал делать для нее патч, но я не могу найти нужный мне адрес в HEX редакторе, помогите плиз.
Вот сделал пример с кодом который используется в проге:
Код в Delphi 7 (Красным выделено то что надо найти в HEX редакторе)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ICQClient;
type
TForm1 = class(TForm)
Button1: TButton;
ICQClient1: TICQClient;
procedure Button1Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN := StrToInt('550122491');
ICQClient1.Password := '123123Qa';
ICQClient1.Login();
end;
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
ICQClient1.SendMessage(454236500,'Масага');
end;
end.
Исходник на делфи: http://dump.ru/file/2485434 (Надо еще чтобы стоял ICQ клиент в Delphi7)
ПСы: Очень жду помощи
Вот сделал пример с кодом который используется в проге:
Код в Delphi 7 (Красным выделено то что надо найти в HEX редакторе)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ICQClient;
type
TForm1 = class(TForm)
Button1: TButton;
ICQClient1: TICQClient;
procedure Button1Click(Sender: TObject);
procedure ICQClient1Login(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN := StrToInt('550122491');
ICQClient1.Password := '123123Qa';
ICQClient1.Login();
end;
procedure TForm1.ICQClient1Login(Sender: TObject);
begin
ICQClient1.SendMessage(454236500,'Масага');
end;
end.
Исходник на делфи: http://dump.ru/file/2485434 (Надо еще чтобы стоял ICQ клиент в Delphi7)
ПСы: Очень жду помощи