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;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Lines:=GetFlashDisks();

end;

推荐分享