[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;
...