AkelPad и другие приложения

[Skif_off]

VladSh
После регистрации ни о какой портативности не может быть речи Не говоря уже о том, что может не хватить прав для подобного.

[Andrey_A_A]

Code: Select all

не изменит файл и AkelPad не выдаст запрос на сохранение изменений

Skif_off, вот 2 варианта:

Code: Select all

#include <GuiEdit.au3>
#include <GUIConstantsEx.au3>
_GUICtrlEdit_SetText($hEdit, 'привет')
_GUICtrlEdit_SetModify($hEdit,True)

При этом не будет отмены)

или

Code: Select all

$hAkelPad = WinGetHandle('[Class:AkelPad4]')
If Not $hAkelPad Then Exit 
$hEdit=ControlGetHandle($hAkelPad,'','AkelEditW1')
_SendMessage($hAkelPad, 273, 4157, 0)
ControlCommand($hEdit,'','','EditPaste','привет')

Func _SendMessage($hWnd,$iMsg,$wParam=0,$lParam=0,$iReturn=0,$wParamType="wparam",$lParamType="lparam",$sReturnType="lresult")
 	$aResult=DllCall("user32.dll",$sReturnType,"SendMessageW","hwnd",$hWnd,"uint",$iMsg,$wParamType,$wParam,$lParamType,$lParam)
 	Return @error ? SetError(@error,@extended,"") : (($iReturn>=0 And $iReturn<=4) ? $aResult[$iReturn] : $aResult)
EndFunc

Есть и отмена и изменения на лицо