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 图像自动调整显示

Delphi 获取其他进程句柄的几种方法

Delphi 时间与字符串

Delphi 根据进程id获取程序ico图标

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi中case语法的使用方法

Delphi dbgrid查询内容的导出为txt函数

Delphi removedir 删除文件夹

Delphi 强制删除文件 zwdeletefile

tmsweb core 组件居中显示

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



打赏

取消

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

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

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

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

评论

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