[Farser21]

Всем привет, как сделать слайды на странице установки? Вот мой скрипт, заранее спасибо за ответы. http://rghost.ru/52965051 »

[R.i.m.s.k.y.]

какого лешего

Код:

 ---------------------------
Ошибка компиляции
---------------------------
Строка 794:

Column 10:

Invalid prototype for 'GetOriginalSID'
---------------------------
ОК   
---------------------------

Код:

function GetOriginalSID(): String;
begin
  result := get_Original_SID;
end;

пример вызова

Код:

[Registry]
Root: HKU; SubKey: {code:getOriginalSID}\Software; ValueType: string; ValueName: Path; ValueData: {app}\; Flags: uninsdeletekeyifempty uninsdeletevalue noerror

[R.i.m.s.k.y.]

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

я вот так отслеживаю, условия в 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;

[nik1967]

Всем привет, как сделать слайды на странице установки? Вот мой скрипт, заранее спасибо за ответы. http://rghost.ru/52965051 » »

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

[Ivan_009]

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

Держи: http://rghost.ru/52992147

[Dinvin4ester]

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

[R.i.m.s.k.y.]

имеем двух пользователей: user и admin
система под пользователем, запуск от админа
запись в реестре происходит куда надо: при запуске от админа - в HKCU пользователя
Но вот при деинсталляция при запуске от админа/пользователя ключи удалаются HKCU у админа

Код:

[Registry]
Root: HKU; SubKey: {code:getOriginalSID}\Software; ValueType: string; ValueName: Path; ValueData: {app}\; Flags: uninsdeletekeyifempty uninsdeletevalue noerror

http://forum.oszone.net/post-2319623.html#post2319623
#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;

[Farser21]

Держи: http://rghost.ru/52992147 »

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


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

[Ivan_009]

Farser21, Добавь:

Код:

KillTimer(0, TimerID);

Сюда:

Код:

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

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

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

[Farser21]

Ivan_009, спасибо помогло. Но когда решил добавить это в свой установщик то вот такая ошибка появилась.