[Nordek]

Как сменить эту надпись »

На выбор:

Код:

[Messages]
SetupWindowTitle=Установка — %1

Код:

[Messages]
SetupWindowTitle=Установка — {#AppName}

Код:

[Messages]
SetupWindowTitle=%1

Код:

[Messages]
SetupWindowTitle={#AppName}

[Tco 03]

Nordek, Ты меня не так понял. Мне нужно через код.

Пример отмены установки:

Код:

procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
 Cancel:=False;
 Confirm:=False;
if MsgBox('Вы действительно хотите отменить установку My_Program?', mbError, MB_YESNO) = idYes
 then
  Cancel:=true;
end;

Нужно точно так же, но только с формами: "Вы действительно хотите удалить программу?" и "Программа была полностью удалена с Вашего копьютера."

[diman_21Ru]

Подскажите пожалуйста вот есть код резервную папку res_mods сохраняет , но как можно добавить значек вот сюда ?
[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.


[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}\res-mods; Flags: external overwritereadonly ignoreversion;


[code]
#define A = (Defined UNICODE) ? "W" : "A"


function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFile{#A}@kernel32.dll stdcall';


procedure IsBackup(const FromDir: String; const ToDir: String);
var
fileArray: array of String;
FindFiles: TFindRec;
i, Len: Integer;
begin
if not DirExists(FromDir) then Exit;
fileArray := ['*'];
Len := GetArrayLength(fileArray) - 1;
for i := 0 to Len do
begin
if FindFirst(FromDir + fileArray[i], FindFiles) then
try
repeat
if not DirExists(ToDir) then CreateDir(ToDir);
MoveFile(FromDir + FindFiles.Name, ToDir + FindFiles.Name);
until not FindNext(FindFiles);
finally

FindClose(FindFiles);
end;
end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall: IsBackup(ExpandConstant('{app}\res-mods\'), ExpandConstant('{app}\Backup\'));
end;
end;

[Nordek]

добавить значек ? »

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

Код:

[Files]
Source: icon.ico; Flags: dontcopy solidbreak

[Code]
var
  IconImage: TNewIconImage;

procedure InitializeWizard();
begin
  IconImage := TNewIconImage.Create(WizardForm);
  with IconImage do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);    // Положение слева
    Top := ScaleY(184);   // Положение сверху
    Width := ScaleX(32);  // Ширина значка
    Height := ScaleY(32); // Высота значка
    ExtractTemporaryFile('icon.ico');
    Icon.LoadFromFile(ExpandConstant('{tmp}\icon.ico'));
  end;
end;

diman_21Ru, Твоя очередь когда нибудь придёт - У тебя два варианта: Либо ждать, либо самому делать - а не плодить сообщения.

есть код »

Слышал когда нибудь такое "bbcode"?

Захвати свой код в тег [CODE][/CODE] - здесь написано как это делается, и спрячь под спойлер тегом [MORE][/MORE]. Учись - у тебя есть возможность.

[diman_21Ru]

Nordek,сори за назойливость крайне срочно нужна кнопка

[Nordek]

diman_21Ru, В коде обрати внимание на Parent := WizardForm.SelectDirPage;
меняешь значения в зависимости от того на какой странице хочешь чтоб отображалось, например:

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

Код:

    Parent := WizardForm.SelectDirPage; // На странице выбора папки установки

Код:

    Parent := WizardForm.SelectProgramGroupPage; // На странице выбора папки меню пуск

Код:

Parent := WizardForm.SelectComponentsPage; // На странице компонентов

Код:

Parent := WizardForm.SelectTasksPage; // На странице задач

[innot20]

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

а возможно ли это вывести при выборе папки установки?

[diman_21Ru]

Код на резервные копии папки res_mods не работает вместо этого он добавляет шрифты какие то (
использовал код #2113

[saurn]

а возможно ли это вывести при выборе папки установки? »

Конечно.

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

Код:

#define CUR_DIR "res-mods"
#define BAK_DIR "old_res-mods"

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


[Files]
Source: C:\Windows\Fonts\*; DestDir: {app}\res-mods; Flags: external overwritereadonly ignoreversion;


[Code]
#define A = (Defined UNICODE) ? "W" : "A"


function MoveFile(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFile{#A}@kernel32.dll stdcall';


var
    backupChk: TCheckBox;


procedure IsBackup(const FromDir: String; const ToDir: String);
var
    fileArray: array of String;
    FindFiles: TFindRec;
    i, Len: Integer;
begin
    fileArray := ['*'];
    Len := GetArrayLength(fileArray) - 1;
    for i := 0 to Len do
    begin
        if FindFirst(FromDir + fileArray[i], FindFiles) then
        try
            WizardForm.ProgressGauge.Hide;
            WizardForm.StatusLabel.Caption := 'Создание резервной копии файлов...';

            repeat
                if not DirExists(ToDir) then CreateDir(ToDir);
                  MoveFile(FromDir + FindFiles.Name, ToDir + FindFiles.Name);
            until not FindNext(FindFiles);
        finally

            WizardForm.ProgressGauge.Show;
            FindClose(FindFiles);
        end;
    end;
end;


procedure InitializeWizard();
var
    ThereIsFolder: Boolean;
begin
    backupChk := nil;
    ThereIsFolder := DirExists(AddBackslash(WizardDirValue()) + '{#CUR_DIR}');
    
    if ThereIsFolder then
    begin
        backupChk := TCheckBox.Create(nil);
        with backupChk do
        begin
            Parent := WizardForm.SelectDirPage;
            SetBounds(ScaleX(WizardForm.DirEdit.Left), ScaleY(WizardForm.DirEdit.Top + 40), ScaleX(WizardForm.DirEdit.Width), ScaleY(15));
            Caption := 'Сохранить резервную копию перезаписываемых файлов';
            Checked := ThereIsFolder;
        end;
    end;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssInstall: if backupChk <> nil then
                     if backupChk.Checked then
                       IsBackup(ExpandConstant('{app}\{#CUR_DIR}\'), ExpandConstant('{app}\{#BAK_DIR}\'));
    end;
end;

Код на резервные копии папки res_mods не работает вместо этого он добавляет шрифты какие то ( использовал код #2113 »

Потому что это пример, и для примера он устанавливает шрифты из системной папки, и при повторной установке делает их резервную копию, только для того, чтобы показать вам, как этот механизм работает. Имена папок, которые нужно бэкапить, указывайте сами.

добавить значек вот сюда ? »

Под спойлером.

[sergey3695]

При использовании

const
ID_ASTERISK = 65583;
...
Icon.Handle := ID_ASTERISK;

на 7 и 8 все норм. а на xp отображается другая иконка. Если даже сделать проверку на систему, то какое значение должна принимать иконка на xp?