:: STRCPY - Super Coder's Page

'DRIVE_FIXED'에 해당되는 글 1건

2007/09/19 Detecting Drive Types

2007/09/19 08:26

Detecting Drive Types

2007/09/19 08:26 in Borland Delphi

Here's how to get the types of drives on your computer:

//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 + ':\';
caseGetDriveType(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;

Posted by Super Coder