Delphi 中GetLogicalDriveStrings 获取系统中可用的驱动器列表（D2007-XE2通用)

柔光的暖阳◎ 2023-10-07 12:22 6阅读 0赞

procedure TForm1.FormCreate(Sender: TObject);
    var
      buf:array [0..MAX_PATH-1] of char;
      m_Result:Integer;
      i:Integer;
      str_temp:string;
    begin
      m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
      for i:=0 to (m_Result div 4) do
      begin
        str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);
        ListBox1.Items.Add(str_temp);
      end;
     end;

**GetLogicalDriveStrings**

[https://baike.baidu.com/item/GetLogicalDriveStrings/9642156?fr=aladdin][https_baike.baidu.com_item_GetLogicalDriveStrings_9642156_fr_aladdin]

**定义**

DWORD GetLogicalDriveStrings(DWORD nBufferLength, // size of buffer

LPTSTR lpBuffer // drive strings buffer );

**返回值**

返回保存所有数据所需要的字节数，即Buffer缓冲区的实际大小。

一个驱动器占4字节，以下返回结果，返回值长度为12

效果如下：

![20200409103026147.png][]![20200409103044210.png][]

[https_baike.baidu.com_item_GetLogicalDriveStrings_9642156_fr_aladdin]: https://baike.baidu.com/item/GetLogicalDriveStrings/9642156?fr=aladdin
[20200409103026147.png]: https://img-blog.csdnimg.cn/20200409103026147.png
[20200409103044210.png]: https://img-blog.csdnimg.cn/20200409103044210.png

发表评论取消回复

表情：

评论列表（有 0 条评论，6人围观）

还没有评论，来说两句吧...

相关阅读

相关 Delphi2007，XE2 调用GetVersionEx在Win10下为6.1的原因及解决方法

procedure TForm1.Button2Click(Sender: TObject); var OsInfo: TOSVersionInfo

灰太狼/ 2023年10月10日 09:11/ 0 赞/ 17 阅读

相关根据进程PID获取程序所在路径的函数 x32-x64 d7-d2007-xe2通用支持（Delphi全网首发）

{获取进程路径} //此函数64位进程无效，需调用GetProcessImageFileName（32位64位全能） GetModule

青旅半醒/ 2023年10月07日 12:26/ 0 赞/ 6 阅读

相关 Delphi 中GetLogicalDriveStrings 获取系统中可用的驱动器列表（D2007-XE2通用)

procedure TForm1.FormCreate(Sender: TObject); var buf:array [0..MAX_PATH-1

柔光的暖阳◎/ 2023年10月07日 12:22/ 0 赞/ 7 阅读

相关获取Jinja2模板中列表的长度

本文翻译自：[Get lengths of a list in a jinja2 template][] How do I get the number of element

怼烎@/ 2022年11月27日 03:24/ 0 赞/ 157 阅读

相关 delphi xe android 字节,数组 – Delphi XE字节数组索引

问题是： Is a wrap expected within the Byte() cast? 让我们将反汇编与溢出检查打开/关闭进行比较. \{$Q+\} Proje

末蓝、/ 2022年10月16日 00:43/ 0 赞/ 144 阅读

相关 Delphi XE2 之 FireMonkey 入门(1)

原文地址为： [Delphi XE2 之 FireMonkey 入门(1)][Delphi XE2 _ FireMonkey _1] [Delphi][] XE

阳光穿透心脏的1/2处/ 2022年05月17日 10:38/ 0 赞/ 203 阅读

相关 Delphi中的三目运算函数有哪些？(XE10.2+WIN764)

相关资料：https://www.cnblogs.com/rogge7/p/6078903.html 问题现象：在做一个判断时突然想到了C++的三目运算，就在想Delp

比眉伴天荒/ 2022年03月30日 16:25/ 0 赞/ 126 阅读

相关 Delphi XE2 从Excel导入到数据库《LceMeaning》

以下代码经本人在Delphi XE2 下通过编译 uses Comobj; procedure EXCEL1Click(Sender:

╰半夏微凉°/ 2021年12月17日 02:23/ 0 赞/ 392 阅读

相关 Delphi XE5 android 获取网络状态《转》

unit Androidapi.JNI.Network; interface function IsConnected: Boole

超、凢脫俗/ 2021年09月30日 07:06/ 0 赞/ 290 阅读

相关 C++Builder/Delphi XE2 UniDAC安装教程

C++Builder/Delphi XE2 UniDAC安装教程 UniDAC是一个功能强大的非可视化跨数据库的数据访问组件，可用于Delphi，Delphi for .N

Myth丶恋晨/ 2021年09月18日 11:36/ 0 赞/ 675 阅读