<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <div class="moz-cite-prefix">El 26/10/2013 23:05, metal box
      escribió:<br>
    </div>
    <blockquote
cite="mid:CAAvkSmB9dhOqz7qrX+zC4hwENQs_H6vB85n+uT_-sa4hpWY1+w@mail.gmail.com"
      type="cite">
      <meta http-equiv="Context-Type" content="text/html;
        charset=ISO-8859-1">
      <div dir="ltr">Encontre esto<br>
        <pre 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="">;

</span></code></pre>
        <pre class=""><code><span class="">Esta interesante, solo lo coloco por compartir.
</span></code></pre>
        <br>
      </div>
    </blockquote>
    Hola José, muchas gracias por compartirlo!<br>
    buen fin de semana!<br>
    byeeeeeee<br>
    <br>
  </body>
</html>