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 simple resource api replacement

Delphi 给gmail发送邮件

Delphi 编写ie代理服务器

Delphi用代码实现注册ocx和dll

Delphi 调用cmd获取java 版本号

Delphi idhttp post 普通提交乱码处理

Delphi 技巧 以相同类名派生一个子类

Delphi new 为指针分配内存空间

Delphi 获取外网ip的函数

Delphi中自适应窗体的实现

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



打赏

取消

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

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

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

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

评论

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