我回来了，大散分~，同时问几个问题，呵呵：）(300分)

呵呵,最近穷,混点分.
不知用控件得到行不行.FastNet下的TNMSMTP 控件好像可以得到IP,机器名等等

快点呀，那个谁，人在昆明，不要逃避我最后一个问题呀。

up

upupupupupuuppuup

等到花儿也谢了呀。
哪能这样呢，做了90%，最后这么一点都不肯做？

UP

bz

[]

人在昆明，快点给我回来！
小子不要乱跑，给我回答最后一个问题！！！！！！！！！！！！！

检索应该能找到

用控件吧SystemInfo可以满足你的要求

Adapter 8's MAC is 68:1B:20:52:41:53
Adapter 7's MAC is 66:90:20:52:41:53
Adapter 6's MAC is 66:90:20:52:41:53
Adapter 0's MAC is 00:50:EB:08:00:B2
Adapter 3's MAC is 00:50:EB:08:00:B2
请解释什么意思！？
哪块才是我网卡的物理地址！？

GZ

获得主机名和IP地址
unit hostName;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Ip:string;
Ipstr:string;
Buffer:Array[1..32] of char;
i:integer;
WSData:TWSAdata;
HostHostEnt;
begin
if WSAstartup(2,WSData)<>0 then
begin
ShowMessage('WS2_32.DLL初始化失败!');
halt;
end;
try
if GetHostName(@Buffer[1],32)<>0 then
begin
ShowMessage('没有得到主机名!');
halt;
end;
except
ShowMessage('没有成功返回主机名');
halt;
end;
Host := GetHostByName(@Buffer[1]);
if Host = nil then
begin
ShowMessage('IP地址为空');
halt;
end
else
begin
Edit2.Text := Host.h_name;
Edit3.Text := Chr(Host.h_addrtype+64);
for i:=1 to 4 do
begin
Ip:=IntToStr(Ord(Host.h_addr^[i-1]));
ShowMessage('分段IP地址为:'+Ip);
if i<4 then
Ipstr := Ipstr + Ip + '.'
else
Edit1.Text:=Ipstr+Ip;
end;
end;
WSACleanup;
end;
end.

终于吃饭回来 啦，呵呵，好累 下午 3：00 下班。

to 人在昆明

快点给我回答问题
Adapter 8's MAC is 68:1B:20:52:41:53
Adapter 7's MAC is 66:90:20:52:41:53
Adapter 6's MAC is 66:90:20:52:41:53
Adapter 0's MAC is 00:50:EB:08:00:B2
Adapter 3's MAC is 00:50:EB:08:00:B2
请解释什么意思！？
哪块才是我网卡的物理地址！？

学习！

如果是98，winipconfig好像就可以吧

你自己玩吧，今天下班还要做车，好累 88！

请各位了解的还多多帮忙呀。
谢过各位了~！