Solved

Checking if a drive is ready for access?

Posted on 1998-11-01
8
195 Views
Last Modified: 2010-04-06
What is the best way to test if a drive is ready for access? This is needed for drives like cd-roms and jaz drives.

Thanks!
0
Comment
Question by:Kmiller
  • 3
  • 3
  • 2
8 Comments
 
LVL 3

Expert Comment

by:philipleighs
ID: 1345316
Hi,

Here is a snippet of code that may help.
The important point is the SetErrorMode calls. Without these, (and when running outside Delphi), and when the a: drive is not ready you get a message saying "System error, drive not ready, Abort, Retry, Cancel.
The SetErrorMode supresses these error messages.
You can then call DiskFree. There may be something better than DiskFree, but if it returns -1 then the drive is not ready.

PrevErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
   if DiskFree(1) <> -1 then
      //A: Drive is ready
   else
      //A: drive is not ready
finally
  SetErrorMode(PrevErrorMode);
end;

0
 

Author Comment

by:Kmiller
ID: 1345317
how would this be done when you only have the drive letter? Say M:\ which is a cdrom drive.
0
 
LVL 3

Expert Comment

by:philipleighs
ID: 1345318
//'A' or 'a' returns 1,
//'B' or 'b' returns 2 etc
function GetDriveNumber(Letter: Char): Integer;
begin
  Result := Ord(UpCase(Letter)) - Ord('A') + 1;
end;


begin
DiskFree(   GetDriveNumber('M')  );
.

Note if you have a string, you could also use GetDriveNumber like this:

s := 'M:\';
DiskFree(   GetDriveNumber(  s[1]  );

Cheers,
Phil.

PS: Tell me if you want code that tells you which drives(s) are CD-ROMs then I'll can paste it here.

0
 
LVL 4

Expert Comment

by:dwwang
ID: 1345319
This one is from Inprise's FAQ, it does not need to use try..except.

function IsDriveReady(DriveLetter : char) : bool;
                    var
                      OldErrorMode : Word;
                      OldDirectory : string;
                    begin
                      OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
                      GetDir(0, OldDirectory);
                      {$I-}
                        ChDir(DriveLetter + ':\');
                      {$I+}
                       if IoResult <> 0 then
                        Result := False
                       else
                        Result := True;

                      ChDir(OldDirectory);
                      SetErrorMode(OldErrorMode);
                    end;
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:Kmiller
ID: 1345320
Thanks! They both seem to work... someone answer for credit.
0
 
LVL 4

Accepted Solution

by:
dwwang earned 100 total points
ID: 1345321
Sorry for others ^_^
0
 
LVL 3

Expert Comment

by:philipleighs
ID: 1345322
Hmm,

Don't you think the first answer is the one that deserves the credit?
0
 
LVL 4

Expert Comment

by:dwwang
ID: 1345323
Hi, I just happened to be notified by e-mail and come here to make an answer, if you care of that, now I just ask Kmiller to reject my answer.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
find a node in VST 2 64
tvirtualstringtree freeze when load too manny images 10 53
JAudiorecorder record freezing the app 29 60
Installshield for Embarcadero EX 10.1 Berlin 4 21
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
As a trusted technology advisor to your customers you are likely getting the daily question of, ‘should I put this in the cloud?’ As customer demands for cloud services increases, companies will see a shift from traditional buying patterns to new…

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now