取得磁碟機列表及類別

bestlong

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3. Drive: Char;
   
4. DriveLetter: String[4];
   
5. begin
   
6. for Drive := 'A' to 'Z' do
   
7. begin
   
8.   DriveLetter := Drive + ':\';
   
9.   case GetDriveType(PChar(Drive + ':\')) of
   
10.    DRIVE_REMOVABLE:
    
11.     Memo1.Lines.Add(DriveLetter + ' Floppy Drive');
    
12.    DRIVE_FIXED:
    
13.     Memo1.Lines.Add(DriveLetter + ' Fixed Drive');
    
14.    DRIVE_REMOTE:
    
15.     Memo1.Lines.Add(DriveLetter + ' Network Drive');
    
16.    DRIVE_CDROM:
    
17.     Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive');
    
18.    DRIVE_RAMDISK:
    
19.     Memo1.Lines.Add(DriveLetter + ' RAM Disk');
    
20.    end;
    
21. end;
    
22. end;

複製代碼