delphi 获取所有U盘盘符

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;