一个delphi编程的问题?

Question

要用到windows API 和注册表

Answer 1

比喻说，得到Windows的用户名称和产品序列号。
1. 可以用 WNetGetUser() 这个函数来得到 user name;
2. Windows  的产品序号可以用 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 thenResult := lpUserName;
FreeMem(lpUserName, lpnLength);
end;
end; { GetUserName }// 取得 Windows 产品序号
...........