; Plug-Ins Template
format PE GUI 4.0 DLL
entry DLLEntryPoint
include '%fasminc%\win32a.inc'

; --- EQUATES ---
FM_PLUG = WM_USER + 10

; For plugins on menu make:
IDM_IMPORT = 1420

FMI_MAKE = 3
FMI_MAKE_RUN = 3
section '.data' data readable writeable

about       db 'Template - Fasmer Plug-Ins',0
temp_msg   db 'This plug-ins actually does nothing.',0
_menu_voice db 'Plugins template',09h,'Ctrl+P',0
;. end section '.data'

section '.code' code readable executable

proc Actions,hwnd,wmsg,wparam,lparam
        .mi MENUITEMINFO
    enter
       mov eax,[wmsg]
      cmp eax,WM_COMMAND
  je .wmcommand
       cmp eax,FM_PLUG
     je .fmplug
.wmcommand:
       mov     eax,[wparam]
        cmp     [lparam],0
  jne     .done
.menu_command:
 and     eax,0FFFFh
  cmp     eax,IDM_IMPORT
      je      .idmimport
  jmp .done
.idmimport:
        invoke MessageBox,[hwnd],temp_msg,about,MB_OK
       jmp .done
.fmplug:
   mov [.mi.cbSize],sizeof.MENUITEMINFO
        mov [.mi.wID],IDM_IMPORT
    mov [.mi.fMask],MIIM_TYPE
   mov [.mi.fType],MFT_STRING
  mov [.mi.dwTypeData],_menu_voice
    invoke GetMenu,[hwnd]
       invoke GetSubMenu,eax,FMI_MAKE
      lea edx,[.mi]
       invoke InsertMenuItem,eax,FMI_MAKE_RUN,TRUE,edx
     jmp .done
.done:
     mov     eax,TRUE
    return
endp

proc DLLEntryPoint, hinstDLL,fdwReason,lpvReserved
    enter
       mov eax,[fdwReason]
 cmp     eax,DLL_PROCESS_DETACH
      je      .detach
     cmp     eax,DLL_PROCESS_ATTACH
      jne     .done
  .attach:
  .detach:
  .done:
   mov     eax,TRUE
    return
  .failed:
    mov     eax,FALSE
   return
endp

;. end section '.code'

section '.edata' export data readable

; Remember: all functions here must be sorted
export 'PLUGINS.DLL',\ 
       Actions,'Actions'

;.

section '.idata' import data readable writeable

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

import kernel32,\
      CloseHandle,'CloseHandle',\
      CreateFile,'CreateFileA',\
       ExitProcess,'ExitProcess',\
      GetCommandLine,'GetCommandLineA',\
       GetFileSize,'GetFileSize',\
      GetProcessHeap,'GetProcessHeap',\
        GetStdHandle,'GetStdHandle',\
    HeapAlloc,'HeapAlloc',\
  HeapFree,'HeapFree',\
    LoadLibraryEx,'LoadLibraryExA',\
 ReadFile,'ReadFile',\
    WriteFile,'WriteFile'

import user32,\
     GetMenu,'GetMenu',\
      GetSubMenu,'GetSubMenu',\
        InsertMenuItem,'InsertMenuItemA',\
       MessageBox,'MessageBoxA'
;. end section '.idata'

section '.reloc' fixups data readable discardable