procedure TForm1.Button1Click(Sender: TObject);
begin
if DiskSize(1) = -1 then
ShowMessage('没有软盘')
else
ShowMessage('有软盘');
// 其中函数 DiskSize 中的参数 1 代表 A 驱,相应的 2 代表 B 驱
end;
begin
if DiskSize(1) = -1 then
ShowMessage('没有软盘')
else
ShowMessage('有软盘');
// 其中函数 DiskSize 中的参数 1 代表 A 驱,相应的 2 代表 B 驱
end;
解决方案 »
- Undeclared identifier: 'ActiveControl'
- 一个很简单的问题
- 我写了一个简体转繁体的ASP组件
- Delohi中有没有统计一段代码执行时间的函数?马上结帖
- 串口编程(SPComm)问题,困扰已久,望各位不吝赐教!
- ■■■■■■这到底是个什么错误?????????????◆◆◆◆◆◆◆◆◆◆●●●●●●
- 如何在DLL文件中查看DLL文件的目录?
- 如何处理屏幕抓取后,并发送到另一机上屏幕平滑显示的问题。
- 如何在程序里实现生成AVI文件的功能?
- 如何在软件在实现手机发短讯!
- CSDN里面没有什么高手吗?我这样的一个小问题都帮不了我 http://www.csdn.net/expert/topic/548/548675.xml
- 老式康柏compaq prosignia 300机器的 万能驱动盘 哪能下载??
同意楼上