Comment installer une police sous Vista ?

**the_magik_mushroom** · 27/10/2007, 14h42

salut a tous.

je n'arrive pas a installer une font (police de caratere) sous windows VISTA.
en faite, impossible de copier une police dans le repertoire fonts de windows vista.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
var : s = string;
 
//je recupere le repertoire fonts, ca marche nikel
function FontsFolder(Folder: Integer): String;
var
  SFolder : pItemIDList;
  SpecialPath : Array[0..MAX_PATH] Of Char;
begin
  SHGetSpecialFolderLocation(MegaFonts3.Handle, Folder, SFolder);
  SHGetPathFromIDList(SFolder, SpecialPath);
  Result := StrPas(SpecialPath);
end;
 
s := FontsFolder(CSIDL_FONTS);
 
//ca bloque ici, il ne se passe rien
Ressources := TResourceStream.Create(hinstance, 'P1', 'POLICE'); 
Ressources.SaveToFile(s+'\'+'mapolice.ttf'); 
Ressources.Free;

j'ai meme essayer d'extraire la fopnt dans le repertoire temp puis de la copier du temp au repertoire fonts mais rien ne marche.

j'ai aussi essayer de creer une cle dans le registre en 1er mais ca marche pas nonplus.... (poutant sous 98/2000/xp ca roule).

je n'arrive pas aussi a faire fonctionner se code qui marche sous 2000 et xp sans pb :
(c'est pour utiliser une font depuis une ressource) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
 
type
  TfrmMain = class(TForm)
    memTest: TMemo;
    stbStatus: TStatusBar;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
  FontBuffer: PChar;
  hFontFraktur: THandle;
  ResSize: Integer;
 
implementation
 
{$R *.dfm}
{$R WaltDisneyFont.res}
 
procedure TfrmMain.FormCreate(Sender: TObject);
var
  Res : TResourceStream;
  ResFontCount: DWord;
begin
  Res := TResourceStream.Create(hInstance, 'WaltDisney', 'RT_FONT');
  try
    ResSize := Res.Size + 1;
    FontBuffer  := AllocMem(ResSize);
    Res.Read(FontBuffer^, ResSize);
  finally
    Res.Free;
  end;
  ResFontCount := 1;
  hFontFraktur := AddFontMemResourceEx(FontBuffer, ResSize, nil, @ResFontCount);
  memTest.Font.Name := 'Walt Disney Script v4.1';
  memTest.Font.Size := 42;
end;
 
procedure TfrmMain.FormDestroy(Sender: TObject);
begin
  FreeMem(FontBuffer, ResSize);
  RemoveFontMemResourceEx(hFontFraktur);
end;
 
end.

merci d'avance

**the_magik_mushroom** · 02/11/2007, 03h43

bon j'ai reussi a installer ma police sous vista, faut creer la cle de registre en 1er sinon on peut rien copier dans le dossier fonts.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
var
  reg: TRegistry;
  Res : TResourceStream;
begin
 
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.LazyWrite := false;
  reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts',false);
  reg.WriteString('WBXscar (TrueType)','WBXscar.ttf');
  reg.CloseKey;
  reg.free;
 
Res := TResourceStream.Create(hinstance, 'P1', 'POLICE'); 
Res.SaveToFile('C:\Windows\Fonts\WBXscar.ttf'); 
Res.Free;
 
 
  AddFontResource(Pchar('C:\Windows\Fonts\WBXscar.ttf'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 
  RemoveFontResource(PChar('C:\Windows\Fonts\WBXscar.ttf'));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
 
end;

par contre ma police n'est pas directement utilisable, faut que je reboot un coup pour l'utiliser, je comprend pas ce qui cloche..

J'ai un vieux prog qui s'appel 'the font thing' qui install n'importe qu'elle font sous vista sans probleme, je fait exactement la meme chose que lui mais moi ca bug : extrait de la faq

Q: What happens when I Install or Uninstall a font?

A: When you Install a font:

1 The font file is copied into your Windows Fonts folder. This is usually something like C:\Windows\Fonts, but can vary.
2 A reference to the font copied to the Windows Fonts folder is added to the installed fonts list in the Windows Registry.
3 A Windows function is called to add the font to the Windows font table, which makes it available to all applications.
4 A message is broadcast notifying applications of the change to the Windows font table.