Get The Drive Type | |||
| |||
procedure TForm1.Button1Click(Sender: TObject); var typ:Integer; s: string; begin s:='C:'; typ:=GetDriveType(PChar(s)); if Typ <> 0 then case typ of DRIVE_REMOVABLE: begin ShowMessage('Drive Removable / Diskette'); end; DRIVE_FIXED: begin ShowMessage('Drive fixed / Festplatte'); end; DRIVE_CDROM: begin ShowMessage('CD ROM Drive'); end; DRIVE_RAMDISK: begin ShowMessage('RAM Drive'); end; DRIVE_REMOTE: begin ShowMessage('Remote Drive / Netzlaufwerk'); end; end; end; Tags: CD ROM Drive Detection Delphi Drive Type External Hard Disk GetDriveType Mass Storage Device RAM Drive Detection Removable Disk Detection | |||
| |||
| |||
Login for comment |