1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Рабочая группа (workgroup)

Тема в разделе "Delphi - Сети", создана пользователем -=zuk=-, 1 авг 2005.

Статус темы:
Закрыта.
  1. -=zuk=-

    -=zuk=- Гость

    Репутация:
    0
    Необходимо зная IP выдрать имя рабочей группы. Вроде ето надо выдирать с нетбуса, дайте хотябы правельное русло!
     
  2. Barmutik

    Barmutik Гость

    Репутация:
    0
    Если для локального компа то можно

    Код:
    try 
    
    
    const 
    WorkKey='System\CurrentControl­Set\Services\VxD\VNETSUP'; 
    LogKey='System\CurrentControlS­et\Services\MSNP32\NetworkProv­ider'; 
    
    
    procedure TForm1.FormCreate(Sender: TObject); 
    var 
    reg : TRegistry; 
    domain, log : string; 
    begin 
    reg:=TRegistry.create; 
    reg.RootKey:=HKEY_LOCAL_MACHIN­E; 
    if reg.KeyExists(WorkKey) then 
     begin 
     if reg.OpenKey(WorkKey,false) then 
       begin 
       domain:=Reg.ReadString('Workgr­oup'); 
       Label3.Caption:= domain; 
       reg.CloseKey; 
       end; 
     end; 
    if reg.KeyExists(LogKey) then 
     begin 
     if reg.OpenKey(Log,false) then 
       begin 
       log:=Reg.ReadString('Authentic­atingAgent'); 
       Label4.Caption:= log; 
       reg.CloseKey; 
       end; 
     end; 
    reg.Free; 
    end;
     
  3. Barmutik

    Barmutik Гость

    Репутация:
    0
    Более правильно так:

    Код:
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
    Info: PWkStaInfo100; 
    begin 
    if NetWkstaGetInfo(nil, 100, Pointer(Info)) = NERR_SUCCESS then 
    try 
     ShowMessage(string(WideString(­Info^.wki100_langroup))); 
    finally 
     NetApiBufferFree(Info); 
    end; 
    end;
     
Загрузка...
Похожие Темы - Рабочая группа (workgroup)
  1. Xulinam
    Ответов:
    19
    Просмотров:
    671
  2. Altaya
    Ответов:
    2
    Просмотров:
    2.155
  3. Akupaka
    Ответов:
    14
    Просмотров:
    4.657
  4. WebWare Team
    Ответов:
    1
    Просмотров:
    767
  5. utilizator
    Ответов:
    4
    Просмотров:
    1.903
Статус темы:
Закрыта.

Поделиться этой страницей