得到Windows用户名和序列号

得到Windows用户名和序列号 


　　如何得到Windows的用户名称和产品序列号呢？

　　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;