Hast du dich mal mit den DragFiles von Angus Johnson beschäftigt? Damit kann man ein Shell-Drag-Event starten, müsste man sie nur irgendwie am Ziel droppen.
Auch.
Die Demo zu
WM_DROPFILES
habe ich mir angesehen und auch dieses
Beispiel und dieses
Beispiel.
In der Theorie muss ich "nur" so etwas ähnliches wie das hier (
nicht funktionierend) tun:
Delphi-Quellcode:
procedure TFormMain.SpeedButton1Click(Sender: TObject);
var
wndMain : HWND;
wndList : TStringList;
FilesHandle: THandle;
begin
wndMain := FindWindow('TFormMain','WM_DROPFILES demo');
if (wndMain <> 0) then
begin
wndList:= TStringList.Create;
try
wndList.Add('aFile.txt');
FilesHandle:= ConvertFilesToShellIDList('d:\', wndList);
SendMessage(wndMain, WM_DROPFILES, FilesHandle, 0);
finally
wndList.Free;
end;
end;
end;
Allerdings liegen Theorie und Praxis und hier auch mein Verständnis manchmal etwas auseinander. Mich wundert auch, dass ich im www kein Beispiel zu diesem Thema finde. Ich kann mir nicht vorstellen, der einzige weltweit mit diesem Problem zu sein. Es kann doch eigentlich nur daran liegen, dass ich mit den falschen Schlagworten suche.
Daher ja meine Frage...