function CDROM: string;
var
i: Integer;
begin
Result := '';
for i := Ord('c') to Ord('z') do
if GetDriveType(PChar(char(i) + ':\')) = DRIVE_CDROM then
Result := Result + char(i);
end;
var
i: Integer;
begin
Result := '';
for i := Ord('c') to Ord('z') do
if GetDriveType(PChar(char(i) + ':\')) = DRIVE_CDROM then
Result := Result + char(i);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货