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

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