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

[dazar_t]

http://www.dsdt.info/tutorials/registry/
:D

[marabu]

Hallo Christian,

wenn du es nicht unbedingt programmieren willst: Es genügt ein Doppelklick auf die Datei. Aber auch mit ShellExecute() und dem Verb 'open' werden die Daten in die Registry übernommen.

Grüße vom marabu

[himitsu]

ansonsten kann man auch hier in der TRegistry etwas rumstöpern,
aber vorallem in der OH TRegistry steht alles dazu.


aber: willst du dieses nur einmal eintragen (dann ruf einfach die .reg-Datei auf - geht auch per ShellExecute)

und dann gab's da nicht passende WinAPIs zum registrieren/installieren von Schriftarten?

so mußt du doch bestimmt erstmal den REG-Eintrag vornehmen und dann vermutlich entweder Windows neu starten oder irgendwie Windows mitteilen daß du was geändert hast.
(Windows wird doch warscheinlich nicht ständig da reinsehn, ob's was Neues gibt)

[ghost007]

Also,
das mit dem execute wollte ich nicht machen. Ich wollte das schon per delphi reinschreiben.
Das neuestarten ist kein problem, das ist mir auch klar, das es gemacht werden muss.
Sollte es damit gehen?

Delphi-Quellcode:

//Bsp für den icq font
Reg := TRegistry.Create;
   try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', True);
    Reg.WriteString('icq (TrueType)','icq.tff');
    Reg.CloseKey;
   finally
    Reg.Free;

MfG - Ghost007

[himitsu]

wenn der Regeintrag reicht, dann dürfe es gehn.

und dann noch die Datei nach %windir%/Fonts (C:\Windows\Fonts) kopieren

wobei es bei mir (damals unter Win2000 war das noch) ausreichte die Datei(en) einfach nur in das Fontsverzeichnis zu kopieren
und das sollte doch jetzt auch noch ausreichen?
(OK, hiermit kann man wohl den angezeigten Fontnamen festlegen, aber wenn man den im Font gespeicherten nimmt, dann gibt's ja bestimmt keine Probleme?)

[RavenIV]

Zitat:

Zitat von ghost007

Sollte es damit gehen?

Sollte passen.
Aber such lieber nach den WinAPI-Funktionen zum Fonts registrieren.

[ghost007]

Ich teste das ma so, danke.
Ich meld mich dann wieder :)

MfG - Ghost007

[ghost007]

funktioniert wunderbar, danke

MfG - Ghost007