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

[Farser21]

Цитата Farser21:



Всем привет, как сделать слайды на странице установки?

Вот мой скрипт, заранее спасибо за ответы.

http://rghost.ru/52965051

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

[Shkutu]

saurn, была у меня такая мысль. Хотя с fpc приложением библиотека работает, это я проверяла. Ладно, буду разбираться

[saneksanek]

Цитата kot-da-vinci:



Как сообщить инсталятору, что нужно активировать таск BV6080, а не BV5030?

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

я вот так отслеживаю, условия в TasksCheck сам пропишешь



Код:

Код: Выделить всё

procedure TasksCheck();
var
  Item: Integer;
begin
  if ( check_for_haali ) then begin
    Item := WizardForm.TasksList.Items.IndexOf(ExpandConstant('{cm:Haali}')); if (Item >= 0) then begin WizardForm.TasksList.Checked[item] := True; if WizardForm.TasksList.ItemIndex = Item then WizardForm.TasksList.Checked[item] := True; end;
  end;
end;
procedure TasksListClickCheck(Sender: TObject);
begin
  TasksCheck;
end;
procedure InitializeWizard();
  WizardForm.TasksList.OnClickCheck := @TasksListClickCheck;
end;

[Irenis]

Цитата Farser21:



Всем привет, как сделать слайды на странице установки?

Вот мой скрипт, заранее спасибо за ответы.

http://rghost.ru/52965051

»

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

Воспользоваться библиотекой isSlideShow v1.02 [16.05.2010] от ExpeditorR.

Пожалуйста.

[Habetdin]

Цитата Farser21:



Всем привет, как сделать слайды на странице установки

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

Держи:

http://rghost.ru/52992147

[diman_21Ru]

Dodakaedr, Не помогло даже картинки не выходят почему то

[saneksanek]

имеем двух пользователей: user и admin

система под пользователем, запуск от админа

запись в реестре происходит куда надо: при запуске от админа - в HKCU пользователя

Но вот при деинсталляция при запуске от админа/пользователя ключи удалаются HKCU у админа



Код:

Код: Выделить всё

[Registry]
Root: HKU; SubKey: {code:getOriginalSID}\Software; ValueType: string; ValueName: Path; ValueData: {app}\; Flags: uninsdeletekeyifempty uninsdeletevalue noerror
viewtopic.php?p=2789374#p2789374
#define A = (Defined UNICODE) ? "W" : "A"
const
    WTS_CURRENT_SERVER_HANDLE = 0;
    WTS_CURRENT_SESSION = (-1);
    WTSUserName = 5;
function WTSQuerySessionInformation(hServer: THandle; SessionId, WTSInfoClass: DWORD; var ppBuffer: Longint; var pBytesReturned: DWORD): BOOL; external 'WTSQuerySessionInformation{#A}@wtsapi32.dll stdcall';
procedure WTSFreeMemory(pMemory: Longint); external 'WTSFreeMemory@wtsapi32.dll stdcall';
///////////////////////////////////////////////////////
function GetLoggedOnUser(const IsSID: Boolean): String;
var
    i: Integer;
    aNames: TArrayOfString;
    dwLength: DWORD;
    lpBuffer: Longint;
begin
    if not RegGetSubkeyNames(HKLM, 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList', aNames) then Exit;
    try
        if not WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSUserName, lpBuffer, dwLength) then Exit;
        Result := CastIntegerToString(lpBuffer);
        if IsSID then for i := 0 to GetArrayLength(aNames)-1 do if Pos(Lowercase(Result), LowerCase(ExpandConstant(Format('{reg:HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%s,ProfileImagePath|}', [aNames[i]])))) > 0 then
        begin
            Result := aNames[i];
            Break;
        end;
    finally
        WTSFreeMemory(lpBuffer);
    end;
end;
function getOriginalSID:string
begin
result := GetLoggedOnUser(True);
end;

[Dinvin4ester]

Цитата Ivan_009:



Держи:

http://rghost.ru/52992147

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

Все работает, но после завершения установки вот такое окно:





Пользовался exemple3.iss

[diman_21Ru]

Farser21, Добавь:





Код:

Код: Выделить всё

KillTimer(0, TimerID);

Сюда:





Код:

Код: Выделить всё

 if CurPageID=wpFinished then
  begin
 //Сюда
   DeinitializeSlideShow;
   WizardForm.ProgressGauge.visible:=false;
  end;
end;

Цитата Dinvin4ester:



А мне ребят поможетe? С музыкой проблему решил,прогресс бара нет

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

Dinvin4ester, В смысле какого прогресс бара и где уточни...

[Shkutu]

И еще такой вопрос, а вернее два

Можно ли как-то достучаться до файлов, которые упакованы в инсталлятор? Ну какая-нибудь системная константа или типа того что-нибудь, чтобы можно было скопировать файл, запакованный в инсталлятор, руками, а не через секцию [files].

И можно ли как-нибудь руками выставить значения выбранных компонентов? Ну т е компоненты есть, но пользователь страницу с компонентами не видит. А сами выбранные компоненты определяются программно, в коде.