仅针对Inno设置为运行时添加otf字体资源

Question

I am trying to add some additional font type to resource and then use it in my inno setup installer, only for runtime, but it is not working for OTF Font types but works perfectly for TTF font types the code I am using is something like that:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: Setup\Ubuntu.otf;  DestDir: {tmp}; Flags: dontcopy

[code]
const
  FR_PRIVATE = $10;

function AddFontResourceEx(lpszFilename:string;fl:dword;pdv:integer): LongInt; external 'AddFontResourceExW@gdi32.dll stdcall';
function RemoveFontResourceEx(lpszFilename:string;fl:dword;pdv:integer): Boolean; external 'RemoveFontResourceExW@gdi32.dll stdcall';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Ubuntu.otf');
  if (AddFontResourceEx(ExpandConstant('{tmp}\Ubuntu.otf'),FR_PRIVATE,0) = 0) then
    MsgBox('failed adding font - Ubuntu.otf',mbInformation,MB_OK);
  result := true;
end;

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel1.Font.Name := 'Ubuntu';
end;

procedure DeinitializeSetup();
begin
  RemoveFontResourceEx(ExpandConstant('{tmp}\Ubuntu.otf'),FR_PRIVATE,0);
end;

AddFontResourceEx function is always successful but there is no effect on font, it is using fail safe default font instead

Answer 1

我认为您需要添加标志参数' fontisnttruetype '。