Wie in registry schreiben ?

[ghost007]

Hallo,

ich hab folgende datei als .reg im netz gefunden, um fonts zu installieren

Zitat:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts]
"11px2bus (TrueType)"="11px2bus.ttf"
"11px3bus (TrueType)"="11px3bus.ttf"
"11pxbus (TrueType)"="11pxbus.ttf"
"13pxbus (TrueType)"="13pxbus.ttf"
"5px2bus (TrueType)"="5px2bus.ttf"
"5pxbus (TrueType)"="5pxbus.ttf"
"6px2bus (TrueType)"="6px2bus.ttf"
"6pxbus (TrueType)"="6pxbus.ttf"
"7px2bus (TrueType)"="7px2bus.ttf"
"7px3bus (TrueType)"="7px3bus.ttf"
"7px4bus (TrueType)"="7px4bus.ttf"
"7pxbus (TrueType)"="7pxbus.ttf"
"7pxkbus (TrueType)"="7pxkbus.ttf"
"8pxbus (TrueType)"="8pxbus.ttf"
"9px2bus (TrueType)"="9px2bus.ttf"
"9px3bus (TrueType)"="9px3bus.ttf"
"9pxbus (TrueType)"="9pxbus.ttf"
"icq (TrueType)"="icq.ttf"

Mit welchem aufruf kann ich genau das selber in die registry schreiben lassen ?
Mein Ansatz bis jetzt lautet so:

Delphi-Quellcode:

   Reg := TRegistry.Create;
   try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', True);
    //was muss hier rein ??
    Reg.CloseKey;
   finally
    Reg.Free;

MfG - Ghost007