드라이브 정보 얻기

function TSearchThread.FindDrive : Boolean;
var
   DriveChar : Char;
begin
   Result := false;

   while DriveChar < 'Z' do begin
      case GetDriveType( PChar(String(DriveChar) + ':') ) of
         0                           : // The drive type cannot be determined.
         1                           : // The root directory does not exist.
         DRIVE_REMOVABLE : // The drive can be removed from the drive.
         DRIVE_FIXED           : // The disk cannot be removed from the drive.
         DRIVE_REMOTE      : // The drive is a remote (network) drive.
         DRIVE_CDROM       : // The drive is a CD-ROM drive.
         DRIVE_RAMDISK     : // The drive is a RAM disk.
      end;
      Inc(DriveCHar);
   end;
end;

'A' 드라이브부터 'Z' 드라이브까지 검색을 반복한다.
특정 드라이브의 종류를 알고 싶다거나, 쓰이는 드라이브의 전체 목록 등을 받기 위해서는,
      위의 소스를 수정해서 원하는 목적에 맞춰서 사용하면 될 것이다.