운영체제의 ProductID 얻기

현 운영체제의 ProductID 얻기 함수를 아래와 같이 작성하여 보았습니다.

{** 현 운영체제의 ProductID를 얻는다.
  @result 현 운영체제의 ProductID
  *}
function GetProductID: String;
const
  CURRENT_VERSION = 'SOFTWARE\Microsoft\Windows\CurrentVersion';
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.KeyExists(CURRENT_VERSION) then
    begin
      reg.OpenKey(CURRENT_VERSION, False);
      if reg.ValueExists('ProductId') then
        Result := reg.ReadString('ProductId');
    end;
    reg.CloseKey;
  finally
    reg.Free;
  end;
end;