Delphi 偵測磁碟機類型：GetDriveType 實作範例

存取磁碟機前需知其類型以決定讀寫方式。使用 GetDriveType API 實作：

var
  x: Integer;
  driver: PChar;
begin
  driver := 'f:\';
  x := GetDriveType(driver);
  case x of
    2: Label1.Caption := '可移動磁碟機';
    3: Label1.Caption := '固定磁碟機';
    4: Label1.Caption := '網路磁碟機';
    5: Label1.Caption := 'CD-ROM 磁碟機';
    6: Label1.Caption := '虛擬磁碟機';
    else Label1.Caption := '無效磁碟機';
  end;
end;

回傳值對照：2=可移動、3=固定、4=網路、5=光碟、6=RAM Disk、其他=無效/不存在。