?? 檢測驅動器類型 (2000年8月16日).txt
字號:
檢測驅動器類型 (2000年8月16日)
本站更新 分類: 作者:srw 推薦: 閱讀次數:513
(http://www.codesky.net)
--------------------------------------------------------------------------------
當要知道所選的驅動器屬于什么類型時,請看下面的程序
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -