Скрипты Inno Setup. Помощь и советы [часть 6]

Ivan_009 · Конфигурация компьютера

Цитата Ivan_009:

Как удалить иконку в левом верхнем углу... »

Собственно не нашел как удалить. Зато можно сменить, чтобы ее невидно совсем было...

Может кому пригодится

saurn · Конфигурация компьютера

Цитата diman_21Ru:

А можно ли кнопку добавить к сохранением папки модов ? »

Можно кнопку, можно и страницу:

Код:

#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
    pageBackup: TInputDirWizardPage;


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;


function CreateBackupPage(const AfterID: Integer): TInputDirWizardPage;
begin
    Result := CreateInputDirPage(AfterID,
              'Резервное копирование',
              'Создание резервных копий перезаписываемых файлов.',
              'Укажите папку, в которую будут помещены резервные копии оригинальных файлов.',
              False, 'Новая папка');
              
    with Result do
    begin
        Add('Папка резервных копий:');
        Values[0] := AddBackslash(WizardDirValue()) + '{#BAK_DIR}';
    end;
end;


procedure InitializeWizard();
begin
   if DirExists(AddBackslash(WizardDirValue()) + '{#CUR_DIR}') then
     pageBackup := CreateBackupPage(6);
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
    case CurStep of
        ssInstall: if DirExists(ExpandConstant('{app}\{#CUR_DIR}')) then
                     IsBackup(ExpandConstant('{app}\{#CUR_DIR}\'), AddBackslash(pageBackup.Values[0]));
    end;
end;

Ivan_009 · Конфигурация компьютера

Как можно удалить Меню «О программе». Зарание спасибо...

Проще говоря все это меню...

innot20 · Отправлено: **00:13, 04-02-2014** | #**2104**

Цитата Ivan_009:

Как можно удалить Меню «О программе». Зарание спасибо...
Проще говоря все это меню... »

как вариант можно изменить

http://forum.oszone.net/post-1660375-1363.html

PerfectLove · Отправлено: **02:03, 04-02-2014** | #**2105**

Как сменить цвет текста Caption?

[code]

// backup

Код:

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


function MoveDir(const srcFile, destFile: PAnsiChar): Integer; external 'MoveFileA@kernel32.dll stdcall'; 


var
    arrayChk: array of TCheckBox;


function ChkChecked(const Index: Integer): Boolean;
var
    Len: Integer;
begin
    Len := GetArrayLength(arrayChk) - 1;

    if Index > Len then Exit;
    Result := arrayChk[Index].Checked;
end;


procedure CreateBackup();
var
    FindDir: TFindRec;
    i, Len: Integer;
    Dir: array of string;
    MyDir, BackDir: string;
begin
    Len := GetArrayLength(arrayChk) - 1;
    if (ChkChecked(0) and ChkChecked(Len)) then Exit; //Если выбраны оба чекбокса резервная копия создана не будет
    if ChkChecked(0) then Dir := ['*']; //Резервное копирование папки
    if ChkChecked(Len) then Dir := ['xvm']; //Резервное копирование определенных файлов
    MyDir:=ExpandConstant('{app}\res_mods'+'\');
    BackDir:=ExpandConstant('{app}'+'\Backup\');
    for i:=0 to GetArrayLength(Dir)-1 do
    begin
        if FindFirst(MyDir + Dir[i], FindDir) then
        begin 
        if FindFirst(MyDir+Dir[i], FindDir) then begin 
          repeat 
            if not DirExists(BackDir) then begin 
              CreateDir(BackDir); 
            end; 
            MoveDir(MyDir+FindDir.Name, BackDir+FindDir.Name); 
          until not FindNext(FindDir); 
          FindClose(FindDir);
        end; 
      end; 
    end; 
  end;


procedure CreateChk();
var
    i, Len: Integer;
begin
    SetArrayLength(arrayChk, 2);
    Len := GetArrayLength(arrayChk) - 1;

    for i := 0 to Len do
    begin
        arrayChk[i] := TCheckBox.Create(nil);
        with arrayChk[i] do
        begin
            Parent := WizardForm.SelectDirPage;
            SetBounds(ScaleX(0), ScaleY(100 + i*24), ScaleX(400), ScaleY(15));
            Color := clGreen;
            case i of
                0: Caption := 'Backup res_mods folder';
                Len: Caption := 'Backup xvm folder only';
            end;
        end;
    end;
end;


procedure InitializeWizard4();
begin
    CreateChk();
end;



procedure CurStepChanged(CurStep: TSetupStep);
var
    Len: Integer;
begin
    Len := GetArrayLength(arrayChk) - 1;

    case CurStep of
        ssInstall: if (ChkChecked(0) or ChkChecked(Len)) then CreateBackup();
    end;
end

Tco 03 · Отправлено: **07:23, 04-02-2014** | #**2106**

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