[Dodakaedr]

Как в зависимости от ОС показывать\скрывать элемент? В данном случаи чекбокс:

Скрытый текст

Код:

[Setup]
appname=app
appversion=1.0
DefaultDirName={pf}\app

[code]
#define A = (Defined UNICODE) ? "W" : "A"
const
    VER_PLATFORM_WIN32_NT = 2;
type
    _OSVERSIONINFOEX = record
        dwOSVersionInfoSize: DWORD;
        dwMajorVersion: DWORD;
        dwMinorVersion: DWORD;
        dwPlatformId: DWORD;
        wServicePackMajor: WORD;
       end;

var
Taskbar: TCheckBox;

function GetVersionEx( var lpVersionInformation: _OSVERSIONINFOEX ): BOOL; external 'GetVersionEx{#A}@kernel32.dll stdcall';

function IsWindowsXp( ): Boolean;
var
    osviEx: _OSVERSIONINFOEX;
begin
    osviEx.dwOSVersionInfoSize := SizeOf( osviEx );

    if ( not GetVersionEx( osviEx ) ) then
      Exit;

    Result := ( ( osviEx.dwPlatformId = VER_PLATFORM_WIN32_NT ) and
                ( osviEx.dwMajorVersion = 5 ) and
                ( osviEx.dwMinorVersion = 1 ) and
                ( osviEx.wServicePackMajor = 3 ) );
end;

procedure TaskbarCreate();
begin
    Taskbar := nil;

    if not IsWindowsXp then
      begin
          Taskbar := TCheckBox.Create(nil);
          with Taskbar do
          begin
              Parent := WizardForm.WelcomePage;
              SetBounds(ScaleX(185), ScaleY(251), ScaleX(104), ScaleY(15));
              Caption := 'Раздача';
              
          end;
      end;
end;

procedure InitializeWizard();
begin
  TaskbarCreate;
end;

Задача: не показывать чекбокс если оперативная система XP.

[El Sanchez]

Задача: не показывать чекбокс если оперативная система XP. »

Dodakaedr,

Код:

var
    Taskbar: TCheckBox;

procedure TaskbarCreate;
begin
    Taskbar := TCheckBox.Create(WizardForm);
    with Taskbar do
    begin
        Parent := WizardForm.WelcomePage;
        SetBounds(ScaleX(185), ScaleY(251), ScaleX(104), ScaleY(15));
        Caption := 'Раздача';
        Visible := (GetWindowsVersion > $06000000);
    end;
end;

///////////////////////////
procedure InitializeWizard;
begin
    TaskbarCreate;
end;

[AlekseyPopovv]

Как скрыть окошко в конце деинсталляции: "UninstalledAll=Программа %1 была полностью удалена с вашего компьютера."?
И ещё: вот так вот удаляется папка "DelTree(ExpandConstant('{localappdata}\Temp\CacheProgram'), True, True, True);"
а так нет "DelTree(ExpandConstant('{tmp}\CacheProgram'), True, True, True);". Почему не понятно!

[Dodakaedr]

Как скрыть окошко в конце деинсталляции »

Скрытый текст

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DisableFinishedPage=yes
OutputDir=.

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

[Code]
function InitializeUninstall:boolean;
var
  rcode: Integer;
begin
  Result:= False;
if not UninstallSilent then
begin
  Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW, ewNoWait, RCode);
  Exit;
end;
if MsgBox('удалить программу?', mbConfirmation, MB_YESNO) = IDYES then
begin
  Result := True;
end;
if not UninstallSilent then
begin
  Exec(ExpandConstant('{uninstallexe}'), '/SILENT', '', SW_SHOW, ewNoWait, RCode);
  Exit;
end;
end;

Почему не понятно! »

Потому что {localappdata}\Temp\CacheProgram это C:\Users\Admin\AppData\Local\Temp\CacheProgram, а {tmp}\CacheProgram:

{tmp} Временная папка. Это не значение переменной среды TEMP пользователя. Это папка, где создаются временные файлы инсталлятора ("C:\WINDOWS\TEMP\IS-xxxxx.tmp"). Все файлы и папки удаляются из папки Temp после завершения установки приложения. Эта константа используется в случае, если в секции [Run] указаны файлы, необходимые при инсталляции, но не нужные для дальнейшей работы приложения.

[AlekseyPopovv]

В системе имеется файл "Config.ini" с таким содержимым:
[General]
Language=Russian
Как мне в эту секцию дописать:
Key=123
и сохранить файл в таком виде:
[General]
Language=Russian
Key=123
Пробовал так, но результат не тот:
if FileExists(ExpandConstant('{win}\Config.ini')) then
SetIniString('Gereral', 'Key', '123', ExpandConstant('{win}\Config.ini'));
Получается:
[General]
Language=Russian

[General]
Key=123
Помогите.

[Dodakaedr]

В системе имеется файл "Config.ini" с таким содержимым: [General] »

В файле General а вы пишите SetIniString('Gereral', 'Key', '123', ExpandConstant('{win}\Config.ini')); вот и не стыковка.

[AlekseyPopovv]

Исправил, но всё равно создаёт вторую такую же секцию. Я где то раньше видел пример, теперь не могу найти.

[Dodakaedr]

Исправил, но всё равно создаёт вторую такую же секцию »

Скопируйте слово General с файла и вставьте в скрипт, потому что все работает.

Файл Config.ini

Положите файл Config.ini радом с исталлом

[General] Language=Russian

Инсталл

Код:

[Setup]
appname=appppp
AppVersion=1.0
DefaultDirName={pf}\appppp
OutputDir=.

[code]
procedure InitializeWizard();
begin
if FileExists(ExpandConstant('{src}\Config.ini')) then
SetIniString('General', 'Key', '123', ExpandConstant('{src}\Config.ini'));
end;

[AlekseyPopovv]

Попробовал. Создал новый другой файл .ini всё сработало, а у того файла видать особенность такая!
Добавил другие параметры, он их удалил сам. Короче файл шифрованный.

[Dodakaedr]

Короче файл шифрованный. »

Скиньте его посмотрим что за файл такой. Возможно на нем атрибут стоить только чтение.