friendinfo.pas

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

unit FriendInfo;

interface

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

type
  TFriendInfoDlg = class(TForm)
    InfoGrid: TStringGrid;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    class procedure Execute;
  end;
implementation
uses info;
{$R *.DFM}

{ TFriendInfoDlg }

class procedure TFriendInfoDlg.Execute;
var
i:Integer;
begin
with TFriendInfoDlg.Create(Application) do
    begin
    InfoGrid.RowCount:=nInfoCnt;
    for i:=0 to nInfoCnt-1 do
        begin
        InfoGrid.Cells[0,i]:=IntToStr(i);
        InfoGrid.Cells[1,i]:=
        end;
    Free;
    end;
end;

end.