如何用Delphi获取硬件信息？！(200分)

小弟向大家请教个问题：计算机中的哪些硬件有唯一的信息代码（如序列
号）？！如何用Delphi获取这些硬件的唯一信息代码？！烦请您举个例子！
谢谢！

网卡的Mac号是唯一的。你可到深度历险中找一个例子。

使用GetDevice等方法可得到诸如磁盘、系统等信息。至于ID等信息，本论坛已有过
讨论，可查看一下。

硬盘的序列号应该是唯一的,就像dir是列出的那样.用某个api,记不请了

硬盘的序列号用一般方法是得不到的，用DIR列出的是在FORMAT时给的一个随机的
号码，每次FORMAT都会得到一个不同的号码，并不是硬盘出厂时设好的“物理”序
号。目前常用的是用VXD，或者使用一些小技术取得RING0。

您可以取得cpu的id号,他是唯一的,不能改变,除非换cpu.
我又源代码控件,如要请通知我!!!
sunstone

g

想知道

我到是有个关于读取CPU内部序列好的小程序,等我给你找照看

结束吧

使用API Systeminfo 我记不太清了，去察一下Delphi中的Windows SDK help

To sunstone:我曾试着写了个取ＣＰＵＩＤ的程序，发现同样型号的ＣＰＵ上
的ＩＤ是一样的。很想看看你的源码！

读取硬盘的序列号
procedure TForm1.Button1Click(Sender: TObject);
var
SerialNum : pdword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
Label1.Caption := IntToStr(SerialNum^);
end;

To sunstone: 想看看你的源码！

please mailto:taoqg2990.NET

function TtvAPIThing.myGetUserName : String;
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21; // user name can be up to 20 characters
GetMem( pcUser, dwUSize ); // allocate memory for the string
try
if Windows.GetUserName( pcUser, dwUSize ) then
Result := pcUser
finally
FreeMem( pcUser ); // now free the memory allocated for the string
end;
end;

function TtvAPIThing.myGetComputerName : String;
var
pcComputer : PChar;
dwCSize : DWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem( pcComputer, dwCSize ); // allocate memory for the string
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
Result := pcComputer;
finally
FreeMem( pcComputer ); // now free the memory allocated for the string
end;
end;

function TtvAPIThing.myGetWindowsDirectory : String;
var
pcWindowsDirectory : PChar;
dwWDSize : DWORD;
begin
dwWDSize := MAX_PATH + 1;
GetMem( pcWindowsDirectory, dwWDSize ); // allocate memory for the string
try
if Windows.GetWindowsDirectory( pcWindowsDirectory, dwWDSize ) <> 0 then
Result := pcWindowsDirectory;
finally
FreeMem( pcWindowsDirectory ); // now free the memory allocated for the string
end;
end;

function TtvAPIThing.myGetSystemDirectory : String;
var
pcSystemDirectory : PChar;
dwSDSize : DWORD;
begin
dwSDSize := MAX_PATH + 1;
GetMem( pcSystemDirectory, dwSDSize ); // allocate memory for the string
try
if Windows.GetSystemDirectory( pcSystemDirectory, dwSDSize ) <> 0 then
Result := pcSystemDirectory;
finally
FreeMem( pcSystemDirectory ); // now free the memory allocated for the string
end;
end;

function TtvAPIThing.myGetSystemTime : String;
var
stSystemTime : TSystemTime;
begin
Windows.GetSystemTime( stSystemTime );
Result := DateTimeToStr( SystemTimeToDateTime( stSystemTime ) );
end;

function TtvAPIThing.myGetLocalTime : String;
var
stSystemTime : TSystemTime;
begin
Windows.GetLocalTime( stSystemTime );
Result := DateTimeToStr( SystemTimeToDateTime( stSystemTime ) );
end;

function TtvAPIThing.CompareFileTime( const FileNameOne, FileNameTwo : String; ComparisonType : TTimeOfWhat ): TFileTimeComparision;
var
FileOneFileTime : TFileTime;
FileTwoFileTime : TFileTime;
begin
Result := ftError;

FileOneFileTime := myGetFileTime( FileNameOne, ComparisonType );
FileTwoFileTime := myGetFileTime( FileNameTwo, ComparisonType );

case Windows.CompareFileTime( FileOneFileTime, FileTwoFileTime ) of
-1 : Result := ftFileOneIsOlder;
0 : Result := ftFileTimesAreEqual;
1 : Result := ftFileTwoIsOlder;
end;

end;

function TtvAPIThing.GetFileTime( const FileName : String; ComparisonType : TTimeOfWhat ): TDateTime;
var
SystemTime : TSystemTime;
FileTime : TFileTime;
begin
Result := StrToDate( '12/31/9999' );

FileTime := myGetFileTime( FileName, ComparisonType );
if FileTimeToSystemTime( FileTime, SystemTime ) then
// Convert to TDateTime and return
Result := SystemTimeToDateTime( SystemTime );
end;

function TtvAPIThing.myGetFileTime( const FileName : String; ComparisonType : TTimeOfWhat ) : TFileTime;
var
FileTime, LocalFileTime : TFileTime;
hFile : THandle;
begin
// initialize TFileTime record in case of error
Result.dwLowDateTime := 0;
Result.dwHighDateTime := 0;
hFile := FileOpen( FileName, fmShareDenyNone );
try
if hFile <> 0 then
begin
case ComparisonType of
ftCreationTime : Windows.GetFileTime( hFile, @FileTime, nil, nil );
ftLastAccessTime : Windows.GetFileTime( hFile, nil, @FileTime, nil );
ftLastWriteTime : Windows.GetFileTime( hFile, nil, nil, @FileTime );
end; // case FileTimeOf

// Change the file time to local time
FileTimeToLocalFileTime( FileTime, LocalFileTime );
Result := LocalFileTime;
end; // if hFile <> 0
finally
FileClose( hFile );
end; // try
end;

to 笨笨 & taoqg:
请到我的主页上下载 cpuid ,有原码
http://sunhy.126.com

>

如何在C＋＋Builder中检测硬件
----------------------------------------------------------------------

　　在我们编写的程序中常常要和硬件打交道,那么如何在程序中确定系统中是
否有该设备,它的运行状态又是怎样的呢？对于初学者来说，这个问题常常不好
解决，其实只需简单地利用几个API函数，硬件的问题并不神秘。下面就让我们
一起看看在C＋＋ Builder中是如何检测硬件的。
　　1. 检测CPU的型号
　　先让我们从最简单的做起，看一看自己的CPU型号。首先，在C＋＋ Builder
中画出图1所示的窗体，在下面的几个例子中我们将一直使用这个窗体作示范，
它包括一个用来激活测试的Button和一个用来显示结果的Memo。我们可以用
GetSystemInfo这个API获得CPU的型号。将下列代码添加到Button的Click事件里
就可以了：
　　void __fastcall TForm1::Button1Click(TObject ＊Sender)
　　{
　　//获得CPU型号
　　SYSTEM_INFO systeminfo;
　　GetSystemInfo (＆systeminfo);
　　Memo1→Lines→Add(“您的CPU类型是:”＋String( systeminfo.dwProcessorType ));
　　}
　　运行它，点击Test试试，CPU型号出来了吧！
　　2.检测内存状态
　　获得内存状态的方法和CPU型号差不多，只是他用到的是另外一个API：
GlobalMemoryStatus。其中，成员dwTotalPhys用来获得物理内存总量，而
dwAvailPhys顾名思义是有效物理内存的意思。我们只要把下面几行代码加到上
面程序的后面就可以了（不用重做，下同）：
　　//获得内存状态
　　MEMORYSTATUS memory;
　　memory.dwLength =sizeof(memory); //初始化
　　GlobalMemoryStatus(＆memory);
　　Memo1→Lines→Add(“您的物理内存是(Mb):”＋String(int(memory.dwTotalPhys /1024/1024)));
　　Memo1→Lines→Add(“其中可用内存是(Kb):”＋String(int( memory. /1024)));
　　怎么样，看出点门道了么？两段程序的格式几乎一模一样，其实，
GetSystemInfo和GlobalMemoryStatus还可以获得许多其他有关CPU和内存的信
息，就按照上面的格式去套就行了，更详细的资料可以去看C＋＋ Builder4的
Help。
　　3. 检测可用硬盘空间
　　好了，经过前面两个简单问题的热身，我们来处理一个稍微复杂的问题：我
们知道安装程序大都有一个检测硬盘空间的过程，那么这是怎么实现的呢?他用
到的是API函数GetDiskFreeSpace，这个函数输入一个参数：目标盘的路径；返
回四个参数，依次是每簇的扇区数、每扇区的字节数、空闲的簇数、总簇数。假
如我们需要检测C盘的总容量和可用容量，那么可以把以下代码加到上面的程序
中：
　　//获得C盘可用空间
　　DWORD sector,byte,cluster,free;
　　long int freespace,totalspace;
　　GetDiskFreeSpace(“C:”,＆sector,＆byte,＆free,＆cluster); //获得
返回参数
　　totalspace=int(cluster)＊int(byte)＊int(sector)/1024/1024; //计算
总容量
　　freespace=int(free)＊int(byte)＊int(sector)/1024/1024; //计算可用
空间
　　Memo1→Lines→Add(“C盘总空间(Mb):”＋String(totalspace));
　　Memo1→Lines→Add(“C盘可用空间(Mb):”＋String(freespace));
　　怎么样?现在可以自己做安装程序了吧！
　　4. 检测CD－ROM
　　我们在编写程序时常常需要读取CD－ROM，可是究竟哪一个盘符是光驱呢？
有人是将最后一个盘符当作光驱的，但是当遇到双光驱或者MO的情况时常常会出
错。其实这个问题用一个API来解决并不困难，这就是：GetDriveType()，这个
函数返回一个0～6之间的值，依次代表：0—未知盘、1—不存在、2—可移动磁
盘、3—固定磁盘、4—网络磁盘、5—CD－ROM、6—内存虚拟盘。因此我们可以
添加下面代码来寻找CD－ROM：
　　// 获得CD－ROM信息
　　UINT type;
　　char name;
　　for (name=‘C’;name<=‘Z’;name＋＋) //循环检测A～Z
　　{ type = GetDriveType((String(name)＋String(‘:’)).c_str()); //获
得磁盘类型
　　if (type==5)
　　Memo1→Lines→Add(“您的光驱盘符为:”＋String(name));
　　 }
　　得到光驱盘符之后我们可以进一步利用API函数GetVolumeInformation检测
光驱中是否有光盘，这个函数如果成功调用，会得到磁盘的卷标序列号等信息；
如果调用失败则可知光驱中无光盘，程序如下：//检测光盘(假设光驱为G
　　char volname[255],filename[100];//buffer[512];
　　DWORD sno,maxl,fileflag
　　if (!(GetVolumeInformation(“G:”, volname,255,＆sno,＆maxl,＆fileflag,filename,100)))
　　 //如果返回值为假
　　Memo1→Lines→Add (“G驱中没有发现光盘”);
　　 else
　　 //如果返回值为真
　　{Memo1→Lines→Add (“G驱中光盘卷标为:”＋String(volname));
　　Memo1→Lines→Add (“G驱中光盘序号为:”＋String(sno));
　　 }
　　5. 检测声卡配置
　　在编制多媒体程序时，我们常常会用到声音文件，而当这些程序在没有配置
声卡的机器上运行时，我们应该给出必要的警告。对于声卡的检测，可以分别通
过waveOutGetNumDevs()和midiOutGetNumDevs()检测波形设备和MIDI设备，再利
用waveOutGetDevCaps()和midiOutGetDevCaps()获得声音设备的细节资料。将下
面一段代码加入上面的程序即可，但要注意将＃include 添至程序首部：
　　//检测声卡
　　int wavedevice,mididevice;
　　WAVEOUTCAPS wavecap;
　　MIDIOUTCAPS midicap;
　　wavedevice=(int)waveOutGetNumDevs(); //波形设备信息
　　mididevice=(int)midiOutGetNumDevs(); // MIDI设备信息
　　if (wavedevice==0)
　　Memo1→Lines→Add (“没有发现波形设备”);
　　else
　　{waveOutGetDevCaps(0,＆wavecap,sizeof(WAVEOUTCAPS));
　　Memo1→Lines→Add (“当前波形设备:”＋String(wavecap.szPname));
　　 }
　　if (mididevice==0)
　　Memo1→Lines→Add (“没有发现MIDI设备”);
　　else
　　{midiOutGetDevCaps(0,＆midicap,sizeof(MIDIOUTCAPS));
　　Memo19→Lines→Add (“当前MIDI设备:”＋String(midicap.szPname));
　　 }
　　6. 检测显示器信息
　　编写和图形图像有关的程序时常常需要检测显示器的分辨率和色深，最后我
们来看看这个问题的解决办法。分辨率的求法很简单，直接调用Screen对象的属
性就行了。而要求色深则要利用API函数GetDeviceCaps获得每像素的比特数和色
彩的页面数，然后计算2的“每像素的比特数”次幂即得色彩的梯度数，再计算
“色彩的梯度数”的“色彩的页面数”次幂即得色深。由于该段程序用到了幂运
算，所以要记得加上＃include ，程序如下：
　　//检测显示器
　　int tcs;
　　long int bpp,cp,tc;
　　Memo1→Lines→Add (“当前分辨率为:”＋String(Screen→Width)＋
“＊”＋String(Screen→Height));
　　bpp=GetDeviceCaps(Form1→Canvas→Handle ,BITSPIXEL);
　　tcs=pow(2,bpp); //计算色彩的梯度数
　　cp= GetDeviceCaps(Form1→Canvas→Handle,PLANES);
　　tc= pow(tcs,cp); //计算色深
　　Memo1→Lines→Add(“当前色深为:”＋String(tc));
　　好了，现在在让我们点击一下Test吧，硬件情况尽收眼底（图2）！其实本
文所涉及的API函数的功能不止这些，大家下去可以查一查Win32 API手册，或者
直接在C＋＋ Builder 4中察看Help。相信自己开发一个硬件检测软件也不是难
事哦！
　　以上程序均在Windows98中文版、C＋＋ Builder 4中调试通过，如果大家在
硬件检测方面有什么问题欢迎和我探讨，mail to AlexYoung@263.net。

（西安　杨洪辰）

多人接受答案了。