Discussion :

[cincap]

Bonjour à toutes et à tous,

J'utilise uneprocédure pour permettre depuis l'Exploreur un Drag and Drop.

Est t'il possible de filtrer le choix des fichiers à déplacer.

Exemple : ne permettre le Drag and Drop sur les fichiers qui ont une extension .JPG sinon un message d'avertissement.

Le code utilisé :

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
 
procedure TAutoRenWin.AppMessage(var Msg: TMsg; var Handled: Boolean);
var  Index,
     FileCount,
     FileSize  : integer;
     FileName  : array[0..255] of char;
begin
     // Gestion des messages Windows
     if Msg.message=WM_DROPFILES then
     begin
          FileCount := DragQueryFile(Msg.wParam, $FFFFFFFF, FileName, SizeOf(FileName));
          // Ajout des fichiers à ListBox
          for Index := 0 to FileCount - 1 do begin
              FileSize := DragQueryFile(Msg.wParam, Index, FileName, SizeOf(FileName));
              ListBox.Items.Add(FileName);
          end;
          // Sélection automatique du premier élément
          ListBox.ItemIndex := 0;
           end;
end;

Si quelqu'un avait une idée, merci d'avance.

@+,

Cincap

[Pascal Jankowski]

A première vue, il te suffit de tester ta variable FileName en extraitre l'extension puis selon les cas effectuer ou non l'ajout dans ta listbox.

[cincap]

@ Jankowski, merci à toi, je viens de tester avec ceci :

constance et UpperCase(ExtractFileExt(Filename));

Cela fonctionne.

@+,

Cincap