Zitat von
Cicaro:
Ok. Das geht. Danke!
Aber was, wenn ich die Message WM_DROPFILES in der Fensterprozedur abfange ? Ich weiß nicht, wie ich da an die Dateinamen rankomme.
Und kann ich auch irgendwie erfahren wieviele Dateien gedropt wurden ?
Delphi-Quellcode:
procedure TForm1.WMDropFiles(var Message: TWMDropFiles);
var
Buffer: array[0..MAX_PATH] of Char;
begin
DragQueryFile(Message.Drop, 0, @Buffer, SizeOf(Buffer));
Edit1.Text := Buffer; // hier Deine Verarbeitung
end;
Der Dateiname steht in Edit1.text !
Wie das mit mehreren Dateinamen geht, kann ich Dir nicht sagen. Da müsste wahrscheinlich eine Modifikation an dem Code vorgenommen werden. Vielleicht kann ja Luckie mal schauen?
Gruss
EL