installer une font

Bonjour,

Comment savoir si une police de Caractere est bien installée et l'installer si besoin ?

Merci

Vag
(Grrr c'est dur l'informatik !!!)

Si tu conais le nom du fichier, il suffit de regarder dans le repertoire font si il existe, sinon, tu le recopie dans le repertoire. Pour connaitre le repertoire des fonte va voir Cet exemple
MagicVinni


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
>
> Comment savoir si une police de Caractere est bien installée et l'installer si besoin ?
>
> Merci
>
> Vag
> (Grrr c'est dur l'informatik !!!)

En fait, cela ne marche pas :-(

Lorsque j'installe mon programme, les fonts sont copiés dans
le répertorie FONT, InstallShield fait cela tout seul.

mais les fonts ne sont pas reconnueés :-( !!!!

Il doit y avoir une fonction partuculiere qui permet d'activer une font mais je ne la connais pas

Merci

Vag

j'ai retrouvé ceci :

http://bdn.borland.com/article/0,1410,17309,00.html

void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool b = false;
b = CopyFile("C:\\Download\\WingDing.TTF","C:\\WINDOWS\\FONTS\\WingDing.TTF",b);
reg = new TRegistry;
reg->RootKey = HKEY_LOCAL_MACHINE;
reg->LazyWrite = false;
reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Fonts", b);
reg->WriteString("WINGDING(TrueType)","WingDing.TTF");
reg->CloseKey();
reg->Free();
AddFontResource("C:\\Windows\\Fonts\\WingDing.TTF");
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
RemoveFontResource("C:\\Windows\\Fonts\\WingDing.TTF");
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
}


mais c'est du C++ et pas du Delphi :-(

Vag

!!!
:-)

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
b : bool;
begin
CopyFile('C:\DOWNLOAD\FP000100.TTF',
'C:\WINDOWS\FONTS\FP000100.TTF', b);
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Fonts',
false);
reg.WriteString('TESTMICR (TrueType)','FP000100.TTF');
reg.CloseKey;
reg.free;
{Add the font resource}
AddFontResource('c:\windows\fonts\FP000100.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
{Remove the resource lock}
RemoveFontResource('c:\windows\fonts\FP000100.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;


sur http://bdn.borland.com/article/0,1410,17537,00.html

C'est bizarre, moi j'ai pas besoin de faire tout ca ca marche tout seul (Win XP et Delphi 6.0 perso) et chez les autres?
MagicVinni


-------------------------------
Réponse au message :
-------------------------------

> !!!
> :-)
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> reg: TRegistry;
> b : bool;
> begin
> CopyFile('C:\DOWNLOAD\FP000100.TTF',
> 'C:\WINDOWS\FONTS\FP000100.TTF', b);
> reg := TRegistry.Create;
> reg.RootKey := HKEY_LOCAL_MACHINE;
> reg.LazyWrite := false;
> reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Fonts',
> false);
> reg.WriteString('TESTMICR (TrueType)','FP000100.TTF');
> reg.CloseKey;
> reg.free;
> {Add the font resource}
> AddFontResource('c:\windows\fonts\FP000100.TTF');
> SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
> {Remove the resource lock}
> RemoveFontResource('c:\windows\fonts\FP000100.TTF');
> SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
> end;
>
>
> sur http://bdn.borland.com/article/0,1410,17537,00.html
>
>

tu copies juste la font dans le répertoire de font de Windows et ca marche ???,

Vag

Oui, enfin, comme je l'avias installé avant avec Window et effacé ensuite, c'est peut être resté dans la base de registre...Il faut que je le teste sous un autre ordi
MagicVinni


-------------------------------
Réponse au message :
-------------------------------

> tu copies juste la font dans le répertoire de font de Windows et ca marche ???,
>
> Vag
>

ok c'est pas la meme chose ;-)

Bonjour à tous ,

très intéressant tt ça mais perso j'ai juste écrit ceci sur l'action d'un boutton

AddFontResource( {adresse complète du fichier} );
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

et ca marche !  (La police est installé et pris en compte (par le NOTEPAD en outre))

{adresse complète du fichier} signifie une adresse du style :
     'C:\Mes documents\...\MaPolice.ttf'

et ca donnerai alors :

procedure TForm1.Button1Click(Sender: TObject);
begin
AddFontResource('C:\Mes documents\...\MaPolice.ttf');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;