Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-71080
VDen
2002-08-12 12:05
2002.08.22
Выход из условия в case


14-71331
Fissher
2002-07-26 22:07
2002.08.22
Концепция будущего 3D-графики и не только


14-71383
Vitaly
2002-07-29 10:41
2002.08.22
Нужен Turbo Debugger для DOS а.


1-71259
NeyroSpace
2002-08-12 10:38
2002.08.22
Динамическое создание компонента. Edit1.parent := ??? Form1 ;


3-71038
billybons
2002-07-31 09:44
2002.08.22
добавление записи в Grid