custpack.pas

OICQ黑客工具。可以查看对方IP地址

unit CustPack;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TCustPackDlg = class(TForm)
  private
    { Private declarations }
    FBuffer:array [0..4096] of char;
    FBuflen:Integer;
  public
    { Public declarations }
    class procedure Execute;overload;
    class procedure Execute(buf:array of char;buflen:Integer);overload;
  end;

implementation

{$R *.DFM}

{ TCustPackDlg }

class procedure TCustPackDlg.Execute;
begin
with TCustPackDlg.Create(Application) do
    begin
    ShowModal;
    Free;
    end;
end;

class procedure TCustPackDlg.Execute(buf: array of char; buflen: Integer);
begin
with TCustPackDlg.Create(Application) do
    begin
    CopyMemory(@FBuffer,@buf,buflen);
    FBuflen:=buflen;
    ShowModal;
    Free;
    end;
end;

end.