Discussion :

[bengign]

Salut, je souhaite tester la présence d'un programme sur une disquette avec la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if FileExists('A:\test.exe') then

Lorsque la disquette est présente pas de problème mais dès qu'elle n'est plus là j'obtient un message d'erreur :"Il n'y a pas de disque dans le lecteur...", pas très élégant !!!
Avez vous une solution ?
@+

_________________
Balises CODE rajoutées par Sub0

[lil_jam63]

Désactive les erreurs critiques puis réactive les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
var
    mode: Word;
begin
  mode:= SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if FileExists('A:\test.exe') then showmessage('trouvé')
      else showmessage('ya pas');
  finally
    SetErrorMode(mode);
  end;
end;

Surtout, utilise les blocs try finally pour etre sur que les erreurs critiques seront réactivées.

[bengign]

Ouais, sa marche !!!!
vive developpez.com !

[Sub0]

Ya moyen de savoir si ya une D7 en recherchant le label...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
PROCEDURE TForm1.Button1Click(Sender: TObject);
 
VAR NomVolume,FileSystem:Array[0..255]of Char;
    NumSerie,LongeurMaxNom,TypeCase:DWORD;
 
BEGIN
 
 IF(GetVolumeInformation('a:\',NomVolume,SizeOf(NomVolume),@NumSerie,
     LongeurMaxNom,TypeCase,FileSystem,sizeOf(FileSystem)))THEN
     ShowMessage(NomVolume)ELSE ShowMessage('il n''y a pas de disquette');
 
END;

à+

[Thierry G.]

salut,

tu peux aller voir le lien qui decrit comment savoir si il y a une disquette dans le lecteur.

http://www.swissdelphicenter.ch/en/showcode.php?id=26

[bengign]

merci.