Dimas2011, Да, сколько времени прошло?!
Ну вот что тебе, кроме скрина трудно что-ли было кусок кода в месте ошибки скопировать и вставить сюда?
И если делаешь скрин, то делай правильно - чтоб видно было (а то гадай, какая у тебя там процедура).
Тебе так
никто помогать не станет, потому что приходится
угадывать что у тебя там.
Тем более переписывать код чтоб ты понял (Делаю вывод из того, что когда тебе
Shkutu подсказала и ты не понял, то я не знаю. Тебе разжёвывать прямо надо и за тебя съесть. В следующий раз, если попадётся случай. Тоже сделаю скрин кода, да так чтоб ты за ним часа четыре просидел и подумал.), кому охота? Мне точно лень.
Вместо грамотно составленного сообщения, ты
продолжаешь одно и тоже сообщение отправлять. Не надоедает?
Остальных, кто делает подобное тоже касается. Если хотите чтоб вам помогли, то составляйте своё сообщение грамотно. И чтоб не приходилось страдать геморроем тем, кто вам помогает.
Так же нужно понимать грань между
помогите и
сделайте за меня. Помочь можно, но делать за вас никто не будет. Наглеть тоже не нужно, т.е по несколько раз одно и тоже сообщение отправлять. Кто сочтёт нужным - тот обязательно поможет, а нет - так нет.
Цитата Dimas2011:
|
Помогите исправить ошибку »
|
Смотри, ты скопировал а вот вставить толком то не смог.
У тебя было так (примерно):
Код:
function InitializeSetup(): Boolean;
begin
Result := InitializeSetup1(); if not Result then exit;
end;
далее, ты скопировал совместил и получилось так:
Код:
function InitializeSetup(): Boolean;
begin
Result:= true;
if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра {#SetupSetting("AppName")} не найдена! '+#13#10+'Будет предложен альтернативный путь установки, либо укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
end;
begin
Result := InitializeSetup1(); if not Result then exit;
end;
твоя ошибка находится здесь
(отметил красным и выделил жирным):
Код:
function InitializeSetup(): Boolean;
begin
Result:= true;
if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра {#SetupSetting("AppName")} не найдена! '+#13#10+'Будет предложен альтернативный путь установки, либо укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
end;
begin
Result := InitializeSetup1(); if not Result then exit;
end;
и то что отмечено красным, нужно было удалить.
Итог твоего кода должен был получиться таким:
Код:
function InitializeSetup(): Boolean;
begin
Result:= true;
if not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') then
MsgBox('Игра {#SetupSetting("AppName")} не найдена! '+#13#10+'Будет предложен альтернативный путь установки, либо укажите путь к папке с игрой вручную!', mbinformation, mb_ok);
Result := InitializeSetup1(); if not Result then exit;
end;
