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

//聲明: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;