InstallExt - Icon ändern

[Neutral General]

Hallo,

Ich benutze die Funktion InstallExt aus der CodeLib um Dateiendungen zu registrieren.
Das funktioniert auch, aber die Dateien haben dann das Delphi-Icon und nicht das das mein Programm hat ... Wie kann ich das machen das die registrierten Dateien das gleiche Icon haben wie meine exe ?

[Meflin]

die dateien haben das gleiche icon wie deine exe, solange du das icon über projekt > optionen > anwendung > symbol laden reinmachst!

[Neutral General]

hab ich gemacht !
Funktioniert trotzdem nicht ...

[Meflin]

meinst du die installext funktion von mir? die hab ich doch schon oft selber hergenommen poste mal den code und den aufruf!

[Neutral General]

Code :

Delphi-Quellcode:

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

Aufruf (in Form.Create) :

InstallExt('.xyz', 'xyz-Datei', 'Irgendein Format', Application.ExeName, '%1',0);

[Meflin]

http://www.delphipraxis.net/internal...ht=dateiendung
da gibts noch ein paar mehr sowei die von mir (die ich verwende) ka woran das bei dir liegen könnte

[Neutral General]

ok danke ... mit der anderen Funktion funktionierts

[Luckie]

Warum wird der Rückgabewert von Openkey irgnoriert und nicht überprüft?

[Meflin]

Zitat von Luckie:

Warum wird der Rückgabewert von Openkey irgnoriert und nicht überprüft?

auf was möchte sich diese aussage jetzt beziehen?

[Luckie]

Ich meine die OpenKey Aufrufe in der Funktion InstallExt.