Drag Drop nonvcl

[EWeiss]

hat vielleicht jemand was fertiges ?
Wo ich aus einem Ordner MP3 Dateien mit drag and drop auf
ein beliebiges Window ziehen kann ?

Kann auch meine Funktion übersetzen aber das dauert dann wieder.

gruss Emil

[himitsu]

DragAcceptFiles DragQueryFile DragFinish

in etwa so

Delphi-Quellcode:

// nachdem das Control (Fenster, Edit oder was auch immer) erstellt wurde
DragAcceptFiles(HandleOfControl, True);


// bei WM_DROPFILES
Var S: String;
  i, i2: Integer;
Begin
  i2 := DragQueryFile(Msg.WParam, LongWord(-1), nil, 0);
  For i := 0 to i2 - 1 do Begin
    SetLength(S, DragQueryFile(Msg.WParam, i, nil, 0));
    DragQueryFile(Msg.WParam, i, @S[1], Length(S) + 1);
    {S = FileName}
  End;
  DragFinish(Msg.WParam);
  Msg.Result := 0;
End;

[EWeiss]

Zitat:

Zitat von himitsu

DragAcceptFiles DragQueryFile DragFinish

in etwa so

Delphi-Quellcode:

// nachdem das Control (Fenster, Edit oder was auch immer) erstellt wurde
DragAcceptFiles(HandleOfControl, True);


// bei WM_DROPFILES
Var S: String;
  i, i2: Integer;
Begin
  i2 := DragQueryFile(Msg.WParam, LongWord(-1), nil, 0);
  For i := 0 to i2 - 1 do Begin
    SetLength(S, DragQueryFile(Msg.WParam, i, nil, 0));
    DragQueryFile(Msg.WParam, i, @S[1], Length(S) + 1);
    {S = FileName}
  End;
  DragFinish(Msg.WParam);
  Msg.Result := 0;
End;

Wollte das eigentlich über das Command line machen. (quatsch) ist ja was anderes ;)
Danke hat mir gut geholfen ;)

gruss Emil