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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour30/11/2001
VisualisationVu 785 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Systeme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur