rt
解决方案 »
- CXGRID排序以后 选择记录方式 哪个比较好
- DBchart的放大查看,在线等待您
- 如何判断sql server2000字段类型为image的值是否有数据
- 释放窗体时出的问题?????
- 关于将几个tstringgrid里的内容保存到文件里面的问题[悬赏100分]
- ADOQuery的问题,只要您能第一个解决就是100分。
- 有哪位高手能够帮忙详细讲解一下TQuery中的Params属性的用法!!!
- 如何用Playsound播放声音文件?
- 如何在TWinControl重绘界面时在其界面中画图形?请高手指教
- 请问在delphi的那么多help文件里面,有单独讲类的那个文件吗,叫什么名字谢谢
- 那位有playcase2.56以上版本的,高分相送
- 急需一份需求分析的模板,在线等待!
2 应用 WMI
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.
如果有映射的网络驱动器就不行了
begin
DriveRoot := Chr(t + Ord('a')) + ':\';
if GetDriveType(PChar(DriveRoot)) = DRIVE_CDROM then
//...
end;因为A:、B:肯定不是光驱,只判断光驱可从C:开始,2-25~~~
var curDrive:char;
begin
for curDrive='Z' downto 'D'
if GetDriveType(PChar(curDrive+':\'))=DRIVE_CDROM then
begin
Result:=curDrive+':\';
exit;
end;
raise exception.create('No cdrom detected.');
end;