Помогите вычислить компонент - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Помогите вычислить компонент (http://forum.oszone.net/showthread.php?t=153616)

Помогите вычислить компонент

Помогите плз вычислить компонент используемый в программе VSubst

Он служит выводом списка вирутальных дисков, как можно создать подобный? или это самописный?
(нужен только визуал)
Программа написана на VC++, есть ли аналоги для Delphi (VCL)

Цитата:

Цитата uonick

(нужен только визуал) »

что имеется ввиду?
как вариант: создать объект activeX "WshNetwork" и перечислить диски функцией EnumNetworkDrives

Код:

         Set WshNetwork = WScript.CreateObject("WScript.Network")

         Set oDrives = WshNetwork.EnumNetworkDrives

         Set oPrinters = WshNetwork.EnumPrinterConnections

         WScript.Echo "Network drive mappings:"

         For i = 0 to oDrives.Count - 1 Step 2

            WScript.Echo "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i+1)

         Next

         WScript.Echo 

         WScript.Echo "Network printer mappings:"

         For i = 0 to oPrinters.Count - 1 Step 2

            WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)

         Next

полученные данные загнать в форму

Подобного отбражения можно добится в VirtualStringTree http://soft-gems.net/ - брать здесь

Спасибо парни! Поставил, тестирую

протестил, это не то :(

Чем не то? Там на сайте есть демо. Можно включить очень похожее изображение