Что нового

Drag'n'drop файла на форму, и получение полного пути к файлу.

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Drag'n'drop файла на форму, и получение полного пути к файлу.
Как это сделать?
 
Автор
_Lexa98_

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Как выделить путь из этого:
Код:
#NoTrayIcon

$Gui = GUICreate("Aut2Exe",  300, 94, -1, -1, -1, 0x00000010)

$filemenu = GUICtrlCreateMenu ("Файл")
$Readme = GUICtrlCreateMenuitem ("О программе",$filemenu)
$Quit = GUICtrlCreateMenuitem ("Выход",$filemenu)

$Input1 = GUICtrlCreateLabel('', 0, 0, 300, 94)
GUICtrlSetState(-1, 136)
GUICtrlCreateLabel ("Кинь сюда файл для конвертации", 10,2,280,17)

GUISetState ()

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = -13


               $filename=StringRegExp(@GUI_DRAGFILE,4)  ;<-------Этого


            ; Case $msg = $folder1
                ; $folder01 = FileOpenDialog("Указать файл", @WorkingDir & "", "Все файлы (*.*)", 1 + 4 )
                ; If @error Then ContinueLoop
                ; GUICtrlSetData($Input1, $folder01)
                
            Case $msg = $Readme
                MsgBox(0, 'Readme', 'Compiler')
            Case $msg = -3 Or $msg = $Quit
                Exit
        EndSelect
    WEnd
 

AZJIO

Меценат
Меценат
Сообщения
2,874
Репутация
1,194
_Lexa98_
Код:
$Gui = GUICreate("Aut2Exe", 300, 94, -1, -1, -1, 0x00000010)
$Input1 = GUICtrlCreateLabel('', 0, 0, 300, 94)
GUICtrlSetState(-1, 128 + 8)
GUISetState()
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = -13
			MsgBox(0, 'Сообщение', @GUI_DragFile)
		Case $msg = -3
			Exit
	EndSelect
WEnd
 
Верх