Una imagen :
El codigo (muy corto xD)
Código
// GetWhois 0.1 // Coded By Doddy H in the year 2013 unit whois; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdWhois, ComCtrls, sStatusBar, jpeg, ExtCtrls; type TForm1 = class(TForm) sSkinManager1: TsSkinManager; sGroupBox1: TsGroupBox; sLabel1: TsLabel; sEdit1: TsEdit; sButton1: TsButton; sGroupBox2: TsGroupBox; sMemo1: TsMemo; IdWhois1: TIdWhois; sStatusBar1: TsStatusBar; Image1: TImage; procedure sButton1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data'; sSkinManager1.SkinName := 'garnet'; sSkinManager1.Active := True; end; procedure TForm1.sButton1Click(Sender: TObject); begin if sEdit1.text = '' then begin ShowMessage('Write the domain'); end else begin sStatusBar1.Panels[0].text := '[+] Searching ...'; Form1.sStatusBar1.Update; sMemo1.Clear; sMemo1.Lines.text := IdWhois1.whois(sEdit1.text); sStatusBar1.Panels[0].text := ''; Form1.sStatusBar1.Update; end; end; end. // The End ?
Si lo quieren bajar lo pueden hacer de aca.