如何用Delphi编写可检测主板编号，显卡编号和硬盘编号的程序？(200分)

检测 硬盘编号 GetVolumeInformation

listen

要有vxd编程经验才可

一下是copy来的，应该是这种方法
1. 可以用 WNetGetUser() 这个函数来得到 user name;

2. Windows 95 的产品序号可以用 TRegistry 到 Registry Database 中找出来;

// 取得用户名称

function GetUserName: AnsiString;

var

lpName: PAnsiChar;

lpUserName: PAnsiChar;

lpnLength: DWORD;
begin
Result := '';
lpnLength := 0;
WNetGetUser(nil, nil, lpnLength); // 取得字串长度
if lpnLength > 0 then
begin
GetMem(lpUserName, lpnLength);
if WNetGetUser(lpName, lpUserName, lpnLength) = NO_ERROR then
Result := lpUserName;
FreeMem(lpUserName, lpnLength);
end;
end; { GetUserName }
// 取得 Windows 产品序号
function GetWindowsProductID: string;
var
reg: TRegistry;
begin
Result := '';
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software/Microsoft/Windows/CurrentVersion', False);
Result := ReadString('ProductID');
end;
reg.Free;
end;

到深度立宪上下一个SYSINFO2000，带源码，很全的系统信息。

用hwinfo也可以得到你要的东西
（可惜没源码）

OmniTools，URL: http://www.bhnet.com.br/~simonet/omnitools.htm

多人接受答案了。