Parameter SCHNELL an Hauptprog weiterleiten

[Nogge]

ich habe hier mal etwas gefunden, was bestimmt das ist, was ich brauche. allerdings bin ich beim erstellen eines IDataObjectshängen geblieben ;_; kann mir jemand helfen?

Delphi-Quellcode:

function TDFKontextMenuShellExt.SEInitialize(pidlFolder: PItemIDList;
  lpdobj: IDataObject; hKeyProgID: HKEY): HResult;
var
  StgMedium: TStgMedium;
  FormatEtc: TFormatEtc;
  Idx: Integer;
begin
  if (lpdobj = nil) then
  begin
    Result := E_INVALIDARG;
    Exit;
  end;

  with FormatEtc do
  begin
    cfFormat := CF_HDROP;
    ptd      := nil;
    dwAspect := DVASPECT_CONTENT;
    lindex   := -1;
    tymed    := TYMED_HGLOBAL;
  end;

  Result := lpdobj.GetData(FormatEtc, StgMedium);
  if Failed(Result) then
    Exit;

  // alle ausgew�hlten Dateien ermitteln
  for Idx := 0 to DragQueryFile(StgMedium.hGlobal, $FFFFFFFF, nil, 0) - 1 do
  begin
    DragQueryFile(StgMedium.hGlobal, Idx, FFileName, SizeOf(FFileName));
    // hier k�nnen die Dateinamen eingesammelt werden, z. B.
    // StringListe.Add(FFileName);
  end;

  ReleaseStgMedium(StgMedium);
  Result := NOERROR;
end;

[Tempel]

Zitat von Nogge:

also ist es mit dem wissen der Community aus Delphi-Praxis nicht möglich, meinen willen zu realisieren? verstehe deine sätze nicht immer so genau, da du sie nicht wirklich komplett ausschreibst, jim_raynor^^ genauere tipps bzw. irgendwelche kleinen hilfen kann mir niemand geben? ;_;

Die zweite Antwort (von moritz bzgl DDE Tutorial) auf deine Frage gibt doch eine Detaillierte Anleitung. Auch wenn andere es hier als Veraltet abtun (und zum schluß wieder auf DDE kommen).

Thomas

[Nogge]

so, ich habe jetzt mal in mein programm die DDE Komponenten eingebaut, aber ich erhalte jedesmal die Fehlermeldung: "Die Datei Filename.ext konnte nicht gefunden werden". Dabei ist es total egal, welche Datei ich öffne. Hab mir natürlich das Tut durchgelesen und fürn Anfang alles übernommen. Doch selbst in dem Tut gibt es mind. einen Fehler:

Zitat:

// Hier die Parameter zum Öffnen eintragen
regist.OpenKey(ext+'file\shell\Programmname\comman d', True);
// Paramstr(0) enthält Pfad- und Dateinamen unserer Applikation,
// %1 ist der als Parameter übergebene Dateiname
regist.WriteString('', Paramstr(0)+' %1');
regist.CloseKey;

ParamStr(0) enthält NUR den Dateipfad und nicht noch den Dateinamen! Richtig wäre ParamStr(0)+'Name.ext'. Daher zweifel ich jetzt auch nach mehreren Fehlversuchen an der Glaubwürdigkeit des gesamten Tuts. Kann mir nicht jemand sein eigenes Beispiel dafür posten?

[Christian Seehase]

Moin Nogge,

Zitat von Nogge:

ParamStr(0) enthält NUR den Dateipfad und nicht noch den Dateinamen!

Wie hast Du denn das hinbekommen.

Also bei mir enthält paramstr(0) den gesamten Pfad meiner Anwendung inclusive des Dateinamens.

Nicht richtig falsch () aber unsauber:
regist.WriteString('', Paramstr(0)+' %1'); besser:

Code:

regist.WriteString('',[color=red][b]'"'+[/b][/color] Paramstr(0)+'[color=red][b]"[/b][/color] [color=red][b]"[/b][/color]%1[color=red][b]"[/b][/color]');

Ansonsten bekommt man ein Problem, wenn entweder das Programm, oder aber der Übergebene Parameter ein oder mehrere Leerzeichen enthalten.
Falls es nicht deutlich zu lesen ist: Der Programmpfad und der Parameter werden jeweils in doppelte Anführungsstriche eingefasst.

[Nogge]

peinlich
Ich habe bisher nur ParamStr(0) in Verbindung mit ExtractFilePath benutzt und irgendwie beim Lesen diesen Teil einfach hinzugefügt, obwohl es im Tut nicht steht => Gewohnheit^^

Die Anführungsstriche habe ich sowieso schon in meinen Code hinzugefügt, jedoch bleibt das alte Problem. Ich habe nun herausgefunden, dass die Fehermeldung nur erscheint, wenn ich EINE Datei mit meinem Prog aufrufe. Wenn ich mehr als eine Datei öffne, startet mein Prog ohne Fehlermeldung. Selbst nachdem ich die Komponenten + Uses aus dem Quellcode entfernt hatte, blieb dieses eigenartige Verhalten. Erst nach dem Entfernen des Keys "..\ddeexec" aus der Registry, verschwand jegliche Fehlermeldung beim Start.

Hoffe, dass euch diese Beschreibung für eine Lösung hilft.

[Nogge]

Frohe Weihnachten Community^^
Tja, nun hab ich wieder Zeit, mich meinem Problem zu widmen und ihr hfftl auch ;-) Mein Problem mit den DDE Koponenten bestehen weiterhin. Kann aber auch sehr schnell Neues lernen, d.h. könnte mir nicht irgendjemand die ganz oben aufgeführte Methode erklären? Hab noch nirgends einen Ansatz an Hilfe in Form von Kommentaren bzw. Tutorials hier im Forum gefunden. Ist das wirklich soo schwer???
Naja, wäre sonst auch mit den DDE Kopmponenten zufrieden, wenn diese mehrere Dateien gleichzeitig und somit schnell weiterleiten können.

[Nogge]

So, ich habe jetzt mal die DDE Komponenten richtig in mein Programm implementieren können, jedoch hat die Methode immer noch nicht die gewünschte Geschwindigkeit. Außerdem ist das Programm während der Übertragung der Dateinamen ständig im Vordergrund und es erscheint immer noch eine Warnung, dass der Computer vllt nicht mehr reagieren könne, wenn ich so viele Dateien gleichzeitig öffne. Deshalb bin ich ebenfalls der Meinung, dass die Methode veraltet und somit zu langsam ist. Ich brauche daher nun wirklich mal einen netten Helfer bzw. Lehrer, welcher mir bei der letzten und somit hoffentlich schnellen Methode helfen kann.

Zitat:

Es gibt 3 Wege wie man unter Windows eine Anwendung programieren muß damit sie aus der Shell auf multiple Dateien reagieren kann.

1.) Interprozesskommunikation: dabei überträgt eine eventuelle 2. Instance der eigenen Anwendung seinen ParamStr an die schon 1. laufende Instance der selben Anwendung. Danch terminiert die 2. Instance.

2.) Die Anwendung richtet einen DDE Server ein, registriert diesen bei der Shell über die Registry und empfängt dann nacheinander von der Shell die ausgewählten Dateien und Ordner

3.) Es wird eine DLL benutzt die sich als Shell Extension über die Registry veröffentlicht. Dieser Weg geht über COM Interfaces. Die ShellExt implementiert einen IContextMenu Handler der dann bei registrierten Dateitypen als neuer Menueintrag im PopupMenu des Explorers sichtbar wird.

(Ich habe diesen Teil in einem Thread aus dem Delphi-Praxis Forum gefunden.)
Da ich nun Variante 1 und 2 ausprobiert habe und diese nicht die erwünschte Leistung gebracht haben, hoffe ich auf die letze Chance.

[stoxx]

Zitat:

Ich brauche daher nun wirklich mal einen netten Helfer bzw. Lehrer

Boah !! .. und ansonsten kommst Du gut klar mit Deinen Mitmenschen ?

[Nogge]

tolle Antwort o_O
Das "wirklich" war auf den Helfer bzw. Lehrer bezogen, da mir hier noch niemand richtig weiterhelfen konnte. Außerdem wollen wir hier doch jetzt nicht wirklich eine Beziehung mit Liebe und Hass aufbauen, oder? ;-))
Also kannste mir auch nicht weiterhelfen, stoxx? ...schade

[starY]

das gleich Problem habe ich auch weiß denn keiner eine Lösung?