var
AppDir: string; ResultCode: Integer;
procedure ReadEntries();
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\GFI\Ghost Recon', 'InstallPath', AppDir);
end;
function InitializeSetup(): Boolean;
var
Exe: string;
begin
Exe:='GhostRecon.exe';
if (RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\GFI\Ghost Recon', 'InstallPath')) then
begin
ReadEntries;
case (MsgBox('Игра ' + ExpandConstant('{cm:ProductName}') + ' уже найдена на Вашем компьютере. Запустить игру?', mbConfirmation, MB_YESNOCANCEL or MB_DEFBUTTON3)) of
IDYES:
begin
if (FileExists(AddBackslash(AppDir) + Exe)) then
begin
Exec(AddBackslash(AppDir) + Exe, '', ExtractFilePath(AddBackslash(AppDir) + Exe), SW_SHOW, ewNoWait, ResultCode);
end else begin
MsgBox('Невозможно запустить ' + ExpandConstant('{cm:ProductName}') + ', т.к. исполняемый файл программы не найден.', mbCriticalError, MB_OK or MB_DEFBUTTON1);
end
Result:=False;
end
IDNO:
begin
Result:=True;
end
IDCANCEL:
begin
Result:=False;
end
end
end else begin
Result:=True;
end
end;[/SOURCE][/more]
По идее при установленной игре, и повторном нажатии на[B] "setup.exe"[/B], должно выходить диалоговое окно [B]"Запустить игру: Да - Нет"[/B], но окно не появляется и игра начинает установку заного ?