Hi,
ich verwende diese functions um die dateiendungen meines progs zu verwalten:

zusammenfalten · markieren

Delphi-Quellcode:

function 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 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;

was mus ich machen bzw wie muss ich es machen, dass eine so installierte endung ein anderes icon erhält wie das mainicon des progs? mit dem iconindex komm ich irgendwie net klar!

*MFG*

Meinst du dass in einer Datei (dll oder exe oder so) mehrere Icons sind, die verwendet werden, anstatt von vielen einzelnen???

Hi!

Ich denke mal, er will, dass ein mit seinem Programm verknüpfter Dateityp ein anderes Icon hat als seine Programm-Datei.

Ciao fkerber

korrekt

also wie das genau funktioniert weiß ich nicht...
aber du kannst ja mal bestehende Schlüssel ansehen, zB die von Office. Da is das so...

so weit ich weiß gibt man einfach die symboldatei an und dann mit Komma getrennt den Index

Moin Meflin,

Du kannst in Deiner Programmdatei mehrere Icons einbinden.
Das MainIcon ist dann das, was Windows für Dein Programm anzeigt.
Sind weitere enthalten, musst Du nur den entsprechenden Index an die Funktion übergeben.

Andere Variante:
Du erweitertst die Funktion dahingehend, dass beim Key DefaultIcon nicht der Pfad des Programmes genommen, wird, sondern halt das, aus dem das Icon kommen soll.

BTW:
Zu jedem OpenKey gehört auch ein CloseKey.

ok hab ich gemacht. wenn ich in den ordneroptionen die dateiendungen überprüf, stimmt das icon. aber im explorer wird immernoch das mainicon verwendet?!

Moin Meflin,

dann schau Dir mal SHChangeNotify an.
In Deinem Falle in Kombination mit dem Flag SHCNE_ASSOCCHANGED.

Der Explorer wird sich das Icon vermutlich aus der Systemimagelist ziehen, bei der aber, sozusagen, die Änderung noch nicht angekommen ist.

Ersatzweise sollte es auch ein Reboot tun.

ok jetzt passt alles!