GUI приложение x64

[Berlioz]

Всем привет! Пишу на FASM x64 программу

Взял из папки examples в качестве примера прорамму DIALOG

Следующий код работает на ура на x32, но не работает на x64.

cmp [wparam], BN_CLICKED shl 16 + IDC_BTN1
je .message

Поясняю: при нажатии на кнопку идет вызов сообщения. На х32 все хорошо, на х64 словно на эту кнопу нет события.

В чем проблема?

[Dizelektwo]

В Win 64 нет эмулятора DOS, следовательно работать с 16битными регистрами ты не сможешь.
Пробуй на виртуальной машине.

[Пепел Феникса]

В Win 64 нет эмулятора DOS, следовательно работать с 16битными регистрами ты не сможешь.
Пробуй на виртуальной машине.

вы чего?
какой нафиг дос?

[veniside]

cmp dword ptr [wparam], бла-бла

вроде как. Если не указывать размер, оно 8 байт будет сравнивать, если не ошибаюсь.

[Mikl___]

veniside
так при передаче параметров процедуре WndProc параметры hWnd, umsg, lparam и wparam должны уже быть описаны как DWORD

[f.hump]

cmp dword ptr [wparam], бла-бла

вроде как. Если не указывать размер, оно 8 байт будет сравнивать, если не ошибаюсь.

мысль правильная, только если это честные 64 бита, то длина wparam тоже 64 бита, более того в 64-м режиме если размер не указан явно предпочтение отдается размеру в 32 бита.
итого:

cmp QWORD PTR [wparam], BN_CLICKED shl 16 + IDC_BTN1

[Berlioz]

Все равно не пашет, хоть ты тресни
Вот код

format PE64 GUI 4.0
entry start

include '\fasm\include\win64a.inc'
include 'gui.inc'

section '.data' data readable writable
_title db 'Title from GUI',0
_message db 'Message',0

section '.code' code readable executable
start:

sub rsp,8*5

invoke GetModuleHandle, 0
invoke DialogBoxParam,rax,1000,HWND_DESKTOP,DialogProc,0

or      rax,rax
jz      exit

invoke  MessageBox,0 ,0, 0, 40h

exit:
invoke  ExitProcess, 0

proc DialogProc hwnddlg,msg,wparam,lparam
        push    rbx rsi rdi
        cmp     [msg],WM_COMMAND
        je      .wmcommand
        cmp     [msg],WM_INITDIALOG
        je      .wminit
        cmp     [msg],WM_CLOSE
        je      .wmclose
        xor     rax,rax
        jmp     .finish
  .wmcommand:
        cmp     [wparam],BN_CLICKED shl 16 + IDC_BTN2
        je      .wmclose
        cmp     [wparam],BN_CLICKED shl 16 + IDC_BTN1
        je      .message
  .wminit:
         jmp .processed
  .message:
        invoke  FindWindow, 0, 0
        invoke  MessageBox, rax, _message, _title, 40h
        ret
  .wmclose:
        invoke  EndDialog,[hwnddlg],0
  .processed:
        mov     rax,1
  .finish:
        pop     rdi rsi rbx
        ret
endp

section '.rsrc' resource data readable

directory RT_DIALOG,dialogs,\
          RT_ICON,icons,\
          RT_GROUP_ICON,group_icons

include "dialogs.tab"

include "dialogs.dat"

resource icons,\
         1,LANG_NEUTRAL,icon_data
resource group_icons,\
         114,LANG_NEUTRAL,main_icon
icon main_icon,icon_data,'gui.ico'


section '.idata' import data readable writeable

library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

import kernel,\
         GetModuleHandle,'GetModuleHandleA',\
         ExitProcess,'ExitProcess'

import user,\
         DialogBoxParam,'DialogBoxParamA',\
         CheckRadioButton,'CheckRadioButton',\
         FindWindow, 'FindWindowA',\
         RegisterClass,'RegisterClassA',\
         GetDlgItemText,'GetDlgItemTextA',\
         IsDlgButtonChecked,'IsDlgButtonChecked',\
         LoadIcon, 'LoadIconA',\
         MessageBox,'MessageBoxA',\
         EndDialog,'EndDialog'

В dialogs.dat содержится сама форма программы

[f.hump]

только кнопка не работает?

proc DialogProc

        cmp     edx, WM_COMMAND
        je      .wmcommand
        cmp     edx, WM_INITDIALOG
        je      .wminit
        cmp     edx, WM_CLOSE
        je      .wmclose
        xor     rax,rax
        jmp     .finish
  .wmcommand:
        cmp     r8, BN_CLICKED shl 16 + IDC_BTN2
        je      .wmclose
        cmp     r8, BN_CLICKED shl 16 + IDC_BTN1
        je      .message
  .wminit:
         jmp .processed
  .message:
        invoke  FindWindow, 0, 0
        invoke  MessageBox, rax, _message, _title, 40h
        ret
  .wmclose:
        invoke  EndDialog, rcx, 0
  .processed:
        mov     rax,1
  .finish:

        ret
endp

[Berlioz]

Сообщение от f.hump

только кнопка не работает?

Не работает вообще ни один вызов из данной процедуры:

Программа не закрывается нажатием на "X", кнопки не работают, Alt+F4 тоже не работает

[f.hump]

подкорректированную DialogProc пробовал? тот же результат?