怎样在DELPHI中判断某个盘是否为光驱所用的盘? if GetDriveType(PChar(DriveEdit.Text[1]+':\'))=DRIVE_CDROM THEN 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Function DiskIsCDROM:PChar;var Drive:Pchar; i:char;begin for i:='A' to 'Z' do begin drive:=Pchar(i+':\'); if GetDriveType(Drive)=DRIVE_CDROM then begin Result:=drive; break; end else Result:='0'; end;end; cxgrid子表新增记录问题 急求助,ClientDataSet如何调用Oracle的存储过程? delphi怎用调用vc动态连接库类中的函数? 请问DELPHI6上可以安装FR报表控件吗 为什么?! 各位大哥﹐為什么我設filter無法過瀘資料出來﹖﹖ 请教各位一个问题,关于delphi里用sql库内的数据! 编码实现 与 自动生成 的区别??? ADOTable不能Post,怎么回事,请高手赐教…… 开发一个类似美图看看的软件需要什么开发平台和开发费用??? 请问如何使消息窗口出现在最前端! 关于打印的一些问题!多谢关注!
var Drive:Pchar;
i:char;
begin
for i:='A' to 'Z' do
begin
drive:=Pchar(i+':\');
if GetDriveType(Drive)=DRIVE_CDROM then
begin
Result:=drive;
break;
end
else
Result:='0';
end;
end;