| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CD-ROM Ready [D6, WinXP]

easy ©   (2002-06-08 14:20:00) 

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

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 перевести?
Спасибо...

---

easy   (2002-06-08 16:51:00) [1]

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

---

MBo   (2002-06-08 14:55:00) [2]

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

---

aus   (2002-06-08 14:45:00) [3]

Примерно так:
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;

---

Наверх