Delphi 中GetLogicalDriveStrings 获取系统中可用的驱动器列表(D2007-XE2通用)
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
定义
DWORD GetLogicalDriveStrings(DWORD nBufferLength, // size of buffer
LPTSTR lpBuffer // drive strings buffer );
返回值
返回保存所有数据所需要的字节数,即Buffer缓冲区的实际大小。
一个驱动器占4字节,以下返回结果,返回值长度为12
效果如下:
本文来自博客园,作者:IT情深,转载请注明原文链接:https://www.cnblogs.com/wh445306/p/16751828.html