Delphi - база знаний


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


Как узнать имя домена 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

Взято с Исходников.ru



Начало  Назад  Вперед



Книжный магазин