Lecteur prêt ou pas ?

Réponse acceptée !
j'avais fait ca ds un de mes prog.

function DisquettePresente(): boolean;
var
  Oem:      Cardinal;
  Dw1, Dw2: DWORD;
begin
  Oem :=SetErrorMode(SEM_FAILCRITICALERRORS);
  Result :=GetVolumeInformation(PChar('a:\'), nil, 0, nil, Dw1, Dw2, nil, 0);
  SetErrorMode(Oem);
end;
{-------------------------------------------------------------------------------------}
procedure cherche_lecteur_amovible_dispo;
var f:char;
begin
for f:='a' to 'z' do
    if ((f='a') and (DisquettePresente)) or (f>'a') then
    begin
         if (diskfree(ord(f)-64)>0) and (GetDriveTypestr(f)='Removable Drive')          then    showmessage('lecteur '+f+' dispo');
    end;
end;

exyacc