msgview.pas

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

unit MsgView;

interface

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

type
  TMsgViewDlg = class(TForm)
    ViewMemo: TMemo;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
    class procedure Execute(msg:String);
  end;

implementation

{$R *.DFM}

{ TMsgViewDlg }

class procedure TMsgViewDlg.Execute(msg: String);
begin
with (TMsgViewDlg.Create(Application))do
    begin
    ViewMemo.Lines.Add(msg);    
    ShowModal;
    Free;
    end;
end;

end.