Главная страница
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.011 c
1-71078
Vitas2
2002-08-11 08:33
2002.08.22
TBitmap


1-71120
Сережа
2002-08-05 11:05
2002.08.22
Запуск программы из значка или из значка в трее


3-71018
Naik
2002-07-31 15:32
2002.08.22
Помогите чайнику разобраться с использованием BDE


1-71153
Cr@sh
2002-08-13 15:51
2002.08.22
Ув. мастера, помогите с алгоритмом.


1-71139
AlexQ
2002-08-13 12:49
2002.08.22
Как создать свой Button ч/з код.