[PlanktoN]

Sergey3695, Я не понял как это сделать. Скрипт отправь пжл.

[AlekseyPopovv]

Как сделать, что бы файл *.exe копировался во временную папку вместе с например "iswin7logo.dll", "botva2.dll" и т.д?

[Dodakaedr]

AlekseyPopovv, по тому же самому принципу что и dll-ки.

[AlekseyPopovv]

Dodakaedr, понял.

[sergey3695]

PlanktoN,

Код:

var
  Label: TLabel;

procedure InitializeWizard;
begin
  with WizardForm do begin
    InnerNotebook.Hide;
    OuterNotebook.Hide;
  end;
  with TLabel.Create(WizardForm) do // Будет на всех страницах надпись
  begin
  Caption:= 'Установка';
  SetBounds(ScaleX(10),ScaleY(5),ScaleX(750),ScaleY(14));
  Parent:= WizardForm;
  end;
  Label := TLabel.Create(WizardForm); // Можно обратиться к Label и скрыть
  with Label do begin
    SetBounds(ScaleX(50), ScaleY(29), ScaleX(265), ScaleY(30));
    Caption := 'Description';
    Parent := WizardForm;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  Label.Hide;

  case CurPageID of
    wpWelcome:
    begin
       Label.Show;
    end;
    end;
end;

[AlekseyPopovv]

Помогите пожалуйста:

Часть кода:

procedure FullButtonClick(Sender: TObject);
var
ResultCode: Integer;
begin
// Если нет данных в реестре, то вылазит окошко "Adobe Flash Player не установлен! Всё равно запустить?" "Да" или "Нет"
if not RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper') then
if not RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPlugin') then
if not RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerActiveX') then
if MsgBox('Adobe Flash Player не установлен! Всё равно запустить?', mbError, mb_yesno) = IDYES then
if Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
else
// До сюда всё работает, а если данные есть в реестре, то деинсталлятор не запускается!
begin
if RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper') then
if RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPlugin') then
if RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerActiveX') then
if Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
end;
end;
// Чего не хватает?

[kotyarko@fb]

AlekseyPopovv, а так:

Код:

procedure FullButtonClick(Sender: TObject);
var
 ResultCode: Integer;
begin
 if not (RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper') and RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPlugin') and RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerActiveX')) then
 begin
  if MsgBox('Adobe Flash Player не установлен! Всё равно запустить?', mbError, mb_yesno) = IDYES then
   Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
 end else
 begin
  if (RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper') and RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPlugin') and RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerActiveX')) then
   Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
 end;
end;

з.ы. подучите основы языка, т.к. вы уже не первый раз используете такую неправильную конструкцию:

Код:

...
if Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
else
...
...
if Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
end;
...

[AlekseyPopovv]

kotyarko@fb, вот так работает:

Код:

procedure FullButtonClick(Sender: TObject);
var
ResultCode: Integer;
begin
if not RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper') then
begin
if MsgBox('Adobe Flash Player не установлен! Всё равно запустить?', mbError, mb_yesno) = IDYES then
Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end else
begin
if RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper') then
Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;

Как тогда остальной реестр проверить?

[sergey3695]

AlekseyPopovv,

Код:

procedure FullButtonClick(Sender: TObject);
var
  ResultCode: Integer;
begin
if (RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPepper')) and (RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerPlugin')) and (RegKeyExists(HKLM, 'SOFTWARE\Macromedia\FlashPlayerActiveX')) then
  Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
else begin
if MsgBox('Adobe Flash Player не установлен! Всё равно запустить?', mbError, mb_yesno) = IDYES then
  Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;

ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}')

з.ы. подучите основы языка, т.к. вы уже не первый раз используете такую неправильную конструкцию: »

if Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then else »

так можно

if Exec(ExpandConstant('{tmp}\{#MyAppUninstallerNameExe}'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then end; »

в этом нет смысла

урок закончен.

[AlekseyPopovv]

sergey3695, Если Вы такой умный, это не даёт Вам повода смеяться над другими! Для этого и существует форум... Участник kotyarko@fb был прав, его код подошёл, но с поправками... Ему и спасибо от души, а Вы не в ту степь пошли, либо не поняли меня! Но тем не менее спасибо всем!