Fonts Manifest

[Prince4]

There's something i also need to know (this is the best place to ask cause i can't find another)
How can i have custom fonts in a TLabel please i tried some methods like (AddFontResource '{tmp}\myfont.ttf') but failed.. I know there are nuemrous methods to this but i want to understand them please help me out

[vint56]

#define Font "Zombie.ttf"
#define FontName "DS Zombie Cyr"

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

[Files]
Source: {#Font}; Flags: dontcopy

[code ]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif

const
FR_PRIVATE = $10;

function AddFontResource(lpszFilename: String; fl, pdv: DWORD): Integer; external 'AddFontResourceEx{#A}@gdi32.dll stdcall';
function RemoveFontResource(lpFileName: String; fl, pdv: DWORD): BOOL; external 'RemoveFontResourceEx{#A}@gdi32.dll stdcall';

procedure InitializeWizard();
begin
if not FontExists('{#FontName}') then
begin
ExtractTemporaryFile('{#Font}');
AddFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
end;
WizardForm.Font.Name := '{#FontName}';
end;

procedure DeinitializeSetup();
begin
RemoveFontResource(ExpandConstant('{tmp}\{#Font}') , FR_PRIVATE, 0);
WizardForm.Free;
end;

[Prince4]

Thanks brother will check it at noon thanks, iguess you like helping me out..

Thanks..

[Prince4]

Thanks brother will check it at noon thanks, iguess you like helping me out..

Thanks..

And yeah can you please check out the "Colored Fonts in MsgBox" thread please