识别U盘盘符的 方法 [复制链接]

我在网上找到个帖子,是如何识别U盘盘符的.可是我看不懂,望大家看看,指点指点. 我是用qt4.1的win版本,也想做同样的事,需要获得U盘盘符以便拷贝东西,利用下面方法可以做到吗?应该怎样做?

DriverList := GetLogicalDrives;

for i := 1 to Length(DriverList) do
begin
if Terminated then Exit;
driver:=Pchar(DriverList + ':\'); //要显示的驱动器名
x := GetDriveType(driver);
Case x of
//该驱动器是可移动驱动器
2: begin end;
//该驱动器是固定驱动器
3: begin end;
//该驱动器是网络驱动器
4: begin end;
//该驱动器是CD-ROM驱动器
5: begin end;
//该驱动器是虚拟驱动器
6: begin end;
//该驱动器无效
else begin end;
End;
end;


function GetLogicalDrives : WideString;
var
drives : set of 0..25;
drive : integer;
begin
Result := '';
DWORD( drives ) := Windows.GetLogicalDrives;
for drive := 0 to 25 do
if drive in drives then
Result := Result + Chr( drive + Ord( 'A' ));
end;

[ 此贴被XChinux在2006-12-24 09:25重新编辑 ]

Delphi?
delphi的代码都拿来了

就是调动win32 的aip而已

网上很多的。