GuiParas equ "Hello World", x660, y50, w400, h300, m4, b LiteBlueGreen ; position, margins, background colour
GuiMenu equ @File, &Open, &Save, -, E&xit, @Edit, Undo, Copy, Paste
include \masm32\MasmBasic\Res\MbGui.asm
GuiControl MyEdit, "edit", 'У меня проблема с "поместить данные в буфер обмена" в русской windows 7x64', font -18, bcol LiteBlueGreen
GuiControl MyStatus, "statusbar", "Use 'Copy' in the menu to copy 'русской' into the clipboard"
Event Command
Switch_ MenuID
Case_ 4 ; case Edit/Copy
.if Instr_(Win$(hMyEdit), "русской")
wSetClip$ wRec$(Left$(eax, 14))
SetStatus$ "String 'русской' copied"
.endif
Case_ 2: invoke SendMessage, hGui, WM_CLOSE, 0, 0
Endsw_
GuiEnd