检测软驱有没有软盘的函数？(20分)

梅

梅游刃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #1

检测软驱有没有软盘的函数？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #2

if DiskSize(Ord('A') - $40) = -1
then showmessage('No ready')
else showmessage('Ok');

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=576073

 

L

liuyanx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #4

最简单的检查CD－ROM或是磁盘是否有过变化的方法 是检查其volume号码
function GetDiskVolSerialID(cDriveName:char)Word;
var
dwTemp1，dwTemp2：DWord;
begin
GetVolumeInformation(PChar(cDriveName+':l'), Nil,0,Result, dwTemp2,dwTemp2,Nil,0);
end;

 

梅

梅游刃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #5

嘿。。。
自己解决了，也把分分了吧！
真白痴，

 

梅

梅游刃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #6

多人接受答案了。