GetExplorerListGadgetPath

Синтаксис

Function GetExplorerListGadgetPath(byval gadget As long) As String

Описание

Получает путь текущего каталога в ExplorerListGadget

Параметры

gadget - номер гаджета

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HWND LWHwnd
CenterWindow(OpenWindow("",10,10,440,400))
ExplorerListGadget(1,10,10)
ButtonGadget(2,10,330,100,20,"Get Path")
Do
Var ev = WaitEvent()
Select Case ev
 Case eventclose
  Exit Do
 Case eventgadget
  If eventnumber = 2  Then
   MessBox("",GetExplorerListGadgetPath(1))
  EndIf
End Select
Loop

Created with the Personal Edition of HelpNDoc: Produce electonic books easily