destoryprogressbox.f90

来自「Intel Visual Fortran 应用程序开发 周振红编著」· F90 代码 · 共 20 行

integer function DestroyProgressBox( context )
  !DEC$ ATTRIBUTES DLLEXPORT::DestroyProgressBox
  use ProgressBoxTypes
  use user32
  implicit none
  ! Arguments
  type(PBContext) context
  ! Variables
  logical lret
  ! Body of DestroyProgressBox
  DestroyProgressBox = PBStatus_OK
  ! Enable the parent window
  if ( context % bEnableParent ) then
    lret = EnableWindow( context % hwndParent, .TRUE. )
  end if
  ! Free the dialog structure
  call DlgExit( context % PBDlg )
  call DlgUninit( context % PBDlg )
  deallocate( context % PBDlg )
end function DestroyProgressBox