请问如何用delphi实现获取浏览器url

function GetIEAddress(IEHandle:THandle;var Address:string):Boolean;

Const WM_GETTEXT = $D;

WM_GETTEXTLENGTH =$E;

CtlNames:array[04] of string=(

WorkerA, //获得IE窗口的工作区的句柄

ReBarWindow32, //获得IE窗口的菜单栏的句柄

ComboBoxEx32, //获得IE窗口的下拉菜单的句柄

ComboBox, //获得IE窗口的下拉菜单当前项的句柄

Edit //获得这个下拉菜单的编辑框句柄

);

var

hwnd :THandle;

i,AddLen:integer;

AddBuf :Array[04095] of char;

s :string;

begin

Result:=True;

hwnd:=IEHandle;

try

for i:=0 to length(ctlnames)-1 do

hwnd:=FindWindowEx(hwnd,0,PChar(CtlNames[i]),nil);

except

Result:=false;

end;

if (Result) then begin

AddLen:=SendMessage(Hwnd,WM_GETTEXTLENGTH,0,0);

//向系统发送获得IE窗口的地址栏中的字符串长度命令

SendMessage(Hwnd,WM_GETTEXT,AddLen+1,DWord(@AddBuf));

//向系统发送获得IE窗体地址栏中的字符串命令

if length(AddBuf)>0 then

begin

Address:=AddBuf;

GetWindowText(IEHandle,AddBuf,length(AddBuf)+1);

s:=Addbuf;

i:=pos(Uppercase( - Microsoft Internet Explorer),

Uppercase(s));

if i>0 then s:=Trim(copy(s,1,i-1));

Address:=Address+ [+s+];

end

else Result:=false;

end;

end;

function EnumIEProc(hwnd:THandle;Param:LPARAM):Boolean;stdcall;

const NAME_LEN=1024;

type

PStrings=^TStrings;

var

sClassName:Array[0NAME_LEN] of char;

IEAddress:string;

AddLen:Integer;

begin

AddLen:=GetClassName(hwnd,@sClassName,NAME_LEN);

if (AddLen=7) and (sClassName=IEFrame) then

if GetIEAddress(hwnd,IEAddress) then

PStrings(Param)Add(IEAddress);

Result:=true;

end;

function GetAllIEAddress(var Addresses:TStrings):Integer;

var

s:TStrings;

begin

s:=TStringListCreate ;

EnumWindows(@EnumIEProc,LPARAM(@s));

Result:=sCount ;

if Result>0 then AddressesAssign (s);

sfree;

end;

procedure TForm1Button1Click(Sender: TObject);

var

s:TStrings;

begin

s:=TStringListCreate ;

GetAllIEAddress(s);

if sCount >0 then Memo1LinesAssign (s);

sfree;

end;

修改注册表呗。注册表中HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}。具体改法自己查了。

方法1：

1、对着桌面的“网络”，右键--属性

2、点击“更改适配器设置”

3、找到你连接的网络，右键--状态

4、点击“详细信息”

5、里面的物理地址就是你的网卡地址END

方法2：

点击开始菜单，输入cmd，回车

在命令行中输入ipconfig/all

回车

方法3：

找到你的网络连接，物理地址就是你的网卡地址

1

右键单击桌面上的“网上邻居”图标，选择“属性”；

2

在打开的窗口中，右键单击“本地连接”图标，选择“属性”；

3

在打开的对话框中，将鼠标移到“连接时使用”下面的网卡型号标识上，系统会显示此网卡的MAC地址（格式为短横线

分隔开的6个十六进制数）。

或者：

1

点击“开始”，“运行”，在运行命令框中键入“CMD”(win98/Me键入“command”)；

2

在d出的DOS命令窗口中输入“ipconfig/all”命令回车(不包括引号)；

3

在运行结果中，找到Physical

Address……后面用短横线分隔开的十六进制数既是网卡的MAC地址xx-xx-xx-xx-xx-xx。

4

如果用户使用的 *** 作系统是Windows

XP及以上 *** 作系统，可直接在DOS命令窗口中输入“getmac”命令回车(不包括引号)，屏幕上显示的“物理地址”下端即是本机网卡的MAC地址。

希望采纳

分类: 电脑/网络 >> 互联网

问题描述:

在线等待 =>> 在ASPNET怎样获取客户端的Mac网卡地址？？？？

解析:

C# public static string GetMACAddressString()

{

ManagementClass class1 = new ManagementClass("Win32_NeorkAdapterConfiguration");

ManagementObjectCollection collection1 = class1GetInstances();

int num1 = 0;

StringBuilder builder1 = new StringBuilder();

using (ManagementObjectCollectionManagementObjectEnumerator enumerator1 = collection1GetEnumerator())

{

while (enumerator1MoveNext())

{

ManagementObject obj1 = enumerator1get_Current();

if ((bool) obj1get_Item("IPEnabled"))

{

if (num1 > 0)

{

builder1Append(''|'');

}

builder1Append(obj1get_Item("MacAddress")ToString());

num1++;

}

obj1Dispose();

}

}

return builder1ToString();

}

获取多网卡的IP地址和对应的MAC地址的具体方法如下：

1、 同时按下键盘的 windows键（四个小方框的键）+R键，打开运行窗口，输入cmd点击 确定 ；

2、 在打开的黑色窗口中输入 ping 192168199153， 按回车键；

3、 在命令行中输入 arp -a 后，按回车键，在列出的内容中会看到 192168199153 后对应的mac物理地址。

以上就是关于请问如何用delphi实现获取浏览器url全部的内容，包括:请问如何用delphi实现获取浏览器url、请教：用delphi 如何修改网卡的 mac地址，修改为：不存在 （即在windows下手动修改如图：）、如何获取网卡地址等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！