Создание инсталляторов для модпаков на базе Inno Setup

[Nowik1971 2]

Вы прежде чем так помогать друг другу хоть почитайте справку к Инно, так в тупую что-то делать вы совсем запутаетесь.... есть примеры и в гугле полно всего.... надо только правильно спросить, да и здесь помогут если в личку напишите или вопрос правильно сформулируете.... А на пальцах тыкать  не есть зер гуд, немного и почитывать стоит из Хелпа инно

Edited November 7, 2016 by Nowik1971

[sergy2010 24]

я сам ни черта почти не умею так что сделал как смог)) у тебя там три пункта а в моем только два.мой скрипт может и не подойти тебе.  просто из своего скрипта удали описания к этим кнопкам

смотри фото. там где я вверху обвел было описание кнопки и я просто удалил что там написано а где ниже обвел там уже пишешь что будет видно в установщике !

неповеришь я так уже давно сделал и тожа в 2 пункта,ну смысл твой  как поменять цвет шрифта я понял спс тебе

[Lom 48]

Вы прежде чем так помогать друг другу хоть почитайте справку к Инно, так в тупую что-то делать вы совсем запутаетесь.... есть примеры и в гугле полно всего.... надо только правильно спросить, да и здесь помогут если в личку напишите или вопрос правильно сформулируете.... А на пальцах тыкать  не есть зер гуд, немного и почитывать стоит из Хелпа инно

я в тупую если бы делал нихрена не сделал бы ты за базаром следи достал уже!!!!  ему нужно было изменить там. я подсказал свой вариант. а твой вариант не канает так как это у него новое окно и оно не отображается в редакторе форм! так что твой ответ ему точно нихрена не помог!!!! 

неповеришь я так уже давно сделал и тожа в 2 пункта,ну смысл твой  как поменять цвет шрифта я понял спс тебе

в этом варианте как цвет менять я не знаю если честно. просто как видно у меня на скрине надпись будет белой и заметной)) хотя и прописывал там цвет как умею. например так - DeleteCheckBox.Font.Color := clOlive;   чет не пошло дело))

Edited November 7, 2016 by ЛОМ

[Nowik1971 2]

ты за базаром следи достал уже!!!!

Совсем обнаглел, я помогал тебе, а ты так выражаешься "Редиска!!!!"  и в редакторе форм много что сделать можно, только справку почитай неуч!

Еще и плачешь почему тебе минусы ставят! Повзрослей и научись общаться, а точнее вопросы ставить как надо...

Хотя мне по барабану на тебя ведь неумности только и хлещуют из твоих уст!

К тому же я пояснил как сделать и что убрать, и правильно, а ты это даже и не заметил, хотя сделал так же...

Edited November 7, 2016 by Nowik1971

[Lom 48]

Совсем обнаглел, я помогал тебе, а ты так выражаешься "Редиска!!!!"  и в редакторе форм много ччто сделать можно, только справку почитай неуч!

да ты помогал и это факт!!! но то что ты помогал не значит что тебе можно меня оскорблять !!! за то что ты помогал и тебе и другим СПАСИБО!!! и это от души я говорю!!!!  И Я НЕ ОБНАГЛЕЛ. не надо просто писать как ты написал это любого человека заденет и тебя тоже! сам же это понимаешь!!!! и то что ты постоянно ставишь мне минусы меня не обижает)))) я в ответ ни разу ни тебе никому минус не кинул и не кину)))

Совсем обнаглел, я помогал тебе, а ты так выражаешься "Редиска!!!!"  и в редакторе форм много что сделать можно, только справку почитай неуч!

Еще и плачешь почему тебе минусы ставят! Повзрослей и научись общаться, а точнее вопросы ставить как надо...

Хотя мне по барабану на тебя ведь неумности только и хлещуют из твоих уст!

К тому же я пояснил как сделать и что убрать, и правильно, а ты это даже и не заметил, хотя сделал так же...

если эта страница что он показал не отображается в   редакторе форм че ты ему пишешь про редактор???? и хватит оскорблять меня.!!!  я сразу написал я ничерта не умею и просто предложил вариант который сам сделал так как сам тоже не смог цвет шрифта поменять. и так  как этой страницы нет в редакторе форм.

Edited November 7, 2016 by ЛОМ

[sergy2010 24]

ЛОМ помогай теперь шрифт увеличить не могу size не помогает разжуй мне нубарю и неучу

[Lom 48]

ЛОМ помогай теперь шрифт увеличить не могу size не помогает разжуй мне нубарю и неучу

по ходу я тоже нубарь так что не парься))) размер шрифта меняется как показано на 1ом скрине.

 

единственно смог изменить цвет вот этого, дописав как показано на 2ом скрине...

Edited November 7, 2016 by ЛОМ

[sergy2010 24]

ЛОМ зацени сборку и скажи что так или не так что до работать а что лишнее  https://yadi.sk/d/YR-TqG5WyDFuw

[Lom 48]

ЛОМ зацени сборку и скажи что так или не так что до работать а что лишнее  https://yadi.sk/d/YR-TqG5WyDFuw

мда уж..))) нашел у кого спрашивать что доработать и что лишнее )))) а так просто скажу свое мнение)) мне нравится если честно! единственно нужно сделать так чтобы путь к игре правильно указывал. и что бы если кто то нечаянно решит поставить моды не в папку с игрой то всплывало бы окошко что не туда суешь типа ))))))))))))))   

[sergy2010 24]

поделишься таким скриптом

[Lom 48]

 

поделишься таким скриптом

есть код автоопределяет путь к игре но что то я не догнал его. у меня игра на диске Д а он все равно на диск C  хочет ставить)) вот этот код.авто определение пути к папке с игрой.rar

[sergy2010 24]

авто определение пути к папке с игрой.rar

есть код автоопределяет путь к игре но что то я не догнал его. у меня игра на диске Д а он все равно на диск C  хочет ставить)) вот этот код.авто определение пути к папке с игрой.rar

ух жирный код

[Lom 48]

я же по другому делаю)) в секции [setup]  пишу вот это      DefaultDirName=C:\Games\World_of_Tanks\     и в коде вот это  

function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указана папка World of Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;

[sergy2010 24]

ух жирный код

да чёт этот код не фурычит

 

я же по другому делаю)) в секции [setup]  пишу вот это      DefaultDirName=C:\Games\World_of_Tanks\     и в коде вот это  

function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указана папка World of Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;

щя теперь этот попробую

[BeJIuKuu_TaHKoBbIu_BouH 4]

нужно сделать так чтобы путь к игре правильно указывал. и что бы если кто то нечаянно решит поставить моды не в папку с игрой то всплывало бы окошко что не туда суешь типа ))))))))))))))

поделишься таким скриптом

ой там выше такое...

"вот нормальный код"

[Setup]
DefaultDirName={code:WotDirNameRU}

[~Code~]
function WotDirNameRU(S:String): String;
var
  InsPath: String;
  er: boolean;
  myFile:String;
begin
  Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
  er := RegQueryStringValue(HKCU, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812ru}_is1', 'InstallLocation', InsPath);
  if er and (InsPath<>'') then //если ключ существует и там что-то записано
  begin
    Result := InsPath;
  end;
end;
//==============================================================================\\
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указан каталог World of Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;

Edited November 7, 2016 by Gad575

[Lom 48]

ой там выше такое...

"вот нормальный код"

[Setup]
DefaultDirName={code:WotDirNameRU}

[~Code~]
function WotDirNameRU(S:String): String;
var
  InsPath: String;
  er: boolean;
  myFile:String;
begin
  Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
  er := RegQueryStringValue(HKCU, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812ru}_is1', 'InstallLocation', InsPath);
  if er and (InsPath<>'') then //если ключ существует и там что-то записано
  begin
    Result := InsPath;
  end;
end;
//==============================================================================\\
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указан каталог World of Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;

 

и такой код есть у меня)) но я ему скинул тот который брал тут в теме и которым сам пользуюсь)))  а что с ним не так то? ))) вроде код рабочий))) 

Edited November 7, 2016 by ЛОМ

[sergy2010 24]

ой там выше такое...

"вот нормальный код"

[Setup]
DefaultDirName={code:WotDirNameRU}

[~Code~]
function WotDirNameRU(S:String): String;
var
  InsPath: String;
  er: boolean;
  myFile:String;
begin
  Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
  er := RegQueryStringValue(HKCU, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812ru}_is1', 'InstallLocation', InsPath);
  if er and (InsPath<>'') then //если ключ существует и там что-то записано
  begin
    Result := InsPath;
  end;
end;
//==============================================================================\\
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then
begin
MsgBox('Не верно указан каталог World of Tanks!', mbError, MB_OK);
Result := False;
end;
end;
end;

выдаёт ошибку

Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда

[Lom 48]

выдаёт ошибку

Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда

а ты как он написал это в скрипт дописал? 

[Setup]
DefaultDirName={code:WotDirNameRU}

Edited November 7, 2016 by ЛОМ

[Ekspoint 2,122]

ух жирный код

зато надежный

[sergy2010 24]

кто подскажит скрип чтоб в конце  2 сайта были  с чекбоксами на выбор

Edited November 8, 2016 by sergy2010