...Guten Morgen...
...ich muß dann auch mal ein Erfolgserlebnis loswerden.
- per Drag/Drop Files in einen Ordner kopieren und in FileListBox anzeigen.
DocVerzeichnis: Zielordner
FileListBox.Directory: Zielordner
Delphi-Quellcode:
procedure TJvFileListBox.DropFiles(var Msg: TMessage);
var
i, Anzahl, Size: integer;
SourcePfad: PChar;
Dateiname: String;
Pfad: String;
begin
inherited;
Anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, SourcePfad, 255);
SetForegroundWindow(FAnlagenkomponenten.Handle);
if MessageDlg('Kopieren von ' + IntToStr(Anzahl) + ' Dateien nach ' + FAnlagenkomponenten.DocVerzeichnis.Text + ' ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
for i := 0 to (Anzahl - 1) do
begin
Size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
SourcePfad:= StrAlloc(Size);
DragQueryFile(Msg.WParam,i , SourcePfad, Size);
Pfad:= ExtractFilePath(StrPas(SourcePfad));
Dateiname:= Copy(StrPas(SourcePfad),Length(Pfad)+1,Length(StrPas(SourcePfad))- Length(Pfad));
CopyFile(SourcePfad,PChar(FAnlagenkomponenten.DocVerzeichnis.Text + '\'+ Dateiname),false);
StrDispose(SourcePfad);
end;
FAnlagenkomponenten.JvFileListBox1.Update;
end;
DragFinish(Msg.WParam);
end;
...und es funktioniert
Danke noch einmal an alle die mich unterstützt haben...
