Discussion :

[MiJack]

Bonjour,

Je me demandais comment était implémenté le fait de pouvoir glisser-déposer un fichier dans un programme, soit sur le .EXE (ce qui ouvre le programme et le fichier directement), soit en lâchant le fichier dans la fenêtre du programme.
Merci d'avance

[Paul TOTH]

vers l'exe c'est simple, Windows invoque le programme ne passant le fichier en paramètre -> ParamStr(1) - voir aussi ParamCount

vers une fenêtre c'est le Drag & Drop, j'ai une unité toute simple pour gérer cela
http://tothpaul.free.fr/sources.php?tools.dropfiles

elle date de Delphi 2 mais je pense qu'elle reste compatible...

[guillemouze]

dans ta classe qui reçoit les fichiers, il faut ajouter la méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure WMDrop(var message: TWMDropFiles); message WM_DROPFILES;
//appelé quand un fichier est déposé sur la fenêtre
 
procedure CreateParams(var Params: TCreateParams); override;
 
 
...
 
procedure TForm1.CreateParams(var Params: TCreateParams); override;
begin
  Params.StyleEx := (Params.StyleEx or WS_EX_ACCEPTFILES);
end;

[Pedro]

Hop

http://delphi.developpez.com/faq/?pa...ragdropfichier

[MiJack]

Merci pour vos réponses.

J'ai encore juste un petit problème avec le fonction prise de la FAQ pour le drag & drop des fichiers :

Code :

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

1
2
  tailleDuBuffer:= MAX_PATH;
  SetLength(nomDuFichier, tailleDuBuffer);

Ceci fait que la variable nomDuFichier contient effectivement le nom, mais suivi de plein de caractères incompréhensibles. Ce qui fait qu'un ExtractFileExt(nomDuFichier) me donne n'importe quoi par exemple.

Sauriez-vous comment nettoyer le nom ou le redimensionner correctement ?

[Andry]

Effectivement le code fourni dans la FAQ ne fonctionne pas très bien.
Le nom de fichier renvoyer est suivi de pas mal de caractères bizarres.
Par contre la methode de Paul TOTH fonctionne très bien.
Merci Paul pour cette unité.

A+

[MiJack]

Très juste, la technique de Toth est également plus intéressante car elle permet de choisir le composant dans lequel on permet de dropper un fichier.