Помогите вычислить компонент [Версия для КПК]

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

uonick

19-10-2009, 06:07

Помогите плз вычислить компонент используемый в программе VSubst
http://s11.radikal.ru/i183/0910/5a/ee738d0d371b.png
Он служит выводом списка вирутальных дисков, как можно создать подобный? или это самописный?
(нужен только визуал)
Программа написана на VC++, есть ли аналоги для Delphi (VCL)

pva

19-10-2009, 08:49

(нужен только визуал) »
что имеется ввиду?
как вариант: создать объект 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

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

BlackEric

19-10-2009, 22:43

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

uonick

20-10-2009, 13:18

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

uonick

21-10-2009, 13:26

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

BlackEric

21-10-2009, 23:07

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