Оперделение доступных ресурсво по названию компьютера

← →
Kross (2004-10-16 19:28) [0]

Столкнулся с проблемой.
Нужно определить доступные ресурсы по названию компьютера.
В статье http://www.delphimaster.ru/articles/netmon/index.html написано, но определение ресурсов другово компьютера не дает результатов. Работает только при значение nil.
Вообщем кто знает подскажите сабж.

← →
Rouse_ © (2004-10-17 12:20) [1]

Работает, но только если у тебя есть права админа...
Если же их нет, то нужно использовать другую структуру...

PShareInfo1 = ^_SHARE_INFO_1; _SHARE_INFO_1 = record shi1_netname: LMSTR; shi1_type: DWORD; shi1_remark: LMSTR; end; TShareInfo1 = _SHARE_INFO_1; type TShareInfo1Array = array of TShareInfo1; var entriesread, totalentries: DWORD; Info: Pointer; I: Integer; CompName: PWideChar; begin CompName := StringToOleStr(GetCompName(FIP)); if CompName = RES_UNKNOWN then Exit; FRes := TStringList.Create; try Fres.Add(CompName); if NetShareEnum(CompName, 1, Info, DWORD(-1), @entriesread, @totalentries, nil) = 0 then try if entriesread > 0 then begin for I := 0 to entriesread - 1 do FRes.Add(TShareInfo1Array(@(Info^))[I].shi1_netname); Synchronize(UpdateTree); end; finally NetApiBufferFree(Info); end; finally FRes.Free; end;

полный код здесь:

http://rouse.front.ru/1.rar

← →
Stef (2004-10-17 12:37) [2]

Просто огромное такое пасибо. В который раз я узнаю что то новое для себя из твоих программ

> [2] Stef (17.10.04 12:37)
Да незачто:)
Там кстати еще несколько такого же плана демок интересных есть...
Светую посмотреть :)

Оперделение доступных ресурсво по названию компьютера Найти похожие ветки