functionGetNTDomainName: string
; var
hReg: TRegistry; begin
hReg := TRegistry.Create; hReg.RootKey := HKEY_LOCAL_MACHINE; hReg.OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon', false); Result := hReg.ReadString('DefaultDomainName'); hReg.CloseKey; hReg.Destroy; end
;