问大家两个问题：1. 我如何得到光驱所在的盘符; 2. 我如何从光盘上拷文件到指定的文件夹. 我写的代码提示说，无法读取源文件

Question

如题。干分感谢！

Answer 1

GetDriveType 实现查看一下帮助

Answer 2

得到（所有管区盘符）
var
i:integer;
AvailableDrives :dword;
DrivePath:string;
begin
AvailableDrives := GetLogicalDrives;for i:= 0 to 25 doif LongBool(AvailableDrives and ($0001 shl i)) = True thenbeginDrivePath:=Char(Ord('A')+i)+':';case GetDriveType(pchar(DrivePath)) ofDRIVE_CDROM: label1.Caption:=label1.Caption +Drivepath;
end;
end;
end;你指的读取不是直接读取扇区的话，就用copyfile就可以了