<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>