[El Sanchez]

El Sanchez, а в деинсталлятор как? »

Ivan_009, аналогично:

Код:

procedure InitializeUninstallProgressForm();
begin
    if not FontExists('{#FontName}') then
    begin
        hResInfo := FindResource(HInstance, '_IS_FONT', RT_RCDATA);
        iResSize := SizeofResource(HInstance, hResInfo);
        hResAddr := LockResource(LoadResource(HInstance, hResInfo));
        pcFonts := 1;
        fh := AddFontMemResourceEx(hResAddr, iResSize, 0, pcFonts);
    end;
    //
    UninstallProgressForm.Font.Name := '{#FontName}';
end;

procedure DeinitializeUninstall();
begin
    RemoveFontMemResourceEx(fh);
end;