...aufwärm...
ich habe mal ein bischen rumgespielt...
und...
1. ShellApi eingebunden
2.
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure DropFiles (var Msg: TMessage); message WM_DROPFILES;
3.
Delphi-Quellcode:
procedure TFAnlagenkomponenten.FormCreate(Sender: TObject);
begin
DragAcceptFiles(FAnlagenkomponenten.ListBox1.Handle, true);
end;
4.
Delphi-Quellcode:
procedure TFAnlagenkomponenten.DropFiles(var Msg: TMessage);
var
i, anzahl, size: integer;
Dateiname: PChar;
begin
inherited;
anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
for i := 0 to (anzahl - 1) do
begin
size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
Dateiname:= StrAlloc(size);
DragQueryFile(Msg.WParam,i , Dateiname, size);
Label2.Caption:= intToStr(size);
Label3.Caption:= StrPas(Dateiname);
ListBox1.items.add(StrPas(Dateiname));
StrDispose(Dateiname);
end;
DragFinish(Msg.WParam);
end;
... die Procedure 4. wird nicht angesprungen.
... bis auf ein paar Labels für die Visualisierung und procedure Namensänderung hat sich zum Beispiel nichts verändert
Danke für Eure Geduld...
