Цитата malev79@vk:
А так было бы неплохо если сразу бы без кнопки в начало переходил »
|
Код:

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
$hGUI = GUICreate("Test Script", 300, 200)
$PathInput = GUICtrlCreateInput("Выберите...", 20, 30, 100, 20)
$PathButton=GUICtrlCreateButton("...", 120, 30, 30, 20)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $PathButton
$var = FileOpenDialog("Выберите нужный файл", @systemDir & "\", "Рисунки (*.jpg;*.bmp)", 1, "OEMLogo.bmp")
if Not @error Then
GUICtrlSetData($PathInput, $var)
else
GUICtrlSetData($PathInput, "Выберите...")
endif
GUICtrlSendMsg($PathInput, $EM_SETSEL, 0, 0)
EndSwitch
WEnd