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 微信公众平台 Delphi sdk

Delphi 截屏函数（包含截取鼠标形状）

Delphi实现ping功能的类

Delphi 读取png base64编码文件生成图片

Delphi webbrowser 操作记要

Delphi将图片缩放成指定大小

Delphi使用tnethttpclient：重定向后如何给出最终的url？

Delphi异常处理try except语句和try finally语句用法以及区别

Delphi 使用fastscript调试脚本

Delphi rtf文件转txt函数

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

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