Как узнать имя домена Windows NT/2000 function GetNTDomainName string;

Опубликовано: 6 апреля, 2011Рубрика: ОлимпиадаАвтор: Redactor

Как узнать имя домена Windows NT/2000

function GetNTDomainName: string;
var
hReg: TRegistry;
begin
hReg := TRegistry.Create;
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion
\Winlogon', false );
Result := hReg.ReadString( 'DefaultDomainName' );
hReg.CloseKey;
hReg.Destroy;
end;