这方法比较简单，不过我有更好的代码不用dll，等忙完了这个项目再好好的贴出来。
一般珊瑚虫QQ的安装目录下有QQWry.Dat和ipsearcher.dll这两文件，将他们拷入你的项目目录，然后:用以下程序:

unit d_dlu; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; type PPchar=^pchar; function _GetAddress(ip:pchar):ppchar;stdcall;external 'ipsearcher.dll'; function GetLocation(ip:pchar):string; implementation {$R *.dfm} function GetLocation(ip:pchar):string; var loc:string; p:ppchar; begin p:=_GetAddress(ip); loc:=p^; inc(p); loc:=loc+p^; result:=loc; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetLocation('200.193.118.168')); end; end.
结果为"巴西圣保罗"
同样:68.9.119.16为美国Cox通信用户

注意:
以上程序编译时要关闭delph的优化(project->options->compiler->optimization前面的勾去掉)。