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 如何将颜色值转换为html格式？

Delphi fmx检查应用程序状态更改

Delphi 中的自动引用计数使用规则

Delphi 获取外部程序句柄与发送消息

Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄

Delphi启动/停止windows服务,启动类型修改为"自动"

decodedatetime：将一个tdatetime变量拆分成它的日期/时间 部分

Delphi exec error 错误处理

Delphi playsound()函数应用

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

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