求解~~~~~!!请各位大吓帮忙呀~~![分不多,但给出答案的大虾一定会有分!!!]

shitinaj 2003-09-30 02:42:25
诸位高手:
我的这个问题是关于delphi读本机硬件信息的方法,希望各位大虾不吝指教!!
在做delphi程序过程需要求得本机的一些硬件信息,在网上已公布的一些读硬件信息的方法大都对Win98系统有用,但在2000和XP下就没用了,现急需这方便的解决方法。(我所说的硬件信息名括:主板出厂序列号、硬盘出厂序列号[不是分区盘序列号]、CPU出厂序列号等)。
承盼回音!!
...全文
43 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ljz1211 2003-10-02
  • 打赏
  • 举报
回复
用API函数可能实现!!!
sixgj 2003-10-01
  • 打赏
  • 举报
回复

获取磁盘序列号:
procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
'-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧