Astuces
- Système - Vérifier
si une disquette est présente dans le lecteur en Delphi
Ajouter un composant TButton.
procedure
TForm1.Button1Click(Sender: TObject); begin if DiskSize(1)>-1 then
ShowMessage('Disquette detectée') else
ShowMessage('Pas de disquette detectée'); end;