[Ivan_009]

diman_21Ru, В личке

[vint56]

Ivan_009 edit можно наложить на картинку только за чем он же не прозрачный и смысла нету это делать

[Ivan_009]

vint56, А чтобы он прозрачный был и выделять можно как так сделать чет непойму.

Или только через ISPicture2 можно...

[Ivan_009]

Покажите пожалуйста пример плавного открытия и закрытия инсталлятора... Зарание спасибо...

[Nordek]

музыка играет но как можно добавить кнопку вкл\выкл »

Для нуждающихся BASS v.1.4

P.S diman_21Ru, Пробуй иногда пользоваться поиском.

[novahudonoser]

всем привет! два вопросика:
1. как отключить регистрацию в списке установленных программ и формирование unins000.dat unins000.exe файлов
(нужен инсталятор чтобы только распаковал файлы в нужном месте и без "свидетелей", путь копирования файлов берётся из ключа в реестре)
2. если ключа нет - выводим мессейдж:

Код:

function GetInstallDir(const Default: String): String;
begin
    RegQueryStringValue(HKLM, 'SOFTWARE\TimeCalculator', 'path', Result);
    if Result <> '' then RemoveBackslash(Result) else MsgBoxEx(Application.Handle, 'блаблабла', 'Установка отменена', $10, 0, 0);
end;

и в этот момент надо прервать процесс установки, как?

[Mailchik]

novahudonoser,
1.

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
Uninstallable=no

2.

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={code:GetInstallDir}

[Code]
var
  sPath: string;

function GetInstallDir(const Default: String): String;
begin
  Result := RemoveBackslash(sPath);
end;

function InitializeSetup(): boolean;
begin
  Result := RegQueryStringValue(HKCU, 'SOFTWARE\7-Zip', 'Path', sPath);
  if not Result then
    MsgBoxEx(Application.Handle, 'блаблабла', 'Установка отменена', $10, 0, 0);
end;

[novahudonoser]

Mailchik, спасибо
только при обнаружении ключа, инсталер показывает ReadyPage http://clip2net.com/s/6DuYQR
чего хотелось бы избежать

ранее saurn мне подсказывал на этот счёт

Код:

function ShouldSkipPage(PageID: Integer): Boolean;
begin
    ValueExists := RegValueExists(HKLM, 'SOFTWARE\TimeCalculator', 'path');
    case PageID of
        wpSelectDir: Result := ValueExists;
        wpReady: Result := not ValueExists;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        wpSelectTasks: if ValueExists then WizardForm.NextButton.Caption := SetupMessage(msgButtonNext) else WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall);
    end;
end;

но в купе с Вашим кодом - страница таки не игнорится, подскажите в чём проблема?

[saurn]

novahudonoser,

Код:

[Setup]
DisableReadyPage=yes

А выше означеный вами кусок кода можете вообще убрать из скрипта, я так понимаю, скрывать\показывать страницу готовности по условию больше не требуется.

[novahudonoser]

на данном этапе да, скрывать по условию больше не требуется
механизм обновления в последствии будет полностью автоматическим, это так сказать слеующий шаг к её реализации (пока полуавтоматический) )

вот код, и всё вроде так, а страница таки вылезает

Код:

[Setup]
AppName=Update TimeCalculator
AppVerName=Update TimeCalculator
OutputDir=output\
OutputBaseFilename=Update_1.8
DefaultDirName={code:GetInstallDir}
AllowNoIcons=yes
DisableReadyPage=yes
DisableWelcomePage=yes
DisableStartupPrompt=yes
DisableFinishedPage=yes
Uninstallable=no
Compression=lzma
SolidCompression=yes

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

[Files]
Source: "update_TimeCalculator.exe"; DestDir: "{app}"; CopyMode: alwaysoverwrite; Flags: recursesubdirs
Source: "help\TimeCalculator.chm"; DestDir: "{app}"; CopyMode: alwaysoverwrite; Flags: recursesubdirs

*Code]  // скобку заменил звездой из-за форума

var
  sPath: string;

function GetInstallDir(const Default: String): String;
begin
  Result := RemoveBackslash(sPath);
end;

function InitializeSetup(): boolean;
begin
  Result := RegQueryStringValue(HKLM, 'SOFTWARE\TimeCalculator', 'Path', sPath);
  if not Result then
    MsgBoxEx(Application.Handle, 'Программа TimeCalculator не инициализирована!'+ Chr(10)+'Запустите программу и повторите установку обновления.', 'Установка обновления отменена', $10, 0, 0);
end;