如何判斷是否有該磁碟機?

發文回覆瀏覽次數：1612

推到 Plurk!

推到 Facebook!

答題得分者是：hagar

skurama
中階會員

發表：88
回覆：127
積分：73
註冊：2002-07-22

發送簡訊給我

#1 引用回覆回覆

發表時間：2002-08-26 12:14:01

IP:61.219.xxx.xxx 未訂閱

目前我知道可以利用GetLogicalDriveStrings()來取得可以使用的磁碟機，然後在判斷目前我要找的磁碟機是否在GetLogicalDriveStrings所傳回的值中。請問是否有什麼函式可以直接判斷某個磁碟機或網路磁碟機是否存在或連線!?

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

hagar
版主

發表：143
回覆：4056
積分：4445
註冊：2002-04-14

發送簡訊給我

#2 引用回覆回覆

發表時間：2002-08-26 13:55:23

IP:211.22.xxx.xxx 未訂閱

ex:

function HasDrive(DriveLetter: Char): Boolean;
var
  ld : DWORD;
  i : integer;
  sl: TStringList;
begin
  ld := GetLogicalDrives;
  sl := TStringList.Create;
  try
    for i := 0 to 25 do begin
      if (ld and (1 shl i)) <> 0 then
        sl.Add(Char(Ord('A')   i));
    end;
    Result := (sl.IndexOf(DriveLetter) <> -1);
  finally
    sl.Free;
  end;
end;

用法:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if HasDrive('C') then
    ShowMessage('Drive C is valid')
  else
    ShowMessage('Drive C is invalid');
end;

發表人 - hagar 於 2002/08/26 13:57:50

系統時間：2024-04-19 22:45:19

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！