CD-ROM Ready

← →
easy (2002-06-08 14:20) [0]

...есть кусочек кода на Басике:

Sub ShowDriveInfo(drvpath)
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(drvpath)

If d.IsReady Then
s ="Drive is Ready."
Else
s ="Drive is not Ready."
End If

MsgBox s
End Sub

...можно на Delphi перевести?
Спасибо...

← →
aus © (2002-06-08 14:45) [1]

Примерно так: procedure ShowDriveInfo(drvpath: variant); var fs, d: variant; s : string; begin fs := CreateOleObject("Scripting.FileSystemObject"); d := fs.GetDrive(drvpath); If d.IsReady Then s := "Drive is Ready." Else s := "Drive is not Ready." ShowMessage(s); End;

← →
MBo © (2002-06-08 14:55) [2]

if FileExists("f:\nul") then
ShowMessage("f-Drive Ready");

← →
easy (2002-06-08 16:51) [3]

...спасибо, разобрался уже...
mcisendstring("Status cdaudio ready wait",...,...,application.handle);

CD-ROM Ready Найти похожие ветки