| 本月文章推荐 |
得到当前的光驱的盘符发表日期：2006-2-4
|
|
procedure GetCDROM(var CD:char);
var str:string; Drivers:Integer; driver:char; i,temp:integer; begin Drivers:=GetLogicalDrives; temp:=(1 and Drivers); for i:=0 to 26 do begin if temp=1 then begin driver:=char(i+integer('a')); str:=driver+':'; if GetDriveType(pchar(str))=DRIVE_CDROM then begin cd:=driver; exit; end; end; drivers:=(drivers shr 1); temp:=(1 and Drivers); end; end; |
| 上一篇：用pascal写的最简单的winsock程序
人气:4404 下一篇：准备迎接Kylix 人气:3288 |
| 浏览全部Delphi的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
