Detecting Drive Types | |||
| |||
//Note: you will need one button and //one memo on your form, for this tip... procedure TForm1.Button1Click(Sender: TObject) ; var Drive: Char; DriveLetter: String[4]; begin for Drive := 'A' to 'Z' do begin DriveLetter := Drive + ':'; case GetDriveType(PChar(Drive + ':')) of DRIVE_REMOVABLE: Memo1.Lines.Add(DriveLetter + ' Floppy Drive') ; DRIVE_FIXED: Memo1.Lines.Add(DriveLetter + ' Fixed Drive') ; DRIVE_REMOTE: Memo1.Lines.Add(DriveLetter + ' Network Drive') ; DRIVE_CDROM: Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive') ; DRIVE_RAMDISK: Memo1.Lines.Add(DriveLetter + ' RAM Disk') ; end; end; end; Tags: BlockInput DRIVE_CDROM DRIVE_FIXED DRIVE_RAMDISK DRIVE_REMOTE DRIVE_REMOVABLE Delphi GetDriveType chkdsk | |||
| |||
| |||
Login for comment |