autom. Verarbeitung einer angeklickten Datei im eigenen Prog

[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