MEDNIKs Posted August 31, 2014 Share Posted August 31, 2014 @Kotyarko_O,извеняй за тупость,но у меня походу опять запара с совместимостью процедур. Вообщем у меня уже имеется CurStepChanged 'вот' procedure CurStepChanged(CurStep: TSetupStep);beginIf CurStep=ssInstall thenbeginDeleteMods();BackUpMods();end;end; Если я сосздам CurStepChanged1,что ещё нужно дописать? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 (edited) @Shpyrny, под спойлер прятать такие большие коды нужно. @Kotyarko_O,извеняй за тупость,но у меня походу опять запара с совместимостью процедур. Вообщем у меня уже имеется CurStepChanged Если я сосздам CurStepChanged1,что ещё нужно дописать? procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin DeleteMods(); BackUpMods(); end; CurStepChanged1(CurStep); end; Edited August 31, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
Shpyrny Posted August 31, 2014 Share Posted August 31, 2014 Shpyrny, под спойлер прятать такие большие коды нужно. Извеняюсь редко пишу на форуме, не знаю все BB коды, но поможешь? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 Извеняюсь редко пишу на форуме, не знаю все BB коды, но поможешь? [_spoiler]...[/_spoiler] (без "_"). Вот твой скрипт с привязанным слешем: Script.rar Дополнительная библиотека внутри. Рядом с ней (в папке Files) закинь изображение самого сплеша (*.png). @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted August 31, 2014 Share Posted August 31, 2014 Ребят кто может припелить Splash к моему скрипту? Пожалуйста Вот скримт попробуй так 'splash' #define MyAppName "ModPack by Clan Brothers Time 0.9.2" ;Название инстоллятора#define MyInfoVer "1.1" ;Версия инсталлятора #define MyAppVer "0.9.2" ;Версия игры #define MyAppPublisher "Expoint" ;Имя компании или человека кто делал #define MyAppURL "http://yandex.ru" #define MyAppSupportURL "http://yandex.ru" ;Ссылка для лого #define Patch "0.9.2" #define Patch1 "0.9.2-backup" #define Splash #include "Components.iss" ;Компаненты, они же моды #include "Модули/Messages.iss" ;Сообщение, надписи на кнопках и т.д. #include "Модули/BackUpPage.iss" ;Резерное копирование или удаление res_mods #include "CustomMessages.iss" ;Описание модов #include "Модули/Skins.iss" ;скин #include "Check For Run.iss" [setup] AppName={#MyAppName} AppVersion={#MyAppVer} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} //====={ Ссылки }=====\\ AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} //====={ Папка устанвки }=====\\ ;DefaultDirName={pf}\{#MyAppName} DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU%7d_is1,InstallLocation|{pf}\World_of_Tanks} DefaultGroupName={#MyAppName} //====={ Картинки }=====\\ SetupIconFile=Files\qqq.ico WizardSmallImageFile=Files\Small.bmp WizardImageFile=Files\img1.bmp //====={ Отключение строниц }=====\\ DisableProgramGroupPage=yes //====={ Лицензия и Фак }=====\\ LicenseFile=licensia.rtf InfoBeforeFile=faq.rtf //====={ Папка создания и название сетапа }=====\\ OutputDir=.\Output OutputBaseFilename={#MyAppName} //====={ Сжатие сетапа }=====\\ InternalCompressLevel=ultra64 Compression=lzma2/ultra64 //====={ Сюда прописываешь те файлы и папки которые закинул в Mods }=====\\ WizardImageBackColor=$0000CC99 DisableStartupPrompt=False AlwaysShowDirOnReadyPage=True FlatComponentsList=False ShowTasksTreeLines=True AlwaysShowGroupOnReadyPage=True //====={ Основные файлы сетапа }=====\\ [Files] Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption Source: Files\logo2.bmp; Flags: dontcopy noencryption noencryption Source: "Files\img_mod\1.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy Source: "Files\img_mod\2.bmp"; DestName: "CompDescImg3.bmp"; Flags: dontcopy Source: "Files\img_mod\3.bmp"; DestName: "CompDescImg4.bmp"; Flags: dontcopy Source: "Files\img_mod\1.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy #ifdef Splash Source: Splash\splash.png; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression Source: Splash\isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression #endif procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';{ RedesignWizardFormBegin } // Не удалять эту строку!// Не изменять эту секцию. Она создана автоматически.varOldEvent_LicenseAcceptedRadioClick: TNotifyEvent;procedure LicenseAcceptedRadioClick(Sender: TObject); forward;procedure RedesignWizardForm;beginwith WizardForm.LicenseAcceptedRadio dobeginLeft := ScaleX(392);Top := ScaleY(216);OldEvent_LicenseAcceptedRadioClick := OnClick;OnClick := @LicenseAcceptedRadioClick;end;{ ReservationBegin }// Вы можете добавить ваш код здесь.{ ReservationEnd }end;// Не изменять эту секцию. Она создана автоматически.{ RedesignWizardFormEnd } // Не удалять эту строку!procedure LicenseAcceptedRadioClick(Sender: TObject);beginOldEvent_LicenseAcceptedRadioClick(Sender);end;procedure LogoOnClick(Sender: TObject);var ResCode: Integer;beginShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)end;varBitmapImage1: TBitmapImage;procedure RedesignWizardForm2;vari: integer;BtnPanel: TPanel;BtnImage: TBitmapImage;beginExtractTemporaryFile('logo.bmp')BtnPanel:=TPanel.Create(WizardForm)with BtnPanel do beginLeft:=0Top:=490Width:=120Height:=50Cursor:=crHandOnClick:=@logoOnClickParent:=WizardFormend;BtnImage:=TBitmapImage.Create(WizardForm)with BtnImage do beginAutoSize:=True;Enabled:=False;Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')Parent:=BtnPanelend;end;//////////////////////////#ifdef SplashbeginExtractTemporaryFile('splash.png');ExtractTemporaryFile('isgsg.dll');ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);end;#endif///////////////////////procedure LogoOnClick1(Sender: TObject);varResCode: Integer;beginShellExec('', '{#MyAppSupportURL}', '' , '', SW_SHOW, ewNoWait, ResCode)end;procedure RedesignWizardForm3;varBtnPanel: TPanel;BtnImage: TBitmapImage;beginExtractTemporaryFile('logo2.bmp')BtnPanel:=TPanel.Create(WizardForm)with BtnPanel dobeginLeft:=130Top:=490Width:=120Height:=50Cursor:=crHandOnClick:=@logoOnClick1Parent:=WizardFormend;BtnImage:=TBitmapImage.Create(WizardForm)with BtnImage dobeginAutoSize:=True;Enabled:=False;Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo2.bmp')Parent:=BtnPanelend;end;function WindowResize(): Boolean;varHeightOffset, WidthOffset: Integer;beginHeightOffset:=170;WidthOffset:=200;WizardForm.Height:=WizardForm.Height + HeightOffset;WizardForm.Width:=WizardForm.Width + WidthOffset;WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset;WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset;WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset;WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset;WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset;WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset;WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset;WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset;WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset;WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset;WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset;WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset;WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset;WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset;WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset;WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset;WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset;WizardForm.Center;{ /// --- Раскомментировать при желании ---- ///WizardForm.WelcomeLabel1.Hide;WizardForm.WelcomeLabel2.Hide;WizardForm.FinishedLabel.Hide;WizardForm.FinishedHeadingLabel.Hide;WizardForm.WizardBitmapImage.Width:=600;WizardForm.WizardBitmapImage.Height:=400;WizardForm.WizardBitmapImage2.Width:=600;WizardForm.WizardBitmapImage2.Height:=400;WizardForm.PageNameLabel.Hide;WizardForm.PageDescriptionLabel.Hide;WizardForm.WizardSmallBitmapImage.Top:=0;WizardForm.WizardSmallBitmapImage.Left:=0;WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;WizardForm.WizardSmallBitmapImage.Height:=58;/// --- Конец ---- ///}WizardForm.WelcomeLabel1.Hide;WizardForm.WelcomeLabel2.Hide;WizardForm.WizardBitmapImage.Width:=697;WizardForm.WizardBitmapImage.Height:=483;WizardForm.FinishedHeadingLabel.Hide;WizardForm.FinishedLabel.Hide;WizardForm.YesRadio.Hide;WizardForm.NoRadio.Hide;WizardForm.WizardBitmapImage2.Width:=697;WizardForm.WizardBitmapImage2.Height:=483;WizardForm.PageNameLabel.Hide;WizardForm.PageDescriptionLabel.Hide;WizardForm.WizardSmallBitmapImage.Top:=0;WizardForm.WizardSmallBitmapImage.Left:=0;WizardForm.WizardSmallBitmapImage.Width:=697;WizardForm.WizardSmallBitmapImage.Height:=58;WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset;WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset;WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset;WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset;WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset;WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset;WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset;WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset;WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset;WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset;WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset;WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset;WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset;WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset;WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset;WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset;WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset;WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset;WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset;WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset;WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset;WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset;WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset;WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset;WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset;end;/// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- ///typeTComponentDesc = recordDescription: String;ImageName: String;Index: Integer;end;varCompDescs: array of TComponentDesc;CompDescPanel, CompDescImgPanel: TPanel;CompDescText: array[1..2] of TLabel;CompIndex, LastIndex: Integer;CompDescImg: TBitmapImage;procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);vari: Integer;beginif Index = LastIndex then Exit;CompIndex := -1;for i := 0 to GetArrayLength(CompDescs) -1 dobeginif (CompDescs[i].Index = Index) thenbeginCompIndex := i;Break;end;end;if (CompIndex >= 0) and (Area = iaItem) thenbeginif not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) thenExtractTemporaryFile(CompDescs[CompIndex].ImageName);CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);CompDescImg.Show;CompDescText[2].Caption := CompDescs[CompIndex].Description;CompDescText[2].Enabled := True;end elsebeginCompDescText[2].Caption := CustomMessage('ComponentsInfo');CompDescText[2].Enabled := False;CompDescImg.Hide;end;LastIndex := Index;end;procedure CompListMouseLeave(Sender: TObject);beginCompDescImg.Hide;CompDescText[2].Caption := CustomMessage('ComponentsInfo');CompDescText[2].Enabled := False;LastIndex := -1;end;procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);vari: Integer;begini := GetArrayLength(CompDescs);SetArrayLength(CompDescs, i + 1);CompDescs[i].Description := ADescription;CompDescs[i].ImageName := AImageName;CompDescs[i].Index := AIndex - 1end;procedure InitializeWizard();beginRedesignWizardForm;InitializeWizard1(); {из BackUpPage.iss}RedesignWizardForm2;RedesignWizardForm3;WindowResize(); beginWizardForm.SelectComponentsLabel.Hide;WizardForm.TypesCombo.Hide;WizardForm.ComponentsList.SetBounds(ScaleX(260), ScaleY(20), ScaleX(357), ScaleY(333));WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave; CompDescImgPanel := TPanel.Create(WizardForm);with CompDescImgPanel dobeginParent := WizardForm.SelectComponentsPage;SetBounds(ScaleX(0), ScaleY(20), ScaleX(253), ScaleY(203)); //рамка картинкиBevelInner := bvLowered;end; CompDescText[1] := TLabel.Create(WizardForm);with CompDescText[1] dobeginParent := CompDescImgPanel;SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));AutoSize := False;WordWrap := True;Enabled := False;Font.Color :=clBlack;Caption := CustomMessage('ComponentsImgInfo');end; CompDescImg := TBitmapImage.Create(WizardForm);with CompDescImg dobeginParent := CompDescImgPanel;SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));Stretch := True;Hide;end; CompDescPanel := TPanel.Create(WizardForm);with CompDescPanel dobeginParent := WizardForm.SelectComponentsPage;SetBounds(ScaleX(0), ScaleY(230), ScaleX(253), ScaleY(123)); //Нижния рамкаBevelInner := bvLowered;end; CompDescText[2] := TLabel.Create(WizardForm);with CompDescText[2] dobeginParent := CompDescPanel;SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));AutoSize :=False;WordWrap := True;Enabled := False;Font.Color :=clBlack;Caption := CustomMessage('ComponentsInfo');end; AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');AddCompDescription(3, CustomMessage('CompDesc3'), 'CompDescImg3.bmp');AddCompDescription(4, CustomMessage('CompDesc4'), 'CompDescImg4.bmp'); end;end; [iSFormDesigner]WizardForm=FF0A005457495A415244464F524D0030103702000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E73655061676500F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C65667403880103546F7003D800074F6E436C69636B07194C6963656E73654163636570746564526164696F436C69636B0C4578706C696369744C6566740388010B4578706C69636974546F7003D8000000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000ток надо создать папку splash и закинуть туда библиотеку isgsg.dll,ну и сам сплеш в формате png @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 31, 2014 Share Posted August 31, 2014 [_spoiler]...[/_spoiler] (без "_"). Вот твой скрипт с привязанным слешем: Script.rar Дополнительная библиотека внутри. Рядом с ней (в папке Files) закинь изображение самого сплеша (*.png). хахахаах автор ekspoint хотя бы поменяй на свой ник 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 (edited) хахахаах автор ekspoint хотя бы поменяй на свой ник Это мне? вот пример на версии 5.5 MsgBoxEx, вроде, в расширенной только есть. Edited August 31, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 31, 2014 Share Posted August 31, 2014 Это мне? MsgBoxEx поддерживается в Inno уже давно. Не в версии проблема. Ищи ошибку со своей стороны. ок нет ему @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 нет ему В таком случае нужно цитировать его сообщение, а не моё.Тут по поводу расширенного мсджбокса обновил ответ. @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted August 31, 2014 Share Posted August 31, 2014 @Kotyarko_O, Вот так процедуры можно совмещать? procedure CurStepChanged(CurStep: TSetupStep);beginIf CurStep=ssInstall thenbeginDeleteMods();BackUpMods();end;end;Procedure CurStepChanged1(CurStep: TSetupStep);beginIf CurStep = ssDone thenbeginIf NewCheckBox3.Checked thenbeginExec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode);end;end;end; @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 31, 2014 Share Posted August 31, 2014 (edited) В таком случае нужно цитировать его сообщение, а не моё. Тут по поводу расширенного мсджбокса обновил ответ. а где расширенную версию найти или че делать Edited August 31, 2014 by Ekspoint 1 @ Quote Link to comment Short link Share on other sites More sharing options...
Shpyrny Posted August 31, 2014 Share Posted August 31, 2014 Вот твой скрипт с привязанным слешем: Script.rar 35,01 Кб 0 раз скачано Дополнительная библиотека внутри. Рядом с ней (в папке Files) закинь изображение самого сплеша (*.png). Спасибо тебе большое, и еще раз изменяюсь что без сполера скрипт кинул) @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 (edited) @Kotyarko_O, Вот так процедуры можно совмещать? procedure CurStepChanged(CurStep: TSetupStep);begin If CurStep=ssInstall then begin DeleteMods(); BackUpMods(); end; end; Procedure CurStepChanged1(CurStep: TSetupStep); begin If CurStep = ssDone then begin If NewCheckBox3.Checked then begin Exec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode); end; end; end; Нет. Вот так: Procedure CurStepChanged1(CurStep: TSetupStep); begin If CurStep = ssDone then begin If NewCheckBox3.Checked then begin Exec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode); end; end; end; procedure CurStepChanged(CurStep: TSetupStep); begin If CurStep=ssInstall then begin DeleteMods(); BackUpMods(); end; CurStepChanged1(CurStep); end; Edited August 31, 2014 by Kotyarko_O 2 @ Quote Link to comment Short link Share on other sites More sharing options...
Shpyrny Posted August 31, 2014 Share Posted August 31, 2014 (edited) хахахаах автор ekspoint хотя бы поменяй на свой ник Извиняюсь за основу взят твой скрипт правда, надеюсь ты не против? Edited August 31, 2014 by Shpyrny @ Quote Link to comment Short link Share on other sites More sharing options...
MEDNIKs Posted August 31, 2014 Share Posted August 31, 2014 Нет. Вот так: Блин,спасибо тебе друган ОГРОМНЕЙШЕЕ!!! @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 а где расширенную версию найти или че делать Даже гуглить уже разучились. тык. @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 31, 2014 Share Posted August 31, 2014 Извиняюсь за основу взят твой скрипт правда, надеюсь ты не против? нет Даже гуглить уже разучились. тык. это версия 5.5.1 а надо 5.5.5 @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 (edited) это версия 5.5.1 а надо 5.5.5 Тебе подойдёт расширенная 5.5.1. Edited August 31, 2014 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted August 31, 2014 Share Posted August 31, 2014 Тебе подойдёт расширенная 5.5.1. она вин8 не поддерживает вроде @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted August 31, 2014 Share Posted August 31, 2014 (edited) она вин8 не поддерживает вроде пруф? з.ы. на восьмёрке сидел, пользовался. Всё нормально. Edited August 31, 2014 by Kotyarko_O @ 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.