Ekspoint Posted May 31, 2015 Share Posted May 31, 2015 Она автоматом работает @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted May 31, 2015 Share Posted May 31, 2015 (edited) Ребята, а как можно защитить свой инсталлятор от копирования и декомпиляции ? Использовать расширенную версию компилятора. Она автоматом работает Неправильно. На расширенной версии никакой защиты нет вовсе! Просто китайцы исходники расширенной никому не предоставили, вот никто и не может сделать декомпил. Edited May 31, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
justdj Posted May 31, 2015 Share Posted May 31, 2015 Использовать расширенную версию компилятора. Неправильно. На расширенной версии никакой защиты нет вовсе! Просто китайцы исходники расширенной никому не предоставили, вот никто и не может сделать декомпил. Декомпил конкретно кода? или инсталла? Инсталл уже вскрываеться со всеми файлами. Все, кроме секции . @ Quote Link to comment Short link Share on other sites More sharing options...
akey Posted June 1, 2015 Share Posted June 1, 2015 (edited) Здравствуйте всем. Вопрос, какие флаги нужны компоненту, чтобы он был постоянно выбран без возможности снятия флажка. Заранее спасибо... Edited June 1, 2015 by akey @ Quote Link to comment Short link Share on other sites More sharing options...
woole Posted June 1, 2015 Share Posted June 1, 2015 Здравствуйте всем. Вопрос, какие флаги нужны компоненту, чтобы он был постоянно выбран без возможности снятия флажка. Заранее спасибо...fixed @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 1, 2015 Share Posted June 1, 2015 Вопрос, какие флаги нужны компоненту, чтобы он был постоянно выбран без возможности снятия флажка. fixed Одного fixed мало будет. Нужно ещё один тип указать, чтобы действительно был отмечен. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
akey Posted June 1, 2015 Share Posted June 1, 2015 Одного fixed мало будет. Нужно ещё один тип указать, чтобы действительно был отмечен. Какой? Спасибо Про fixed сразу разобрался, но это не решение проблемы. @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 1, 2015 Share Posted June 1, 2015 (edited) Какой? [Types] Name: custom; Description: "Пользовательская"; Flags: iscustom Name: main; Description: "Фиксированная" [Components] Name: MP; Description: Этот компонент нельзя не выбрать.; Types: custom main; Как-то так. При этом станет отображаться комбоБокс TypesCombo, на странице выбора компонентов. Если его отображение не нужно, то можно убрать следующим образом: [Code] Procedure InitializeWizard(); begin WizardForm.TypesCombo.Hide; end; Edited June 1, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
leeuniverse Posted June 1, 2015 Share Posted June 1, 2015 (edited) Эй, как я сделать "уведомление", что поп-вверх (в первый раз), когда человек, чтобы попытаться установить в месте, не WOT Установите местоположение? Hey, how do I make a "notification" that pop's up (the first time) when a person try's to install to a location that is not the WOT Install location? Edited June 1, 2015 by leeuniverse @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted June 2, 2015 Share Posted June 2, 2015 (edited) Ребята помогите!Переустановил инно теперь вылазит такая хрень поставил из шапки темы стало все нормально! Edited June 2, 2015 by MEDNIKs @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 2, 2015 Share Posted June 2, 2015 Hey, how do I make a "notification" that pop's up (the first time) when a person try's to install to a location that is not the WOT Install location? smth like this? [Code] Var Count: Integer; Function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; if CurPageID = wpSelectDir then begin if not (FileExists(ExpandConstant('{app}\WOTLauncher.exe')) and FileExists(ExpandConstant('{app}\WorldOfTanks.exe'))) then begin if Count = 0 then MsgBox('Incorrect game folder!', mbError, MB_OK); Count := Count + 1; end; Result := (Count = 2); end; end; Переустановил инно теперь вылазит такая хрень А в гугл залезть и перевести, раз сам не можешь, нельзя?И совет: если уже используешь языковой пакет, то таскай его рядом с инно, а не держи в папке с установленной программой. @ Quote Link to comment Short link Share on other sites More sharing options...
leeuniverse Posted June 3, 2015 Share Posted June 3, 2015 smth like this? [Code] Var Count: Integer; Function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; if CurPageID = wpSelectDir then begin if not (FileExists(ExpandConstant('{app}\WOTLauncher.exe')) and FileExists(ExpandConstant('{app}\WorldOfTanks.exe'))) then begin if Count = 0 then MsgBox('Incorrect game folder!', mbError, MB_OK); Count := Count + 1; end; Result := (Count = 2); end; end; Hey, thank you very much..... It's close. It works, but it looks like I need to put it with my existing code? When I put the code in, it will work how you've written it, BUT, if the directory is already correct, can't click NEXT.... I have to make the directory "wrong" and I'll get the pop-up, and then I'll be able to go NEXT. So, how can I put this in my current code, and it allow me to click NEXT if the directory is correct already? Here's my current code. function GetAppDir(Path: String): String; begin if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA}_is1') then begin RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA}_is1', 'InstallLocation', Path); Result := Path end else Result := ExpandConstant('C:\Games\World_of_Tanks') end; @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 3, 2015 Share Posted June 3, 2015 (edited) So, how can I put this in my current code, and it allow me to click NEXT if the directory is correct already? Try this: [Code] Var Count: Integer; Function GetAppDir(Path: String): String; begin if RegKeyExists(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA}_is1') then begin RegQueryStringValue(HKCU, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA}_is1', 'InstallLocation', Path); Result := Path end else Result := ExpandConstant('C:\Games\World_of_Tanks') end; Function NextButtonClick(CurPageID: Integer): Boolean; begin Result := True; if CurPageID = wpSelectDir then begin case (FileExists(ExpandConstant('{app}\WOTLauncher.exe')) and FileExists(ExpandConstant('{app}\WorldOfTanks.exe'))) of False: begin if Count = 0 then MsgBox('Incorrect game folder!', mbError, MB_OK); Count := Count + 1; Result := (Count = 2); end; True: Result := True; end; end; end; Edited June 3, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
psix_banned Posted June 3, 2015 Share Posted June 3, 2015 Что только не писал, не ищет инсталятор путь к папке с танками, а предлагает установить в папку по умолчанию. Помогите. Сейчас DefaultDirName={code:MyDirName} function MyDirName(S:String): String; var InsPath: String; er: boolean; myFile:String; begin Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); if er and (InsPath<>'') then //если ключ существует и там что-то записано begin Result := InsPath; end; end; @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 3, 2015 Share Posted June 3, 2015 @psix89, а так: RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); @ Quote Link to comment Short link Share on other sites More sharing options...
psix_banned Posted June 3, 2015 Share Posted June 3, 2015 (edited) @psix89, а так: RegQueryStringValue(HKCU, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath); Всеровно предлагает ставить в C:\Games\World_of_Tanks\ Попробовал так DefaultDirName={reg:HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{1EAC1D02-C6AC-4FA6-9A44-96258C37C812NA_is1',InstallLocation|{pf}\World_of_Tanks} Результат - C:\Program Files (x86)\World_of_Tanks\ Edited June 3, 2015 by psix89 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 3, 2015 Share Posted June 3, 2015 @psix89, пробуй без Wow6432Node. @ Quote Link to comment Short link Share on other sites More sharing options...
psix_banned Posted June 3, 2015 Share Posted June 3, 2015 @psix89, пробуй без Wow6432Node. ничего... @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted June 3, 2015 Share Posted June 3, 2015 @psix89, ну значит у тебя игра не по родному пути стоит. Переустанови игру. @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted June 3, 2015 Share Posted June 3, 2015 RegKeyExists(HKCU, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') для новых интсталляторов игры или RegKeyExists(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1') для старых. 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.