Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2012, 21:13   #1
Zhigool'
Пользователь
 
Регистрация: 11.07.2010
Сообщений: 29
По умолчанию в fasm'е, при создании окна, в заголовке получается бессмыслица

Привет всем!
вот код:
Код:
format PE GUI 4.0
entry start
include 'win32w.inc'

section '.data' data readable writeable
_class db 'Simple Window',0
_title db 'Простое окно,0
_error db 'Fail',0

wc WNDCLASS 0,WindowProc,0,0,0,0,0,COLOR_BTNFACE+1,0,_class
msg MSG

section '.code' code readable executable

start:

invoke GetModuleHandle,0
mov [wc.hInstance],eax
invoke LoadIcon,0,IDI_APPLICATION
mov [wc.hIcon],eax
invoke LoadCursor,0,IDC_ARROW
mov [wc.hCursor],eax
invoke RegisterClass,wc

test eax,eax
jz error

invoke CreateWindowEx,WS_EX_APPWINDOW,_class,_title,WS_VISIBLE+WS_SYSMENU,128,128,256,192,0,0,[wc.hInstance],0

cmp eax,0
je error

msg_loop:
invoke GetMessage,msg,NULL,0,0
cmp eax,0
je end_loop

invoke TranslateMessage,msg
invoke DispatchMessage,msg

jmp msg_loop

error:
invoke MessageBox,0,_error,'(',MB_OKCANCEL

end_loop:
invoke ExitProcess,[msg.wParam]

proc WindowProc hwnd,wmsg,wparam,lparam
push ebx esi edi
cmp [wmsg],WM_DESTROY
je .wmdestroy

.defwndproc:
invoke DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
jmp .finish

.wmdestroy:
invoke PostQuitMessage,0
mov eax,0

.finish:
pop edi esi ebx
ret

endp


section '.idata' import data readable writeable

  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL'

  include 'api\kernel32.inc'
  include 'api\user32.inc'
при этом неважно латиница или кириллица в имени окна.
Почему так?
Изображения
Тип файла: jpg Хрень.jpg (5.7 Кб, 58 просмотров)
Zhigool' вне форума Ответить с цитированием
Старый 04.02.2012, 21:24   #2
Zhigool'
Пользователь
 
Регистрация: 11.07.2010
Сообщений: 29
По умолчанию

поменял вот здесь
Код:
_class TCHAR 'Simple Window',0
_title TCHAR 'Простое окно',0
_error TCHAR 'Fail',0
теперь выводится на латинице, а как теперь "русифицировать"?
Zhigool' вне форума Ответить с цитированием
Старый 04.02.2012, 22:17   #3
MadReason
Ищу работу
Форумчанин
 
Аватар для MadReason
 
Регистрация: 16.02.2007
Сообщений: 269
По умолчанию

Код:
format PE GUI 4.0
entry start
include 'win32w.inc'
include 'encoding\win1251.inc'
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
MadReason вне форума Ответить с цитированием
Старый 04.02.2012, 22:31   #4
Zhigool'
Пользователь
 
Регистрация: 11.07.2010
Сообщений: 29
По умолчанию

Спасибо!
Zhigool' вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рисование в заголовке главного окна не работает под Windows 7 в темах Aero vlad1 C++ Builder 0 06.04.2011 21:08
Клик на заголовке окна! RoS Win Api 2 13.12.2010 05:46
Доп кнопка в заголовке окна Лучик_света Win Api 8 11.09.2010 20:43
Свой цвет при создании окна Alex Cones Общие вопросы Delphi 12 24.04.2010 12:56
Необходимо узнать о создании окна Alar Win Api 10 23.11.2007 19:33