Powiązanie plików z programem

[Corvis]

Witam,

Na w serwisie Cyfrowy Baron znalazłem taką poradę: http://programowanie.cal.pl/cyfbar/api2.html#api17

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

   
    TRegistry *Reg = new TRegistry();
    Reg->RootKey = HKEY_CLASSES_ROOT;
    Reg->OpenKey(".roz", true);
    Reg->WriteString("", "roz_auto_file");
    Reg->CloseKey();

    //otwarcie pliku po jego dwukrotnym kliknięciu w Eksploratorze
    Reg->OpenKey("roz_auto_file", true);
    Reg->WriteString("", "opis rozszerzenia");
    Reg->OpenKey("shell", true);
    Reg->WriteString("", "open");
    Reg->OpenKey("open", true);
    Reg->WriteString("", "&Open");
    Reg->OpenKey("command", true);
    Reg->WriteString("", ParamStr(0) + " \"\%1\"");
    Reg->CloseKey();

    //kojarzenie ikony z rozszerzeniem (taka sama jak ikona programu)
    Reg->OpenKey("roz_auto_file", true);
    Reg->OpenKey("DefaultIcon", true);
    Reg->WriteString("", ParamStr(0) + ",0");
    Reg->CloseKey();
    delete Reg;
 

Problem jest taki, że nie bardzo rozumiem o co tu chodzi. Jak napisać kod który powiąże 2 różne rozszerzenia ?? zmienić tylko Reg->OpenKey(".roz", true); na Reg->OpenKey(".roz2", true); ???
I kolejne pytanko jak podstawić dowolną ikonę do danego rozszerzenia - nie domyślną.


Pozdrawiam

[Corvis]

Skróciłem trochę ten kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TFrmGui::PowiazRozserzenia(String Ext) {
    TRegistry *Reg = new TRegistry();
    Reg->RootKey = HKEY_CLASSES_ROOT;
    Reg->OpenKey("." + Ext, true);
    Reg->WriteString("", Ext + "file") ;
    Reg->CloseKey();
    Reg->CreateKey(Ext + "file") ;
//    Reg->OpenKey(Ext + "file\\DefaultIcon", true) ;
//    String PlikiIkon = ExtractFilePath(Application->ExeName) + "Icon\\" + Ext.LowerCase() +".ico";
//    Reg->WriteString("", PlikiIkon+ ",0") ;
//    Reg->CloseKey();
    Reg->OpenKey(Ext + "file\\shell\\open\\command", true) ;
    Reg->WriteString("",Application->ExeName+" \"%1\"") ;
    Reg->CloseKey();
    delete Reg;        
}

Problem jest też taki, że to wszystko nie działa pod WINDOWS 7 jeżeli jest uruchamiane jako zwykły user ;(

[Corvis]

Problem rozwiązany - zrobiłem to instalatorem INNOSETUP. Jak ktoś chce mogę wkleić skrypt

[Cyfrowy Baron]

Skrypt dla instalatora wraz z opisem proponuję umieścić w dziale Instalatory.