Перечислить диски

Советы » Диски » Перечислить диски

{ 
  Adds all fixed drives into Combobox1. 
  To enumerate another type of drive, 
  i.e all CD-ROMs just change the DRIVE_FIXED constant to DRIVE_CDROM. 

  Fugt all fixen Laufwerke in Combobox1 ein. 
  Um z.B alle CD-Rom Laufwerke zu ermitteln, 
  einfach DRIVE_CDROM anstatt die Konstante DRIVE_FIXED nehmen. 
}

 procedure List_Drives;
 const

   DRIVE_UNKNOWN = 0;
   DRIVE_NO_ROOT_DIR = 1;
   DRIVE_REMOVABLE = 2;
   DRIVE_FIXED = 3;
   DRIVE_REMOTE = 4;
   DRIVE_CDROM = 5;
   DRIVE_RAMDISK = 6;
 var

   r: LongWord;
   Drives: array
[0..128] of
 char;
   pDrive: PChar;
 begin

   r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
   if
 r = 0 then
 Exit;
   if
 r > SizeOf(Drives) then

     raise
 Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
   pDrive := Drives;
   while
 pDrive^ <> #0 do

   begin

     if
 GetDriveType(pDrive) = DRIVE_FIXED then

       Form1.ComboBox1.Items.Add(pDrive);
     Inc(pDrive, 4);
   end
;
 end
;

Перечислить диски

Другое по теме:

Категории

Статьи

Советы