Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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);

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c