Fury 0 #281255 Posted July 9, 2015 Где тут смайлик с рогами? могу предоставить скрины и скрипт Ребята а не подскажите как сделать так как на скрине ссылку клик и музыку Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #281257 Posted July 9, 2015 могу предоставить скрины и скрипт Ребята а не подскажите как сделать так как на скрине ссылку клик и музыку ссылка [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] ;{ ISFormDesignerFilesBegin } // Не удалять эту строку! ;// Не изменять эту секцию. Она создана автоматически. DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernImage-IS.bmp"; Flags: dontcopy solidbreak ;// Не изменять эту секцию. Она создана автоматически. ;{ ISFormDesignerFilesEnd } // Не удалять эту строку! [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D0030100302000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F202010C544269746D6170496D6167650C4269746D6170496D61676531044C656674020803546F70034701055769647468023106486569676874021706437572736F72070B637248616E64506F696E740A4269746D617046696C65061E636F6D70696C65723A57697A4D6F6465726E496D6167652D49532E626D70074F6E436C69636B070A78766D4F6E436C69636B0000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000000A544E6577427574746F6E0A4E6577427574746F6E31044C656674024803546F70034701055769647468024B06486569676874021906437572736F72070B637248616E64506F696E740743617074696F6E060358564D085461624F726465720205074F6E436C69636B070A78766D4F6E436C69636B000000 [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var BitmapImage1: TBitmapImage; NewButton1: TNewButton; procedure xvmOnClick(Sender: TObject); forward; procedure RedesignWizardForm; begin { BitmapImage1 } BitmapImage1 := TBitmapImage.Create(WizardForm); with BitmapImage1 do begin Name := 'BitmapImage1'; Parent := WizardForm; Left := ScaleX(8); Top := ScaleY(327); Width := ScaleX(49); Height := ScaleY(23); Cursor := crHand; ExtractTemporaryFile('WizardForm.BitmapImage1.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp')); OnClick := @xvmOnClick; end; { NewButton1 } NewButton1 := TNewButton.Create(WizardForm); with NewButton1 do begin Name := 'NewButton1'; Parent := WizardForm; Left := ScaleX(72); Top := ScaleY(327); Width := ScaleX(75); Height := ScaleY(25); Cursor := crHand; Caption := 'XVM'; OnClick := @xvmOnClick; end; NewButton1.TabOrder := 5; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure InitializeWizard(); begin RedesignWizardForm; end; procedure xvmOnClick(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://www.modxvm.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode) end; музыка BASS Модуль - 1.3.rar Quote Share this post Link to post Short link Share on other sites
Fury 0 #281261 Posted July 9, 2015 ссылка [Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application [Files] ;{ ISFormDesignerFilesBegin } // Не удалять эту строку! ;// Не изменять эту секцию. Она создана автоматически. DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernImage-IS.bmp"; Flags: dontcopy solidbreak ;// Не изменять эту секцию. Она создана автоматически. ;{ ISFormDesignerFilesEnd } // Не удалять эту строку! [ISFormDesigner] WizardForm=FF0A005457495A415244464F524D0030100302000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F202010C544269746D6170496D6167650C4269746D6170496D61676531044C656674020803546F70034701055769647468023106486569676874021706437572736F72070B637248616E64506F696E740A4269746D617046696C65061E636F6D70696C65723A57697A4D6F6465726E496D6167652D49532E626D70074F6E436C69636B070A78766D4F6E436C69636B0000F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000000A544E6577427574746F6E0A4E6577427574746F6E31044C656674024803546F70034701055769647468024B06486569676874021906437572736F72070B637248616E64506F696E740743617074696F6E060358564D085461624F726465720205074F6E436C69636B070A78766D4F6E436C69636B000000 [code] { RedesignWizardFormBegin } // Не удалять эту строку! // Не изменять эту секцию. Она создана автоматически. var BitmapImage1: TBitmapImage; NewButton1: TNewButton; procedure xvmOnClick(Sender: TObject); forward; procedure RedesignWizardForm; begin { BitmapImage1 } BitmapImage1 := TBitmapImage.Create(WizardForm); with BitmapImage1 do begin Name := 'BitmapImage1'; Parent := WizardForm; Left := ScaleX(8); Top := ScaleY(327); Width := ScaleX(49); Height := ScaleY(23); Cursor := crHand; ExtractTemporaryFile('WizardForm.BitmapImage1.bmp'); Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp')); OnClick := @xvmOnClick; end; { NewButton1 } NewButton1 := TNewButton.Create(WizardForm); with NewButton1 do begin Name := 'NewButton1'; Parent := WizardForm; Left := ScaleX(72); Top := ScaleY(327); Width := ScaleX(75); Height := ScaleY(25); Cursor := crHand; Caption := 'XVM'; OnClick := @xvmOnClick; end; NewButton1.TabOrder := 5; { ReservationBegin } // Вы можете добавить ваш код здесь. { ReservationEnd } end; // Не изменять эту секцию. Она создана автоматически. { RedesignWizardFormEnd } // Не удалять эту строку! procedure InitializeWizard(); begin RedesignWizardForm; end; procedure xvmOnClick(Sender: TObject); var ErrorCode: Integer; begin ShellExec('open', 'http://www.modxvm.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode) end; музыка BASS Модуль - 1.3.rar Попробую спасибо не получается а что куда вставлять Попробую спасибо Не получается а что куда надо вставить Попробую спасибо не получается а что куда вставлять Не получается а что куда надо вставить В архиве там несколько вариантов я так понимаю , у меня уже свой скрипт самого инсталятора есть, вспойлере вы мне кинули скрипт, из него чтото надо ко мне вставлять? что именно ? Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #281270 Posted July 9, 2015 В архиве там несколько вариантов я так понимаю , у меня уже свой скрипт самого инсталятора есть, вспойлере вы мне кинули скрипт, из него чтото надо ко мне вставлять? что именно ? я показал пример, дальше сами или скиньте свой код в архиве Quote Share this post Link to post Short link Share on other sites
Fury 0 #281271 Posted July 9, 2015 я показал пример, дальше сами или скиньте свой код в архиве Вличку кинул Может проще купить скрипт? а есть кто продает , за спрос ведь не бьют :) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #281289 Posted July 9, 2015 В личку кинул готово Quote Share this post Link to post Short link Share on other sites
licimer 1 #281509 Posted July 11, 2015 Подскажите где расширить эту часть окна? Скролл уже почти не видно Народ подскажите. Актуально Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #281512 Posted July 11, 2015 @licimer, либо расширять всё окно, либо суживать компонент-лист. Либо всё сделать по новой, без всяких форм Notebook`ов, на чистом визарде. 1 Quote Share this post Link to post Short link Share on other sites
licimer 1 #281513 Posted July 11, 2015 @licimer, либо расширять всё окно, либо суживать компонент-лист. Либо всё сделать по новой, без всяких форм Notebook`ов, на чистом визарде. Мысль понял... Спасибо! Quote Share this post Link to post Short link Share on other sites
-zav- 188 #281754 Posted July 13, 2015 Ну что, кто то смог решить эту проблему? Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #282841 Posted July 17, 2015 Почему не ищет архив в таком виде для распаковки? Exec(ExpandConstant('{app}\{#AppName}\download\7za.exe'), 'x -y ...\res\packages\gui.pkg -o...\res_mods', '', SW_Show, ewWaitUntilTerminated, ResultCode); а в таком норм Exec(ExpandConstant('{app}\{#AppName}\7za.exe'), 'x -y ..\res\packages\gui.pkg -o..\res_mods', '', SW_Show, ewWaitUntilTerminated, ResultCode); Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #282861 Posted July 17, 2015 , а так? Exec(ExpandConstant('{app}\{#AppName}\download\7za.exe'), 'x -y ..\..\res\packages\gui.pkg -o..\..\res_mods', '', SW_Show, ewWaitUntilTerminated, ResultCode); 1 Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #282864 Posted July 17, 2015 Exec(ExpandConstant('{app}\{#AppName}\download\7za.exe'), 'x -y ..\..\res\packages\gui.pkg -o..\..\res_mods', '', SW_Show, ewWaitUntilTerminated, ResultCode); спасиб, ок а почему в таком виде нужно было делать? Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #282870 Posted July 17, 2015 а почему в таком виде нужно было делать? Потому что "..\" - означает перейти на директорию ниже. И так как ты распаковщик поднял на одну выше, нужно и один переход добавить.. А ты просто две точки заменил тремя) Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #282871 Posted July 17, 2015 Потому что "..\" - означает перейти на директорию ниже. И так как ты распаковщик поднял на одну выше, нужно и один переход добавить.. А ты просто две точки заменил тремя) теперь понял Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #283176 Posted July 18, 2015 а как можно добавить в исключения брандмауера? Quote Share this post Link to post Short link Share on other sites
akey 35 #283187 Posted July 18, 2015 Всем привет! Подскажите пожалуйста как сделать чтобы unist падал в отдельную папку в корне игры? И второй вопрос, как сделать чтобы лог установки сохранялся там же? Заранее спасибо! Quote Share this post Link to post Short link Share on other sites
Ekspoint 2,122 #283189 Posted July 18, 2015 Всем привет! Подскажите пожалуйста как сделать чтобы unist падал в отдельную папку в корне игры? И второй вопрос, как сделать чтобы лог установки сохранялся там же? Заранее спасибо! [Setup] UninstallFilesDir={app}\..... #define LogMods "Лог установки.log" [Code] function CreateLogMods: Boolean; var I: Integer; FileName, DateTime: String; begin Result:=True; DateTime:=GetDateTimeString('dd/mm/yyyy hh:nn', '-', '-'); FileName:=ExpandConstant('{app}\....}\{#LogMods}'); //----------------------------------------------------------------------------------------------\\ SaveStringToFile(FileName, '"..............."' + #13#10 + #13#10 + 'Дата установки: ' + DateTime + #13#10 + #13#10 + 'Путь установки: ' + WizardForm.DirEdit.Text + #13#10 + #13#10 + 'Выбранные вами моды:' + #13#10 + 'Прицелы:' + #13#10, True); For I:=0 to WizardForm.ComponentsList.Items.Count - 1 do If WizardForm.ComponentsList.Checked[I] then begin SaveStringToFile(FileName, '... ' + WizardForm.ComponentsList.ItemCaption[I] + #13#10, True); end; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin CreateDir(ExpandConstant('{app}\....')); DeleteFile(ExpandConstant('{app}\...\{#LogMods}')); CreateLogMods; end; end; 1 Quote Share this post Link to post Short link Share on other sites
akey 35 #283192 Posted July 18, 2015 [Setup] UninstallFilesDir={app}\..... #define LogMods "Лог установки.log" [Code] function CreateLogMods: Boolean; var I: Integer; FileName, DateTime: String; begin Result:=True; DateTime:=GetDateTimeString('dd/mm/yyyy hh:nn', '-', '-'); FileName:=ExpandConstant('{app}\....}\{#LogMods}'); //----------------------------------------------------------------------------------------------\\ SaveStringToFile(FileName, '"..............."' + #13#10 + #13#10 + 'Дата установки: ' + DateTime + #13#10 + #13#10 + 'Путь установки: ' + WizardForm.DirEdit.Text + #13#10 + #13#10 + 'Выбранные вами моды:' + #13#10 + 'Прицелы:' + #13#10, True); For I:=0 to WizardForm.ComponentsList.Items.Count - 1 do If WizardForm.ComponentsList.Checked[I] then begin SaveStringToFile(FileName, '... ' + WizardForm.ComponentsList.ItemCaption[I] + #13#10, True); end; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin CreateDir(ExpandConstant('{app}\....')); DeleteFile(ExpandConstant('{app}\...\{#LogMods}')); CreateLogMods; end; end; Спасибо... Вопрос Можно небольшие пояснения по этой строчке: UninstallFilesDir={app}\..... И по этой: SaveStringToFile(FileName, '"..............."' + #13#10 + #13#10 + 'Дата установки: ' + DateTime + #13#10 + #13#10 + 'Путь установки: ' + WizardForm.DirEdit.Text + #13#10 + #13#10 + 'Выбранные вами моды:' + #13#10 + 'Прицелы:' + #13#10, True); Заранее спасибо! Quote Share this post Link to post Short link Share on other sites
Kotyarko_O 1,906 #283193 Posted July 18, 2015 (edited) Можно небольшие пояснения по этой строчке: UninstallFilesDir={app}\..... Это образно. Вместо многоточия - название папки, которая будет создаваться автоматически и содержать в себе файлы деинсталляции. И по этой:SaveStringToFile(FileName, '"..............."' + #13#10 + #13#10 + 'Дата установки: ' + DateTime + #13#10 + #13#10 + 'Путь установки: ' + WizardForm.DirEdit.Text + #13#10 + #13#10 + 'Выбранные вами моды:' + #13#10 + 'Прицелы:' + #13#10, True); Эту строку можете спокойно удалять. Лог выбранных модов создаётся этим: for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do if WizardForm.ComponentsList.Checked[i] then SaveStringToFile(FileName, WizardForm.ComponentsList.ItemCaption[I] + #13#10, True); Edited July 18, 2015 by Kotyarko_O 1 Quote Share this post Link to post Short link Share on other sites