Nuclear_glare
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: #define Font "MTCORSVA.ttf"
#define FontName "MTCORSVA"
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
[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; |
|
