section '.rsrc' data readable resource from 'rsrc.res'    

503 DIALOG 18, 18, 141, 58
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "About Dialog"
BEGIN
PUSHBUTTON 0, IDOK, 5, 39, 132, 12, WS_CHILD | WS_VISIBLE | WS_TABSTOP
END    

format PE GUI 4.0

include 'win32a.inc'

section '.code' code readable executable
start:
invoke GetModuleHandle, 0
mov [hInstance], eax

invoke DialogBoxParam, eax, 503, 0, dialog_proc, 0 ; ERROR CLASS NOT FOUND
                                                   ; With MASM works pretty ok.
invoke ExitProcess, 0

proc dialog_proc,hDlg,uMsg,wParam,lParam

push ebx esi edi

cmp [uMsg],WM_INITDIALOG
je wmINITDIALOG

cmp [uMsg],WM_CLOSE
je wmCLOSE

jmp wmBYE

wmINITDIALOG:
invoke FindResource, [hInstance], 501, szbinary ; ANOTHER ERROR;
                                                ; See, if you use RC_RTDATA instead of BINARY
                                                ; it works fine. But with MASM "BINARY" works
                                                ; just perfectly.

                                                ; Yes, I changed the RC_RTDATA to BINARY in the
                                                ; .rsrc file too.

mov [hResource], eax

invoke SizeofResource, [hInstance], [hResource]
mov [hResSize], eax

invoke LoadResource, [hInstance], [hResource]
mov [hResData], eax

invoke CreateFile, soundname,GENERIC_WRITE+GENERIC_READ,FILE_SHARE_READ,0,\
           CREATE_ALWAYS,FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_TEMPORARY,0

mov [hFile], eax

invoke WriteFile, [hFile], [hResData], [hResSize], bytwrit, 0

invoke FSOUND_Init, 32000, 64, 0
invoke FMUSIC_LoadSong, soundname
mov [modhandle], eax

invoke FMUSIC_PlaySong, eax
xor eax,eax
pop edi esi ebx
return

wmCLOSE:
invoke FMUSIC_FreeSong, [modhandle]
invoke FSOUND_Close

invoke CloseHandle, [hFile]
invoke DeleteFile, soundname
invoke ExitProcess, 0

wmBYE:
xor eax,eax
pop edi esi ebx
return

endp

section '.data' data readable writeable
soundname db "friendship.dat", 0
szbinary  db "BINARY", 0

modhandle dd ?

hFile     dd ?

hInstance dd ?

hResource dd ?
hResSize  dd ?
hResData  dd ?
bytwrit   dd ?

section '.rsrc' data readable resource from 'rsrc.res'

data import

 library kernel32,'KERNEL32.DLL',\
         user32,'user32.dll',\
         fmod,'fmod.dll'

 import kernel32,\
         CloseHandle, 'CloseHandle',\
         DeleteFile,'DeleteFileA',\
         GetModuleHandle,'GetModuleHandleA',\
         Sleep,'Sleep',\
         FindResource,'FindResourceA',\
         SizeofResource,'SizeofResource',\
         LoadResource,'LoadResource',\
         CreateFile,'CreateFileA',\
         WriteFile,'WriteFile',\
         ExitProcess,'ExitProcess'

 import user32,\
         DialogBoxParam,'DialogBoxParamA'

 import fmod,\
         FSOUND_Init,'_FSOUND_Init@12',\
         FMUSIC_LoadSong,'_FMUSIC_LoadSong@4',\
         FMUSIC_PlaySong,'_FMUSIC_PlaySong@4',\
         FMUSIC_FreeSong,'_FMUSIC_FreeSong@4',\
         FSOUND_Close,'_FSOUND_Close@0'

end data