Entlich die Testversion: MediaCenterXXL

[MrKnogge]

So, hier wie versprochen, n Beispiel für Drop&Drag (aber ungetestet !)

Delphi-Quellcode:

...

private
  { Private declarations }
  procedure GetDroppedFileNames(var msg : TWMDropFiles); message WM_DROPFILES;

...

procedure TForm1.GetDroppedFileNames(var msg : TWMDropFiles);
var     sFileName    : string;
        dwFileCount  : cardinal;
        i            : cardinal;
        dwReqdLength : cardinal;
begin
  dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0);
  for i := 0 to dwFileCount - 1 do
  begin
    dwReqdLength := DragQueryFile(msg.Drop,i,nil,1);
    sFileName    := StringOfChar(#00,dwReqdLength+1);
    DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1);

    ListBox1.Add(filename);
  end;
end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
 ...
 DragAcceptFiles(self.Handle,true);
 ...
end;

...

Sollte so funktionieren, wenn nicht, einfach noch mal melden.
Achso die Punkte bitte nicht reinschreiben, sind lücken