Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


GoshaPolo,
есть этапы
пример (в порядке выполнения) :

читать дальше »
Код: Выделить весь код
[Setup]
AppName=Name
AppVerName=Name
DefaultDirName={pf}\Name
compression=none

[  Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
   ResultCode: Integer;
  
begin
    /////

    if CurStep = ssInstall then /// перед устанновкой
    begin
      
    end;

    ///////
    
    if CurStep = ssPostInstall then /// после установки
    begin
      
    end;
    
    //////

    if CurStep = ssDone then /// то что тебе надо
    begin
        Exec(ExpandConstant('{sys}\calc.exe'), '', '', SW_SHOW, ewNoWait, ResultCode);   ///  запустим калькулятор
        // другой пример Exec(ExpandConstant('{src}\outer\DirectX\DXSETUP.exe'), '/silent', ExpandConstant('{src}\outer\DirectX'), SW_SHOW, ewWaitUntilTerminated, ResultCode); 
        //////////////////////////////// расположение файла ///////////////////// параметры //////////  рабочая папка ///////////////////// флаги ////// (другие -  SW_HIDE, ewNoWait)
    end;
    
    ///////
end;

и в справке в поиск вбей "Exec" и "ShellExec" без кавычек

поправил свою опечатку в коде

и обрати внимание на флаг "postinstall" для секции RUN

Последний раз редактировалось Johny777, 29-05-2012 в 14:06.

Это сообщение посчитали полезным следующие участники:

Отправлено: 13:51, 29-05-2012 | #90