Bonjour,

Je fais de la maintenance sur un code d'une autre personne, et je n'arrive pas a comprendre ce que fais cette fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
function TForm1.GetFileSize(const APath: string): Int64;
var
    Sr : TSearchRec;
Begin
    if FindFirst(APath,faAnyFile,Sr)=0 then
      try
        Result := Int64(Sr.FindData.nFileSizeHigh) shl 32 + Sr.FindData.nFileSizeLow; // surtout cette ligne
      finally
      FindClose(Sr);
    end
    else Result := 0;
 
end;
Merci d'avance pour votre aide