小问题

[rainbow_wang]

请问高手怎样取得当前电脑的光区驱动器名称?

[gxyc826]

当要知道所选的驱动器属于什么类型时，请看下面的程序
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;

[Liujc]

for i:= 0 to 25 do
begin
if GetDriveType(PChar(Chr(i+Ord('A'))+':\')) = DRIVE_CDROM then
begin
//Chr(i+Ord('A')) 即为光驱盘符
end;
end;