Load external font

[WojTec]

Delphi-Quellcode:

function LoadResourceFont(const AFileName: string): Boolean;
begin
  Result := AddFontResourceW(PWideChar(AFileName)) <> 0;

  if Result then
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
  ;
end;

And a bit longer function for loading from resource.
I see that SendMessage freezes program. Without it not only not freezes app, but also font is loaded properly to controls

Initially I created functions in D7 and used it on XP-7.
Last I used it on D10.2 on 7, now after years in D11.2 also on 7, but now I see it not working as expacted (also in D7/XE2 test app).

What to do?

[himitsu]

HWND_BROADCAST is never sent with SendMessage, but with PostMessage.
Because otherwise there can be such problems if any application does not respond properly.
Alternatively SendNotifyMessage or SendMessageTimeout.

Why broadcast to ALL running applications in the system if you only temporarily install the font in your application?
SendMessage to Application.Handle

Zitat:

Delphi-Quellcode:

function LoadResourceFont(const AFileName: string): Boolean;
begin
  Result := AddFontResourceW(PWideChar(AFileName)) <> 0;

Delphi-Quellcode:

function LoadResourceFont(const AFileName: WideString): Boolean;  // or UnicodeString
begin
  Result := AddFontResourceW(PWideChar(AFileName)) <> 0;

or

Delphi-Quellcode:

function LoadResourceFont(const AFileName: string): Boolean;
begin
  Result := AddFontResource(PChar(AFileName)) <> 0;

[WojTec]

Thank you, now working correctly!