Tester la présence de la disquette

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 252 fois - Téléchargée 35 fois

Contenu du snippet

Cette fonction renvoi True si une disquette est présente ben dans le lecteur de disquette ;-)

Source / Exemple :


function TForm1.DiskIsPresent: Boolean;
var
  ErrorMode: Word;
begin
  // Désactive la gestion des erreurs
  ErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    // DiskSize(0)= unité en cours, 1= A, 2= B
    Result:= DiskSize(1)<> -1;
  finally
    // Réactive la gestion des erreurs
    SetErrorMode(ErrorMode);
  end;
end;

A voir également

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
16 septembre 2006

function DiskIsPresent(t:integer):boolean;
const
Disks:array[1..4] of PChar=('A:\','B:\','C:\','D:\');
var
ErrorMode: Word;

begin
result:=false;
// teste la présence de lecteur de discket
if GetDriveType(disks[t])=2 then
begin
// Désactive la gestion des erreurs
ErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
try
// DiskSize(0)= unité en cours, 1= A, 2= B
Result:= DiskSize(t)<> -1;
finally
// Réactive la gestion des erreurs
SetErrorMode(ErrorMode);
end;
end;
end;
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
L'exemple manque cruellement d'explications. Par exemple, il faut spécifier les unités à ajouter: Windows et SysUtils. Ce code source est du vrai débutanisme. Initié ? Pff... Voici donc un petit code qui se tient en un simple fichier DPR:

program Project1;
uses Windows, SysUtils, Dialogs;
{$R-}
function DiskIsPresent:boolean;
var ErrorMode: Word;
begin
ErrorMode:=SetErrorMode(SEM_FAILCRITICALERRORS);
try
DiskIsPresent:= DiskSize(1)<>-1;
finally
SetErrorMode(ErrorMode);
end;
end;
begin
ShowMessage(IntToStr(Ord(DiskIsPresent)));
end.

Pour ce test: 0=false et 1=true.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.