iTASmania_Inc
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
function NextButtonClick(CurPage: Integer): Boolean;
var
sz: Integer;
begin
Result := True
if CurPage = 6 then
begin
if FileSize(ExpandConstant('{app}\Bin\XR_3DA.exe'), sz) then
begin
if sz <> 1545208 then
begin
MsgBox('Контрольная сумма для файла "'+ExpandConstant('{app}\Bin\XR_3DA.exe')+'" не совпадает с эталонной.' #13#13
'Возможно файл не является оригинальным или поврежден.' #13
'Рекомендуеться переустановить игру с оригинального носителя.', mbError, mb_Ok)
WizardForm.Close
Result := False
Exit
end
end
else
begin
MsgBox('Файл "'+ExpandConstant('{app}\Bin\'+'XR_3DA.exe')+'" отсутствует.', mbError, mb_Ok)
WizardForm.Close
Result := False
Exit
end
end
end;
|
