[insombia]

Edison007 жаль

[Gnom_aka_Lexander]

No4noylis, Можно.

читать дальше »

Код:

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

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.

[Languages]
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"

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

[_Code]
var
  IsCustomFontInstalled: boolean;
  FontName: string;

function AddFontResource(FileName: PAnsiChar): Integer; external 'AddFontResourceA@gdi32.dll stdcall';
function RemoveFontResource(FileName: PAnsiChar): BOOL; external 'RemoveFontResourceA@gdi32.dll stdcall';

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('{#Font}');
  IsCustomFontInstalled:=AddFontResource(ExpandConstant('{tmp}')+'\{#Font}')>0;
  if IsCustomFontInstalled then SendMessage(HWND_BROADCAST,$1D,0,0);
  if FontExists('{#FontName}') then FontName:='{#FontName}' else FontName:='Arial';
  Result:= True;
end;

Procedure InitializeWizard();
begin
  WizardForm.Font.Name:= FontName;
end;

procedure DeInitializeSetup();
begin
  WizardForm.Free;
  if IsCustomFontInstalled then
  if RemoveFontResource(PAnsiChar(ExpandConstant('{tmp}')+'\{#Font}')) then SendMessage(HWND_BROADCAST,$1D,0,0);
end;

Положить рядом со скриптом файл шрифта Zombie.ttf, либо любой другой, но тогда поправить в скрипте - #define Font "Zombie.ttf" - файл шрифта, #define FontName "DS Zombie Cyr" имя шрифта

[No4noylis]

1) А как изменить размер инсталлятора????
2) И удалять страници из инсталлятора???? (Если не трудно, напишите ID всех его страниц) И соответственно как потом переименовать кнопку далее в установить????

[R.i.m.s.k.y.]

А как изменить размер инсталлятора »

Код:

 [Setup]
DiskSpanning=yes 
SlicesPerDisk=3
DiskSliceSize=1566000000

И удалять страници из инсталлятора »

пропускать можно

Код:

 *[*Code] 
procedure CurPageChanged(CurPageID: Integer); 
begin 
If CurPageID=wpWelcome then 
begin 
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0) 
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0) 
end; 
end; 

//CurPage может принимать значения
//wpWelcome, wpLicense, wpPassword, wpInfoBefore, wpUserInfo, wpSelectDir, wpSelectComponents, wpSelectProgramGroup, wpSelectTasks, wpReady, wpPreparing, wpInstalling, wpInfoAfter, wpFinished

все находится в справке и шапке за 5 минут

[Rikill]

No4noylis, а так же можно удалять страницы так:

Код:

[setup]
DisableDirPage=true
DisableFinishedPage=true
DisableProgramGroupPage=true
DisableReadyMemo=true
DisableReadyPage=true
DisableStartupPrompt=true
DisableWelcomePage=true

[No4noylis]

А как изменить размер инсталлятора » Код: [Setup] DiskSpanning=yes SlicesPerDisk=3 DiskSliceSize=1566000000 »

Спасибо, но я имел ввиду размер окна инсталлятора???

[Rikill]

No4noylis, выражайся точнее

Код:

procedure InitializeWizard(); 
  with WizardForm do begin
    Width:=ScaleX(559); 
    Height:=ScaleY(404);   
    Position:=poScreenCenter;
  end;

пробуй

[R.i.m.s.k.y.]

Спасибо, но я имел ввиду размер окна инсталлятора »

это сложно, вытянешь или окно и остальные элементы останутся на месте или закроются, руками надо каждый элемент сдвигать
поставь расширенный инно (в шапках все есть), в нем есть inno form designer, можно мышко сдвигать и рисовать, попробуй

[No4noylis]

это сложно, вытянешь или окно и остальные элементы останутся на месте или закроются, руками надо каждый элемент сдвигать поставь расширенный инно (в шапках все есть), в нем есть inno form designer, можно мышко сдвигать и рисовать, попробуй »

Я уже устанавливал inno form designer, у меня возник такой вопрос: можно ли из inno setup как нибудь достать *.isf файл чтоб отредактировать его???

[insombia]

У кого то есть нормальная ссылка на Inno Setup Form Designer 2.0.8?А то здесь ссылка битая