После ввода данных,они в шапке висят.
Код:
$s = _Input("test")
Func _Input($Title = "")
Local $GUI = GUICreate($Title, 250, 35); окно ввода
Local $Input = GUICtrlCreateInput("", 10, 10, 120); поле ввода
Local $BtnOK = GUICtrlCreateButton("Сохранить", 150, 8, 100) ;
GUISetState()
Do
Switch GUIGetMsg()
Return SetError(1, GUIDelete($GUI), "")
Case $BtnOK
Local $Text = GUICtrlRead($Input)
FileWriteLine ( "1.txt", $Text )
;GUICtrlSetData($Input, '') ; очистить поле ввода
EndSwitch
Until 0
EndFunc