<div dir="ltr">Encontre esto<br><pre style class=""><code><span class="">procedure</span><span class=""> TForm1</span><span class="">.</span><span class="">FormCreate</span><span class="">(</span><span class="">Sender</span><span class="">:</span><span class=""> TObject</span><span class="">)</span><span class=""> </span><span class="">;</span><span class="">
</span><span class="">begin</span><span class="">
  AddFontResource</span><span class="">(</span><span class="">'c:\FONTS\MyFont.TTF'</span><span class="">)</span><span class=""> </span><span class="">;</span><span class="">
  SendMessage</span><span class="">(</span><span class="">HWND</span><span class="">_</span><span class="">BROADCAST</span><span class="">,</span><span class=""> WM</span><span class="">_</span><span class="">FONTCHANGE</span><span class="">,</span><span class=""> </span><span class="">0</span><span class="">,</span><span class=""> </span><span class="">0</span><span class="">)</span><span class=""> </span><span class="">;</span><span class="">
</span><span class="">end</span><span class="">;</span><span class="">

</span><span class="">
</span><span class="">procedure</span><span class=""> TForm1</span><span class="">.</span><span class="">FormDestroy</span><span class="">(</span><span class="">Sender</span><span class="">:</span><span class=""> TObject</span><span class="">)</span><span class=""> </span><span class="">;</span><span class="">
</span><span class="">begin</span><span class="">
  RemoveFontResource</span><span class="">(</span><span class="">'C:\FONTS\MyFont.TTF'</span><span class="">)</span><span class=""> </span><span class="">;</span><span class="">
  SendMessage</span><span class="">(</span><span class="">HWND</span><span class="">_</span><span class="">BROADCAST</span><span class="">,</span><span class=""> WM</span><span class="">_</span><span class="">FONTCHANGE</span><span class="">,</span><span class=""> </span><span class="">0</span><span class="">,</span><span class=""> </span><span class="">0</span><span class="">)</span><span class=""> </span><span class="">;</span><span class="">
</span><span class="">end</span><span class="">;<br><br></span></code></pre><pre style class=""><code><span class="">Esta interesante, solo lo coloco por compartir.<br></span></code></pre><div><div><br>-- <br><span style="background-color:rgb(255,255,255)"><font><span style="color:rgb(0,0,153)"><i><b>Saludos.<br>
<br>Jose Daboin</b></i></span></font></span><br>
</div></div></div>