Hallo,
ich habe folgenden Quelltext benutzt um Dateien (bei mir Video-Dateien) über das System-Kontexmenü (Das Menü, das bei einem rechtsklick auf eine Datei im Explorer erscheint) direkt mit meinem Programm starten zu können:
Delphi-Quellcode:
procedure TForm1.AddFileMenue(FilePrefix, Menue, Command: string);
var
reg: TRegistry;
typ: string;
begin
reg := TRegistry.Create;
with reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('.' + FilePrefix, True);
typ := ReadString('');
if typ = '' then
begin
typ := Fileprefix + 'file';
WriteString('', typ);
end;
CloseKey;
OpenKey(typ + '\shell\' + Menue + '\command', True);
WriteString('', command + ' "%1"');
CloseKey;
Free;
end;
end;
Der Eintrag im Kontextmenü erscheint auch, jedoch ist es seit kurzem so, dass eine Fehlermeldung erscheint und nicht das Programm geöffnet wird wenn man auf den Eintrag im Kontextmenü klickt.
Die Fehlermeldung lautet:
Titel: "Vollständiger Pfad zur Datei"
Text: "Vollständiger Pfad zur Datei" ist keine zulässige
Win32-Anwendung.
Vielleicht kennt sich ja jemand mit Dateiregistrierungen aus und kann mir sagen durch was dieser Fehler verursacht wird. Erneutes registrieren mit oben stehenden Quelltext bringt auch nichts. Der Fehler bleibt nach wie vor.