INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup

[Razor12911]

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;