Discussion :

[sematimo]

Bonjour à tous
J'ai un bouton qui permet de lister les fichiers d'un répertoire.
j'ai un second bouton qui listes les disques durs.

sans windows dans les uses, message d'erreur (unit1.pas(57,7) Error: Identifier not found "GetDriveType").
avec windows dans les uses, message d'erreur (func.inc(185,10) Hint: Found declaration: FindClose(QWord):LongBool;)

mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var
searchResult : TSearchRec;
path : string;
begin
path := 'd:\';
if FindFirst(path + '*', faDirectory, searchResult) = 0 then
begin
repeat
listbox1.items.Add(searchResult.Name);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i:char;
begin
 for i:='A' to 'Z' do
   begin
   if GetDriveType(PChar(i+':\'))<>1 then
     listbox1.items.Add(i+':\');
    end;
end;

[Chrispi]

Bonjour sematiomo,

Je viens d'essayer. Garde dans les uses Windows et au niveau du bouton 1 efface la ligne de code :

Code :

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

FindClose(searchResult);

Et ça va fonctionner.

Mais il faut peut-être songer à arrêter "repeat until"...

[tourlourou]

Bonjour,
L'ordre des unités a peut-être à voir, SysUtils et Windows définissant sûrement un FindClose avec des signatures différentes.
Tu devrais essayer de modifier l'ordre des uses ou de préfixer par le nom d'unité.

[Chrispi]

Re Bonjour,

J'ai trouvé. Il faut mettre FindClose comme ceci :

Code :

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

SysUtils.FindClose(searchResult);

Et là ça fonctionne bien.

[sematimo]

Avec SysUtils.FindClose(searchResult), pas de problème.
Merci à vous.