Problem with DLL...

I try to write a DLL in FASM bu I have not success...

It's a source of DLL:

Code:

format PE GUI 4.0 DLL
entry start
include '%fasminc%\win32a.inc'
cdopen        db 'set cdaudio door open',0
cdclose       db 'set cdaudio door closed',0

proc start DhInst,DReason,DReserved
      mov        eax,TRUE
      ret
endp

proc cdcontrol AcT
      cmp        [AcT],1
      jz         .opencd
      cmp        [AcT],2
      jz         .closecd
      xor        eax,eax
      inc        eax
      ret
.opencd:
      invoke     mciSendString,cdopen,0,0,0
      xor        eax,eax
      ret
.closecd:
      invoke     mciSendString,cdclose,0,0,0
      xor        eax,eax
      ret
endp

data import
        library winmm,'winmm.dll'
        import  winmm,mciSendString,'mciSendStringA'
end data

data export
      export     'DLL.DLL',\
                 cdcontrol,'cdcontrol'
end data

and here I try to load it:

Code:

format PE GUI 4.0
entry start
include '%fasminc%\win32a.inc'
start:
        invoke  cdcontrol,1
        ret
data import
     library  DLL,'DLL.DLL'
     import   DLL,\
              cdcontrol,'cdcontrol'
end data

invoke cdcontrol,1
It must open a cd-rom... But... Sad