捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:获取CPU、网卡和硬盘物理信息
chenyb 30710 2007/8/7 0:09:59
在串口硬盘无法读取出来硬盘序列号,有没有串口硬盘的读取方法?
ruoqi656 29554 2007/5/22 14:38:24
如何取局域网里面的机子MAC地址
wiseinfo 28455 2007/3/19 18:55:42
不知道,代码很清楚,虽然是汇编,
tom_hanks 27917 2007/2/3 14:16:55
网卡的要连接上了才可读号,下面是不连也可读的:
//Delphi编写 获取内网IP外网IP及网关 网卡MAC地址
//2006-09-02 03:36
unit Unit1;

interface

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

Const
  MAX_ADAPTER_NAME_LENGTH        = 256;
  MAX_ADAPTER_DESCRIPTION_LENGTH = 128;
  MAX_ADAPTER_ADDRESS_LENGTH     = 8;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type
  TIPAddressString = Array[0..4*4-1] of Char;

  PIPAddrString = ^TIPAddrString;
  TIPAddrString = Record
    Next      : PIPAddrString;
    IPAddress : TIPAddressString;
    IPMask    : TIPAddressString;
    Context   : Integer;
  End;


PIPAdapterInfo = ^TIPAdapterInfo;
  TIPAdapterInfo = Record { IP_ADAPTER_INFO }
    Next          : PIPAdapterInfo;
    ComboIndex          : Integer;
    AdapterName         : Array[0..MAX_ADAPTER_NAME_LENGTH+3] of Char;
    Description         : Array[0..MAX_ADAPTER_DESCRIPTION_LENGTH+3] of Char;
    AddressLength       : Integer;
    Address          : Array[1..MAX_ADAPTER_ADDRESS_LENGTH] of Byte;
    Index          : Integer;
    _Type          : Integer;
    DHCPEnabled         : Integer;
    CurrentIPAddress    : PIPAddrString;
    IPAddressList       : TIPAddrString;
    GatewayList         : TIPAddrString;
  End;
var
  Form1: TForm1;

implementation

{$R *.dfm}

Function GetAdaptersInfo(AI : PIPAdapterInfo; Var BufLen : Integer) : Integer;
         StdCall; External 'iphlpapi.dll' Name 'GetAdaptersInfo';

Function MACToStr(ByteArr : PByte; Len : Integer) : String;
  Begin
    Result := '';
    While (Len > 0) do Begin
//2007-02-03
//      Result := Result+IntToHex(ByteArr^,2)+'-';
      Result := Result+IntToHex(ByteArr^,2);
      ByteArr := Pointer(Integer(ByteArr)+SizeOf(Byte));
      Dec(Len);
    End;
//2007-02-03
//    SetLength(Result,Length(Result)-1); { remove last dash }
End;

Function GetAddrString(Addr : PIPAddrString) : String;
  Begin
    Result := '';
    While (Addr <> nil) do Begin
      Result := Result+'A: '+Addr^.IPAddress+' M: '+Addr^.IPMask+#13;
      Addr := Addr^.Next;
    End;
  End;

procedure TForm1.Button1Click(Sender: TObject);
var
  AI,Work : PIPAdapterInfo;
  Size    : Integer;
  Res     : Integer;
begin
  Size := 5120;
  GetMem(AI,Size);
  work:=ai;
  Res := GetAdaptersInfo(AI,Size);
  If (Res <> ERROR_SUCCESS) Then Begin
    SetLastError(Res);
    RaiseLastWin32Error;
  End;
  memo1.Lines.Add ('Adapter address: '+MACToStr(@Work^.Address,Work^.AddressLength));
  repeat
    memo1.Lines.add('  IP addresses: '+GetAddrString(@Work^.IPAddressList));
    work:=work^.Next ;
  until (work=nil);
end;

end.
delphinet 26419 2006/10/4 12:04:29
有时取不出硬盘物理系号:希捷IDE硬盘,Win2K AS环境,还没看代码,估计SCSI硬盘更不行的,前不久盒子上有比较全的代码,实现的代码很少的...
huasoft111 26395 2006/10/2 17:22:26
请到此下载for D7的源码:http://www.huosoft.com/blogview.asp?logID=60
hong1160 26392 2006/10/2 10:01:59
huasoft111   2006-9-27 18:42:50
D7不支持嵌套TYPE,将出错的TYPE定义移到最前面就行了

怎么移能说一下吗?
sun_catboy 26327 2006/9/28 8:54:12
我发过一些东西的,可是都没有被管理员上传,很气人!
所以我不在盒子上面发东西的!
如果大家想要关于硬件检测方面的东西就到QQ群:23049631(Delphi天下找我好了)
james_ 26325 2006/9/28 8:08:49
sun_catboy,我也想你发出来给大家用哦
st52 26324 2006/9/28 1:29:37
sun_catboy
能不能把你的发出来大家用用啊`~
sun_catboy 26313 2006/9/27 19:46:46
这个东西没有必要发了吧
我有更全的都没发呀,没有什么用处,除了自己些注册的时候能用到一点!
希望能发点好的
huasoft111 26312 2006/9/27 18:42:50
D7不支持嵌套TYPE,将出错的TYPE定义移到最前面就行了
myseeker 26310 2006/9/27 17:37:11
对我的硬盘无效。我的是希捷的SATA160G的。
zhousan 26309 2006/9/27 17:00:18
作者都有说明是BDS2006的了。D7编译不成功正常
qxhou 26308 2006/9/27 16:48:06
以下是出错信息:
[Error] HardwareInfo.pas(16): 'END' expected but 'TYPE' found
[Error] HardwareInfo.pas(105): '=' expected but 'FUNCTION' found
[Error] HardwareInfo.pas(110): Unknown directive: 'private'
[Error] HardwareInfo.pas(115): 'IMPLEMENTATION' expected but ';' found
[Error] HardwareInfo.pas(117): '.' expected but 'IMPLEMENTATION' found
[Error] HardwareInfo.pas(105): Unsatisfied forward or external declaration: 'GetMACAddress'
[Error] HardwareInfo.pas(106): Unsatisfied forward or external declaration: 'GetIDEDiskSerialNumber'
[Error] HardwareInfo.pas(107): Unsatisfied forward or external declaration: 'GetIDEDiskDriveInfo'
[Error] HardwareInfo.pas(108): Unsatisfied forward or external declaration: 'GetCPUInfo'
[Error] HardwareInfo.pas(111): Unsatisfied forward or external declaration: 'GetMACAddress'
[Error] HardwareInfo.pas(112): Unsatisfied forward or external declaration: 'ChangeByteOrder'
[Error] HardwareInfo.pas(113): Unsatisfied forward or external declaration: 'GetLanaEnum'
[Error] HardwareInfo.pas(114): Unsatisfied forward or external declaration: 'ResetLana'
[Fatal Error] MainForm.pas(7): Could not compile used unit 'HardwareInfo.pas'
qxhou 26306 2006/9/27 16:46:11
火人,我的D7无法编译,请求解决....
第一页 上一页 下一页 最后页 有 16 条纪录 共1页 1 - 16
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表