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

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

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