استفسار عن كيفية التحقق من وجود القرص المرن

السلام عليكم

اخي العزبز

الكود ممكن تجده في العديد من الصفحات

http://www.swissdelphicenter.ch/en/showcode.php?id=109

function LaufwerkBereit(Root: string) : Boolean; 
var 
  Oem : cardinal; 
  Dw1,Dw2 : dword; 
begin 
  Oem := SetErrorMode(SEM_FAILCRITICALERRORS); 
  if LENGTH(Root) = 1 then Root := Root + ':'; 
  Result:=GetVolumeInformation
    (PCHAR(Root),NIL,0,NIL,Dw1,Dw2, NIL,0);
  SetErrorMode(Oem); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Laufwerkbereit('A')=true then 
  begin 
    ShowMessage('Drive ready !'); 
  end 
  else 
  begin 
    ShowMessage('Drive not ready !'); 
  end; 
end;

http://www.swissdelphicenter.ch/en/showcode.php?id=26

function DiskInDrive(Drive: Char): Boolean; 
// Disk could 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 
  begin 
    ShowMessage('Drive not ready'); 
  end; 
end;