var x:integer; drive:string; found:boolean; i:char; begin found:=false; for i:='a' to 'z' do begin drive:=i+':'; x:=getdrivetype(pchar(drive)); if x=5 then begin found:=True; break; end; if found then label1.caption:='光驱盘符为'+i+':'; else label1.caption:='未检测到光驱'; end;xixi, 偶刚想给自己加分的,咱们两个一人一半吧。
drive:string;
found:boolean;
i:char;
begin
found:=false;
for i:='a' to 'z' do
begin
drive:=i+':';
x:=getdrivetype(pchar(drive));
if x=5 then
begin
found:=True;
break;
end;
if found then
label1.caption:='光驱盘符为'+i+':';
else
label1.caption:='未检测到光驱';
end;xixi, 偶刚想给自己加分的,咱们两个一人一半吧。