Thread: INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup
View Single Post
  #112  
Old 03-03-2014, 20:05
Razor12911's Avatar
Razor12911 Razor12911 is offline
Noob
  
Join Date: Jul 2012
Location: South Africa
Posts: 3,751
Thanks: 2,181
Thanked 11,209 Times in 2,308 Posts
Razor12911 is on a distinguished road
Ansi Version

[CODE]
function AddFontResource(lpszFilename:string;fl:dword;pdv:i nteger): Integer; external '[email protected] stdcall';
function RemoveFontResource(lpszFilename:string;fl:dword;pd v:integer): boolean; external '[email protected] stdcall';

function InitializeSetup:Boolean;
begin
AddFontResource(ExpandConstant('{src}\font.ttf'),F R_PRIVATE,0);
Result:=True;
end;

procedure DeinitializeSetup;
begin
RemoveFontResource(ExpandConstant('{src}\font.ttf' ),FR_PRIVATE,0);
end;

Unicode Version

[CODE]
function AddFontResource(lpszFilename:string;fl:dword;pdv:i nteger): Integer; external '[email protected] stdcall';
function RemoveFontResource(lpszFilename:string;fl:dword;pd v:integer): boolean; external '[email protected] stdcall';

function InitializeSetup:Boolean;
begin
AddFontResource(ExpandConstant('{src}\font.ttf'),F R_PRIVATE,0);
Result:=True;
end;

procedure DeinitializeSetup;
begin
RemoveFontResource(ExpandConstant('{src}\font.ttf' ),FR_PRIVATE,0);
end;
Reply With Quote
The Following 2 Users Say Thank You to Razor12911 For This Useful Post:
pakrat2k2 (03-03-2014), reiji777 (04-03-2014)