如何取得当前的机器名与公司名？

Question

就是，打开我的电脑，帮助/关于  那界面上出现的。

Answer 1

var
   CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;begin    GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;    fl_loaded := GetComputerName(CNameBuffer,CLen^);    if fl_loaded then
      ComputerName := StrPas(CNameBuffer)
    else
      ComputerName := 'Unkown';    FreeMem(CNameBuffer,255);
    Dispose(CLen);end;

Answer 2

var
  ComputerName: PChar;
  Size: DWORD;
begin
  GetMem(ComputerName,255);
  Size:=255;
  GetComputerName(ComputerName,Size);
  ShowMessage('计算机名:'+ComputerName);
end;

Answer 3

在注册表中
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Products\...
每个键下的InstallProperties差不多都会有RegCompany键，键值就是你的公司名称

Answer 4

公司名
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOrganization
或者
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization
键值