Uses
Windows;
Function GetFirstCDROM:Char;
var
Ch : Char;
S : string;
begin
for Ch := 'D' to 'Z' do
begin
s := Ch + ':\';
if GetDriveType(PChar(s)) = DRIVE_CDROM then
Begin
Result:=Ch;
Break;
End;
end;
End;
Windows;
Function GetFirstCDROM:Char;
var
Ch : Char;
S : string;
begin
for Ch := 'D' to 'Z' do
begin
s := Ch + ':\';
if GetDriveType(PChar(s)) = DRIVE_CDROM then
Begin
Result:=Ch;
Break;
End;
end;
End;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货