Delphi 获取闪盘列表

本文整理自网络，侵删。

 
function GetFlashDisks: TStrings;
var
  buf: array[0..MAX_PATH - 1] of Char;
  M_Result: Integer;
  i: Integer;
  tmpStr: string;
begin
  Result := TStringList.Create;
  M_Result := GetLogicalDriveStrings(MAX_PATH, buf);
  for i := 0 to (M_Result div 4) do
  begin
    tmpStr := string(buf[i * 4] + buf[i * 4 + 1] + buf[i * 4 + 2]);
    if GetDriveType(Pchar(tmpStr)) = DRIVE_REMOVABLE then
    begin
      Result.Add(tmpStr);
    end;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines:=GetFlashDisks();
end;
 

相关阅读 >>

Delphi splitstring 字符串分割成字符串组

Delphi fastreport 直接列印

Delphi任务对话框ttaskdialog类介绍

Delphi驱动方式winio模拟按键

Delphi 代码查询一个json ip 地址的归属地

Delphi实现抓屏压缩并保存桌面图片

Delphi 获取当前系统语言环境（en，fr，ja等）

Delphi 调用clipboard 收集剪切板信息

Delphi资源文件的详细使用方法

Delphi 时间转成大写

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

转载请注明出处：木庄网络博客 » Delphi 获取闪盘列表