Schriftart im Programm funktioniert nicht unter Vista

**Michi123**

Hallo,
hab das Problem, dass ich eine Schriftart in mein Porgramm als Resource eingebunden habe und unter Vista wird diese dann nicht verwendet. Unter XP jedoch funktioniert alles einwandfrei. Auch wenn ich das Porgramm unter Vista als Administrator ausführe ändert sich daran nichts.
Gibt es denn eine Möglichkeit besagtes Problem zu lösen, ohne extra die Schriftdatei aus der Resource in den Programmordner abzuspeichern und dann von dort aus zu laden?

Schoma vielen Dank für die Antworten.

zusammenfalten · markieren

Delphi-Quellcode:

			implementation

{$R *.dfm}

{$R Beispiel.res}

procedure TfrmMain.FormCreate(Sender: TObject);

var

  Res : TResourceStream;

  ResFontCount: DWord;

begin

  Res := TResourceStream.Create(hInstance, 'Beispiel', '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);

  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

  MTest.Font.Name := 'BeispielSchriftName';

  MTest.Font.Size := 42;

end;

procedure TfrmMain.FormDestroy(Sender: TObject);

begin

  FreeMem(FontBuffer, ResSize);

  RemoveFontMemResourceEx(hFontFraktur);

end;

Schriftart im Programm funktioniert nicht unter Vista

Schriftart im Programm funktioniert nicht unter Vista

Forumregeln