Fehlermeldung "...ist keine zulässige Win32-Anwendung."

[TonyMontana]

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.