Eintrag ins Kontextmenü

[Delphi Freak]

Hi!

Ich habe vor Kurzem ein Verschlüsselungsprogramm geschrieben. Jetzt möchte ich es jedoch um eine Funktion erweitern: Wenn ich die zu ver-/entschlüsselnde Datei in Windows mit der rechten Maustaste öffne, soll in dem dann erscheinenden Kontextmenü ein neuer Eintrag erscheinen, um die Datei direkt mit meinem Verschlüsselungsprogramm zu öffnen.

[Luckie]

bemüh mal die Suche kontextmenü erweitern. Das hatten wir schon zu genüge.

[Delphi Freak]

Ich habe zwar jetzt einen neuen Eintrag im Kontextmenü, jedoch wird nur das Verschlüsselungsprogramm geöffnet und die Datei(en) nicht in die Listbox eingefügt. Wie kann ich das ändern?

[Luckie]

Auch dazu solltest du hier im Forum eine Lösung finden.

Wenn du schon Code hast, dann wäre es auch interessant den mal zu sehen.

[Delphi Freak]

Mein Code für den Eintrag ins Kontextmenü:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var regist:Tregistry;
begin
   regist:= TRegistry.Create;

   regist.RootKey := HKEY_CLASSES_ROOT;
   regist.OpenKey('*',True);
   regist.WriteString('','Mit Krypto verschlüsseln');
   regist.CloseKey;
   regist.OpenKey('Mit Krypto verschlüsseln',True);
   regist.WriteString('','Mit Krypto verschlüsseln');
   regist.CloseKey;
   regist.OpenKey('*\shell\Mit Krypto verschlüsseln\command',True);
   regist.WriteString('','C:\Krypto.exe %1');
   regist.CloseKey;
end;

[alcaeus]

Hi DelphiFreak!

Es ist wahrscheinlich, dass dein Programm die Parameter nicht auswertet. Such dazu mal nach [oh]ParamCount, ParamStr[/oh].

Greetz
alcaeus

[Delphi Freak]

Ok, habe es geschaft die Parameter zu übertragen. Jetzt habe ich nur noch ein kleines Problem. Ich kann zwar mehrere Dateien mittels Parameterübergabe übertragen, jedoch wird das Verschlüsselungsprogramm für jeden Parameter neu geöffnet. Wahrscheinlich genügt es nicht, wenn man verhindert, dass das Programm mehrfach geöffnet werden kann. Welche Möglichkeiten gibt es dieses Probelmm schnell zu beheben?

[Luckie]

Du musst verhindern, dass sich dein Programm mehrmals öffnet, aber bevor du die weitere Instanz beendest, muss sie die Daten, am bseten mit WM_COPYDATA an die erste Instanz übertragen: wm_copydata createmutex.

[Shaman]

Oder nimm das da

Gruss
Shaman

[Delphi Freak]

Wahrscheinlich ist es die schnellste Methode mit diesen Dateien (OneInstance.pas und OneInstace.dcr) zu arbeiten. Jedoch komme ich auch damit nicht richtig zurecht. Kann mir deshalb jemand erklären, wie ich es richtig anwenden kann?