Discussion :

[Albertus14]

Bonjour, après avoir consulté de nombreux exemple sur internet, dont celui çi : http://delphidabbler.com/articles?article=11
Je veux récupérer le chemin d'un fichier en le faisant glisser sur le listview, mais dans ces exemples, que j'ai essayé, aucun de marche en faisant glisser. Je voulais savoir si vous pouviez tester et me dire si cela marche, ou comment faire pour obtenir le chemin en glissant un fichier.
Je me demande si sa ne marche pas à cause de mon Windows8.1 ou de delphi XE7? help me plz

[ThWilliam]

Bonjour.

Voici le code que j'ai utilisé dans un programme (Delphi 7) et qui fonctionne parfaitement sous Windows 8.1.
Il récupère dans un listbox le ou les fichiers glissés.
Si tu n'as pas de message d'erreur à la compilation, je ne vois pas pourquoi XE7 serait en cause. (Petite adaptation à faire pour les noms de fichiers, puisque, à ma connaissance, XE7 n'utilise plus le jeu de caractères Ansi).

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unit1;
 
interface
 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, ShellApi; 
type 
   TForm1 = class(TForm)
       ListBox1: TListBox;
       procedure FormCreate(Sender: TObject);
       procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
       procedure WMDropFiles(var msg : TWMDropFiles) ; message WM_DROPFILES; 
   public
   end; 
 
var   
   Form1: TForm1;
 
implementation
 {$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin   
    DragAcceptFiles(ListBox1.Handle, true);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   DragAcceptFiles(ListBox1.Handle, false);
end;
 
procedure TForm1.WMDROPFILES(var Msg: TWMDropFiles);
const
   MAXFILESIZE = 32767;
var 
   FileName: PChar;
   I, NbFiles: integer;
begin
   try      
       NbFiles := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);
       for I := 0 to NbFiles - 1 do  
       begin
           GetMem(FileName, MAXFILESIZE);          
           DragQueryFile(Msg.drop, I, FileName, MAXFILESIZE);
           ListBox1.Items.Add(string(Filename)); // Filename contient aussi le path
           FreeMem(FileName);
       end;
   finally
       DragFinish(Msg.drop);  
   end;
   Msg.Result:= 0;
end;

Cordialement
Thierry

[Albertus14]

Merci, mais j'ai là aussi refais ton programme mais toujours quand je lache une fichier pdf sur le listbox, il ne se passe rien.

[ThWilliam]

Bonjour.

En exécutant le programme (contenant le code ci-dessus) en tant qu'administrateur : le drag and drop ne fonctionne plus.
C'est donc une question d'UAC (User Account Control).

Trouvé sur le forum Microsoft :

A possible reason for the not being able to drag & drop files to the application could be UAC integrity level (IL). With UAC enabled in Vista or Win7, drag and drop is not allowed to happen from low IL process to high IL process by default. Please check whether your application is elevated (run as admin) when the problem happens.

Il est possible que ton Delphi XE7 s'ouvre avec un haut privilège.

As-tu essayé de lancer ton programme hors de l'EDI ?
Option UAC dans XE7 ?

Cordialement
Thierry