home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / BKUPINI.ZIP / DRVS2LST.C < prev    next >
Text File  |  1990-05-20  |  843b  |  31 lines
  1.        
  2. #define  EXTERN extern
  3. #include "INIPGMS.h"
  4.  
  5. int DrvList2DlgBox( hWndDlg, ID_List )
  6.     HWND hWndDlg ;
  7.     USHORT ID_List ;
  8.     {
  9.      static CHAR szDrive [] = "  :" ;
  10.      SHORT       sDrive ;
  11.      USHORT      usDriveNum ; 
  12.      ULONG       ulDriveMap ;
  13.  
  14.      if( DosQCurDisk (&usDriveNum, &ulDriveMap)  )
  15.          return( -1 );
  16.  
  17.      WinSendDlgItemMsg (hWndDlg, ID_List, LM_DELETEALL, NULL, NULL) ;
  18.  
  19.      for (sDrive = 0 ; sDrive < 26 ; sDrive++)
  20.           if(ulDriveMap & 1L << sDrive)
  21.             {
  22.              szDrive[1] = (CHAR) sDrive + 'A' ;
  23.              WinSendDlgItemMsg(hWndDlg, ID_List, LM_INSERTITEM,
  24.                                MPFROM2SHORT (LIT_END, 0),
  25.                                MPFROMP (szDrive)) ;
  26.             }
  27.  
  28.     return( 0 ) ;
  29.     }          /*   End  DrvList2DlgBox  */
  30.  
  31.