whats new ¦  programming tips ¦  indy articles ¦  intraweb articles ¦  informations ¦  links ¦  interviews
 misc ¦  tutorials ¦  Add&Win Game

Tips (1547)

Database (90)
Files (137)
Forms (107)
Graphic (115)
IDE (21)
Indy (5)
Internet / LAN (131)
IntraWeb (0)
Math (76)
Misc (127)
Multimedia (45)
Objects/
ActiveX (51)

OpenTools API (3)
Printing (35)
Strings (83)
System (268)
VCL (243)

Top15

Tips sort by
component


Search Tip

Add new Tip

Add&Win Game

Advertising

37 Visitors Online


 
...check if a disk is in the drive?
Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch
[ Print tip ]  

Tip Rating (7):  
     


function DiskInDrive(Drive: Char): Boolean;
  // Disk can be a floppy, CD-ROM,...
var
  
ErrorMode: Word;
begin
  
{ make it upper case }
  
if Drive in ['a'..'z'] then Dec(Drive, $20);
  { make sure it's a letter }
  
if not (Drive in ['A'..'Z']) then
    raise 
EConvertError.Create('Not a valid drive ID');
  { turn off critical errors }
  
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    
{ drive 1 = a, 2 = b, 3 = c, etc. }
    
if DiskSize(Ord(Drive) - $40) = -1 then
      
Result := False
    else
      
Result := True;
  finally
    
{ Restore old error mode }
    
SetErrorMode(ErrorMode);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if 
DiskInDrive('a') = False then
    
ShowMessage('Drive not ready');
end;

 

Rate this tip:

poor
very good


Copyright © by SwissDelphiCenter.ch
All trademarks are the sole property of their respective owners