bestlong 怕失憶論壇

標題: 取得磁碟機列表及類別 [打印本頁]
作者: bestlong    時間: 2007-11-10 16:28     標題: 取得磁碟機列表及類別

  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;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5