dllmain.f90

Intel Visual Fortran 应用程序开发 周振红编著

integer(4) function DllMain (hInst, ul_reason_being_called, lpReserved)
!DEC$ IF DEFINED(_X86_)
!DEC$ ATTRIBUTES STDCALL, ALIAS : '_DllMain@12' :: DllMain
!DEC$ ELSE
!DEC$ ATTRIBUTES STDCALL, ALIAS : 'DllMain' :: DllMain
!DEC$ ENDIF
  use ProgressBox
  implicit none
  ! Arguments
  integer(4) hInst
  integer(4) ul_reason_being_called
  integer(4) lpReserved
  !  Save the module instance handle in a global variable
  ghinst =  hInst
  !  Return 1 to indicate success
  DllMain = 1
  return
end function DllMain