程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi調用WinAPI: GetLogicalDrives - 判斷系統中存在的邏輯驅

Delphi調用WinAPI: GetLogicalDrives - 判斷系統中存在的邏輯驅

編輯:Delphi

//聲明:GetLogicalDrives: DWord; {無參數}
//返回值:
返回值的二進制右邊第一位為 1 表示驅動器 A: 存在;
返回值的二進制右邊第二位為 1 表示驅動器 B: 存在...以次類推.

//舉 例:

procedure TForm1.FormCreate(Sender: TObject);
var
 Drives: DWord;
 i: Integer;
begin
 Drives := GetLogicalDrives;
 Memo1.Clear;
 for i := 0 to 25 do {最多 26 個字母都用上}
  if LongBool(Drives and ($0001 shl i)) = True then
   Memo1.Lines.Add(Char(Ord('A')+i) + ':\');
end;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved