1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

  reg := TRegistry.Create;
  with reg do
    begin
    RootKey := HKEY_CLASSES_ROOT;     //key öffnen
    openkey('.fest',true);          //Unterkey öffnen/anlegen
    writestring('', 'CashEdit');
    closekey;

    openkey('CashEdit',true);
    writestring('', 'CashEdit Profil');
    closekey;

    openkey('CashEdit\DefaultIcon',true);
    writestring('', '"'+Zielverzeichnis+'\ProFile1.ico"');
    closekey;

    openkey('CashEdit\Shell\Open',true);
    writestring('', 'Profil öffnen');
    closekey;

    openkey('CashEdit\Shell\Open\Command',true);
    writestring('', '"'+Zielverzeichnis+'\CashEdit.exe" "%1"');   //Standardwert = Exename des CE's
    closekey;
    free; //Speicher freigeben
    end;