autom. Verarbeitung einer angeklickten Datei im eigenen Prog

[isocam]

Hallo,

Ich habe mir bereits einen eigenen Bildbetrachter programmiert.

Ich möchte, dass durch Anklicken einer Datei (hier Bilddatei) mein Programm automatisch gestartet und das Bild in meinem Bildbetrachter angezeigt wird.
Wie lautet das Stichwort unter dem ich recherchieren muss?

Generell muss man doch unter "öffnen mit" das Programm auswählen, mit dem man eine Datei verarbeiten will. Aber da gehört sicher noch etwas in den Programmcode.

[Christian Seehase]

Moin isocam,

such' hier mal nach Dateityp registrieren oder [dp]Dateityp verknüpfen[/dp].
Da müsstest Du diverse Fundstellen bekommen, denn das Thema hatten wir schon häufiger.

Weiterer möglicher Suchbegriff [dp]"*Shell\open\command*"[/dp]

[Stanlay Hanks]

Wenn du dann deinen Dateityp (Oder eben in diesem Fall, die Bilddateiendungen) auf dein Programm registriert hast, musst du noch über "ParamStr(1)" den übergebenen Dateinamen abfragen. Das ist dann der Name der Datei, auf die geklickt wurde.

Man liest sich, Stanlay :hi:

[Nicodius]

Delphi-Quellcode:

function TForm1.InstallExt(Extension, ExtDescription, FileDescription,
                    OpenWith, ParamString: String; IconIndex: Integer): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
      begin
        RootKey := HKEY_CLASSES_ROOT;
        OpenKey(Extension, True);
        WriteString('', ExtDescription);
        OpenKey('\' + ExtDescription, True);
        WriteString('', FileDescription);
        OpenKey('DefaultIcon', True);
        WriteString('', OpenWith + ','+IntToStr(IconIndex));
        OpenKey('\' + ExtDescription + '\Shell\Open\Command', True);
        WriteString('', '"' + OpenWith + '" "' + ParamString + '"');
       end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;

function TForm1.UnInstallExt(Extension, ExtDescription: String): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      DeleteKey(Extension);
      DeleteKey('\' + ExtDescription);
     end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;

so mach ichs für mein EHT

... --> das InstallEx ist zum anlegen des reg-schlüssels, uninstallex zum entfernen des Schlüssels

bitteschön viel spass :D

[Christian Seehase]

Moin Nicodius,

das solltest Du aber noch einmal heftigst überarbeiten ;-)

Keine Resourcenschutzblöcke, kein CloseKey, keine Prüfung der Parameter auf Gültigkeit.

[Nicodius]

ich ahsse das free machen das vergess ich imemr


@matze mein lieblings Codlib manager hat gsagt das dass das Problem war das MEI Ncode nicht in die lib kam :cry: :roll: :mrgreen: :mrgreen:

[Nicodius]

aber so hab ich ihn von hier her genommen fällt mir grad auf :?

[isocam]

Danke! Ich denke das wird mir gut weiterhelfen.