Delphi 中GetLogicalDriveStrings 获取系统中可用的驱动器列表

Delphi 中GetLogicalDriveStrings 获取系统中可用的驱动器列表

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;

返回值

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

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

效果如下：