怎样获得U盘的盘符(100分)

  • 主题发起人 主题发起人 camin920
  • 开始时间 开始时间
C

camin920

Unregistered / Unconfirmed
GUEST, unregistred user!
假如我的系统中有两个U盘,我怎样才能获得那个U盘对应的是那个盘符!
 
逐一测试:
var sDrive:String;
begin
for D:=0 to 25do
begin
sDrive:=Chr(ord('A')+D)+':';
if GetDriveType(PChar( sDrive ))=DRIVE_REMOVABLE then
ShowMessage( sDrive + '是可移动盘');
end;
end;
 
var sDrive:String;
begin
for D:=0 to 25do
begin
sDrive:=Chr(ord('A')+D)+':';
if GetDriveType(PChar( sDrive ))=DRIVE_REMOVABLE then
ShowMessage( sDrive + '也可能是光盘);
end;
end;
[:D]
我也想知道
 
当要知道所选的驱动器属于什么类型时,请看下面的程序
var x:integer;
driver:pchar;
begin

driver:='f:/';
x := GetDriveType(driver);
Case x of
2: Label1.Caption := '该驱动器是可移动驱动器';
3: Label1.Caption := '该驱动器是固定驱动器';
4: Label1.Caption := '该驱动器是网络驱动器';
5: Label1.Caption := '该驱动器是CD-ROM驱动器';
6: Label1.Caption := '该驱动器是虚拟驱动器';
else
Label1.Caption := '该驱动器无效';
end;

end;
 
我决得这个网址大全很实用的,请大家多多支持
http://16311.855.com
 
哈哈,问题已解决.
 
如何解决的?给说一下啊
 
楼主说说 让俺们 学习学习
 
不是有那个U盘小偷吧,2ccc上就有认不出U盘还偷什么!
 
后退
顶部