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

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

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

    -=zuk=- Гость

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

    Barmutik Гость

    Если для локального компа то можно

    Код (Text):
    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 Гость

    Более правильно так:

    Код (Text):
    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. Altaya
    Ответов:
    2
    Просмотров:
    2.053
  2. Akupaka
    Ответов:
    14
    Просмотров:
    4.494
  3. WebWare Team
    Ответов:
    1
    Просмотров:
    241
  4. utilizator
    Ответов:
    4
    Просмотров:
    1.774
  5. Karavella
    Ответов:
    3
    Просмотров:
    2.314
Статус темы:
Закрыта.

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