Dateinamen in Fenster Droppen

[Schwedenbitter]

Hallo,

ich möchte gern einen Vorgang automatisieren. Bei uns ist es erforderlich, pdf-Dateien mittels Drag & Drop z.B. vom Explorer in ein Programm zu ziehen. Die entsprechenden Dateien bzw. Dateinamen sind mir bekannt. WinSpy sagt mir leider nur, dass das Ziel ein „SunAwtFrame“ ist. Das scheint etwas mit Java zu tun zu haben. Wobei auch die irgendwie den Empfang des Drag & Drop implementieren müssen.

Ich würde jetzt gern von meinem Programm aus dieses Programm starten und die - mir bekannten (Siehe oben) - Dateien dort einfügen.

Ich habe natürlich hier schon das eine oder andere zu dem Thema gefunden. Das meiste scheint sich aber damit zu beschäftigen, Dateien mit einem Delphi-Programm anzunehmen. Ich würde sie aber gern „abgeben“. Wo bzw. mit welchen Suchworten kann ich mich idealer Weise diesem Thema nähern?

[Redeemer]

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.

[Schwedenbitter]

Zitat von Redeemer:

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...

[EWeiss]

vielleicht nach ConvertFilesToShellIDList suchen?

gruss

[EWeiss]

Zitat:

Ich habe natürlich hier schon das eine oder andere zu dem Thema gefunden. Das meiste scheint sich aber damit zu beschäftigen, Dateien mit einem Delphi-Programm anzunehmen. Ich würde sie aber gern „abgeben“. Wo bzw. mit welchen Suchworten kann ich mich idealer Weise diesem Thema nähern?

Irgendwie verstehe ich nicht was du meinst mit abgeben.
bsp.

Ich habe ein Video.
Wenn ich dieses jetzt vom Explorer auf mein Icon in meinem Prog.. OTTB ziehe dann öffnet sich das Programm zu dem dieses Icon gehört
und spielt die Datei ab die ich mit Drag und Drop auf das Icon aus einer anderen Anwendung(OTTB) gedropt habe.

Ist es das was du meinst?

gruss

[hoika]

Hallo,
nein,
er will Dateien, dessen Pfad/Name bekannt ist, einem anderen Programm (Java?) automatisch per Drag&Drop schicken.

Etwa so:
http://www.delphi.longzu.net/viewthr...tra=page%3D121

[EWeiss]

Ok.. Habe es dann doch falsch verstanden.
Danke.

gruss

[Schwedenbitter]

Zitat von hoika:

...
Etwa so:
http://www.delphi.longzu.net/viewthr...tra=page%3D121

Genau. Etwa so. Danke erstmal für die Antworten!

Nach der Grippewelle habe ich mir den Code angesehen. Egal was ich mache, die Dateinamen kommen zwar an, werden aber auseinandergepflückt. Kurz gesprochen kommt jedes Zeichen extra an. Um das zu verdeutlichen, habe ich einen Screenshot sowie meine Demos angehängt (ausnahmesweise auch als exe-Dateien, damit man nicht z.B. den Empfänger kompilieren muss).
Dass es am Empfänger liegt, schließe ich aus. Denn wenn man z.B. vom Desktop Dateien auf ihn dropt, werden die korrekt angezeigt.

Ich habe die Vermutung, dass es am Unterschied zwischen AnsiString und WideString liegt. Ein simples Umdeklarieren hat aber leider nichts gebracht. Ich habe die Strings einzeln zerlegt, vorher in ein String umgewandelt etc. Nur leider bringt das alles nichts, so dass ich mal wieder auf dem sprichwörtlichen Schlauch stehe.

Hat noch jemand Ideen?

[HolgerX]

Hmm..

(Nur mal über den Source geschaut..)

Dir ist schon bewust, das 'S : String;' immer noch ein WideString (Ab D2009/D2010) ist?
Da müsste schon 'S : AnsiString;' stehen, damit aus dem Wide/Unicodestring ein AnsiString wird..


Edit
Unter D6 kompiliert funktioniert dein Sender, aber hier ist ein String = AnsiString

[Schwedenbitter]

Zitat von HolgerX:

Dir ist schon bewust, das 'S : String;' immer noch ein WideString (Ab D2009/D2010) ist?

Nö Aber jetzt schon.
Mit Typecast klappt es nun tatsächlich. Danke!

Ich habe bloß das Problem, dass der SecSigner und/oder Java hart zu sein scheint. Ich schaffe es nicht, meine Dateinamen in diesen zu droppen. Ich habe auch ein Delphi Programm gefunden, das eine Mischung aus WinSpy und meinem Sender ist. Auch mit diesem kommt nichts dort an.
Scheinbar dann doch alles für die Katz