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无法编译,请求解决.... |