Delphi

pva · Отправлено: **08:49, 19-10-2009** | #2

Цитата 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

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

BlackEric · Отправлено: **22:43, 19-10-2009** | #3

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

uonick · Отправлено: **13:18, 20-10-2009** | #4

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

uonick · Отправлено: **13:26, 21-10-2009** | #5

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

BlackEric · Отправлено: **23:07, 21-10-2009** | #6

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