Einzelnen Beitrag anzeigen

Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#1

Wie in registry schreiben ?

  Alt 10. Jan 2008, 13:31
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
Christian
Es gibt möglich Dinge und unmöglich Dinge.
Für unmögliche braucht man lediglich etwas länger.
  Mit Zitat antworten Zitat