如何得到计算机的mac地址和ip地址？？

Question

如何得到本机的mac地址和ip地址呢？？
还有，如何得到当前计算机的cup使用率阿？？
麻烦高手指点，最好能给出例子，多谢！！

Answer 1

本地用TIdIPWatch这个控件的LocalIP方法获取

Answer 2

获取ip方法：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,WinSock;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edtIP: TEdit;
    endName: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function GetHostName :String;
    function NameToIp(Name :string) :String;  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.GetHostName: String;
var
  computerName : array [0..MAX_COMPUTERNAME_LENGTH+1] of char;
  Size : Cardinal;
begin
  Result:='';
  Size :=MAX_COMPUTERNAME_LENGTH+1 ;
  GetComputerName(ComputerName,Size);
  Result := StrPas(ComputerName);
end;function TForm1.NameToIp(Name: string): String;
var
  WSAData : TWSADATA;
  HostEnt : PHOSTENT;
begin
  result :='';
  WSAStartup(2,WSAData);
  HostEnt:=GetHostByName(PChar(Name));
  if HostEnt <> nil then
  begin
    with HostEnt^ do
    result :=Format('%d.%d.%d.%d',[Byte(h_addr^[0]),Byte(h_addr^[1])
            ,Byte(h_addr^[2]),Byte(h_addr^[3])])  end;
  WSaCleanup;end;procedure TForm1.Button1Click(Sender: TObject);
begin
  endName.text:=GetHostName;
  edtIP.text:=NameToIp(endName.text);
end;end.mac地址方法：NetBios、GUID

Answer 3

以上我有源程序
MSN：[email protected]

Answer 4

用 GetIfTable() 获取网卡信息.