Создал программу для чтения наименования папок в дереве.
При выделении папки в дереве выводятся комментарии к папке, которая находится в файле desktop.ini в той же папке.
Как сделать поле Edit вместо/ниже Labell чтоб можно было добавлять/изменять комментарии относящийся к конкретной папке, нажатием кнопки?
При выделении папки в дереве выводятся комментарии к папке, которая находится в файле desktop.ini в той же папке.
Как сделать поле Edit вместо/ниже Labell чтоб можно было добавлять/изменять комментарии относящийся к конкретной папке, нажатием кнопки?
Код:
#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
$Form1 = GUICreate("Form1", 650, 500, 500, 200)
$TreeView1 = GUICtrlCreateTreeView(8, 30, 273, 417)
$label = GUICtrlCreateLabel('', 300, 30, 200, 20)
$Folder = @DesktopDir
$FileList = _FileListToArray($Folder, '*', 2)
If @Error = 4 Then
MsgBox (0,"","Файлы/папки не найдены.")
Exit
EndIf
$iCount = $FileList[0] ;кол. папок
Local $array[$iCount + 1]
For $i = 1 To $iCount
$sRead = IniRead($Folder & "\" & $FileList[$i] & "\desktop.ini", ".ShellClassInfo", "InfoTip", "Пусто")
$array[$i] = $i & @TAB & $sRead
GUICtrlCreateTreeViewItem($i & ' ' & $FileList[$i], $TreeView1)
Next
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case 4 To $iCount + 4
GUICtrlSetData($label, $array[$nMsg - 4])
EndSwitch
WEnd