delphi获取盘符代码


本文整理自网络,侵删。

 

delphi获取盘符代码

unction GetDriverList():TStrings;
var
Index:Integer;
S:string;
List:TStringList;
begin
SetLength(S,255);
FillChar(S[1],255,#0);
List := TStringList.Create();
GetLogicalDriveStrings(255,Pointer(S));//GetLogicalDriveStrings 是获取所有逻辑磁盘字母,D,E...”
for Index := 1 to 255 do
if S[Index] = #0 Then S[Index] := ',';
List.CommaText := S;
Result := TStringList.Create();
for Index := 0 to List.Count - 1 do
if List.Strings[Index] <> '' then Result.Add(List.Strings[Index]);
List.Free();
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List:TStrings;
begin
List := GetDriverList();
ShowMessage(List.Text);
List.Text;
end;

相关阅读 >>

Delphi里实现获取资源管理器路径以及ie打开网址列表

Delphi 读取文件获取指定字符串

Delphi 关闭icesword等

Delphi 让"显示桌面"功能对你的窗口无效

Delphi 中文大写日期转换函数

Delphi 判断目录是否有写入权限

Delphi idhttp添加头信息

Delphi xe6 android 界面皮肤美化 用stylebook

强大的Delphi rtti--兼谈需要了解多种开发语言

Delphi 通过程序窗体句柄获取程序路径

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...