Vérifier si le lecteur est prêt

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;