ZeroMemory(@buffer, sizeof(buffer));
ZeroMemory(@ofn, sizeof(TOpenFileName));
 
ofn.lStructSize := SizeOf(ofn);
ofn.hWndOwner := Hwnd;
 
filtre := 'Tous les fichiers (*.*)' + chr(0) + '*.*' + chr(0);
filtre := filtre + 'Fichier Audio (*.wav,*.mp3,*.ogg,*.wma)' + chr(0) + chr(0);
 
ofn.lpstrFilter := PChar(filtre);
                 
ofn.nFilterIndex := 1;
ofn.lpstrFile := buffer;
ofn.nMaxFile := sizeof(buffer);
ofn.lpstrInitialDir := nil;
ofn.lpstrTitle := nil;
ofn.Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_LONGNAMES or OFN_HIDEREADONLY;
 
if GetOpenFileName(ofn) then
      begin            
            edText.Text := buffer;
 
            FileHandle := CreateFile(PChar(buffer),
                GENERIC_READ,
                0,
                nil,
                OPEN_EXISTING,
                FILE_ATTRIBUTE_NORMAL,
                0);
 
            Taille := GetFileSize(FileHandle, nil);
         
            CloseHandle(FileHandle);
        end;