Inst.-Name und -Firma aus Win-System auslesen

[Marco Haffner]

Delphi-Quellcode:

uses Registry;

procedure RegReadString(var Name, Company: string);
begin
  with TRegistry.Create do
   try
      RootKey := HKEY_LOCAL_MACHINE;
      case Win32Platform of
      { Windows 95/98/ME }
         1: OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False);

      { Windows NT/2000/XP }
         2: OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
      end;
      Name := ReadString('RegisteredOwner');
      Company := ReadString('RegisteredOrganization');
  finally
    Free;
  end;
end;