Ekspoint Posted January 17, 2015 Share Posted January 17, 2015 как после удаления создать папку? @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 17, 2015 Share Posted January 17, 2015 (edited) как после удаления создать папку? Как и при установке, только использовать функции деинсталлятора. Edited January 17, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted January 17, 2015 Share Posted January 17, 2015 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin if CurUninstallStep = usPostUninstall then begin CreateDir(ExpandConstant('{app}\res_mods\0.9.5')); end; end; @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 17, 2015 Share Posted January 17, 2015 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin if CurUninstallStep = usPostUninstall then begin CreateDir(ExpandConstant('{app}\res_mods\0.9.5')); end; end; не создает как сделать так что бы деинсталлятор из одной папки перекидывал файл в другую @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted January 17, 2015 Share Posted January 17, 2015 А почему у меня создаёт, гений ты наш? Сначала создаётся родительский каталог, а потом уже все дочерние. @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 17, 2015 Share Posted January 17, 2015 А почему у меня создаёт, гений ты наш? Сначала создаётся родительский каталог, а потом уже все дочерние. уже норм,ошибка была @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted January 17, 2015 Share Posted January 17, 2015 (edited) Подскажите где ошибка? Текст чекбоксов никак не хочет белым красится DeletekeshRadioButton:=TCheckBox.Create(WizardForm); DeletekeshRadioButton.Parent:=WizardForm.SelectDirPage; DeletekeshRadioButton.Checked:=False; DeletekeshRadioButton.Top:=ScaleY(262); DeletekeshRadioButton.Left := ScaleX(120); DeletekeshRadioButton.Width:=650; DeletekeshRadioButton.Font.Style:=[fsBold]; DeletekeshRadioButton.Font.Size:=9; DeletekeshRadioButton.Font.Color := clWhite; DeletekeshRadioButton.Caption:='Очистить кэш игры' DeletekeshDescLabel:=TLabel.Create(WizardForm); DeletekeshDescLabel.Parent:=WizardForm.SelectDirPage; DeletekeshDescLabel.Left := ScaleX(125); DeletekeshDescLabel.Top:=DeletekeshRadioButton.Top + DeletekeshRadioButton.Height + 4; DeletekeshDescLabel.Width:=650; DeletekeshDescLabel.Height:=40; DeletekeshDescLabel.AutoSize:=False; DeletekeshDescLabel.Wordwrap:=True; DeletekeshDescLabel.Caption:=DeletekeshDescText; DeleteBackupRadioButton:=TCheckBox.Create(WizardForm); DeleteBackupRadioButton.Parent:=WizardForm.SelectDirPage; DeleteBackupRadioButton.Checked:=False; DeleteBackupRadioButton.Top:=ScaleY(302); DeleteBackupRadioButton.Left := ScaleX(120); DeleteBackupRadioButton.Width:=650; DeleteBackupRadioButton.Font.Style:=[fsBold]; DeleteBackupRadioButton.Font.Size:=9; DeleteBackupRadioButton.Font.Color := clWhite; DeleteBackupRadioButton.Caption:='Удалить все файлы Backup' DeleteBackupDescLabel:=TLabel.Create(WizardForm); DeleteBackupDescLabel.Parent:=WizardForm.SelectDirPage; DeleteBackupDescLabel.Left := ScaleX(125); DeleteBackupDescLabel.Top:=DeleteBackupRadioButton.Top + DeleteBackupRadioButton.Height + 4; DeleteBackupDescLabel.Width:=650; DeleteBackupDescLabel.Height:=40; DeleteBackupDescLabel.AutoSize:=False; DeleteBackupDescLabel.Wordwrap:=True; DeleteBackupDescLabel.Caption:=DeleteBackupDescText; Уже догадался.... Вместо TCheckBox надо TNewCheckBox Edited January 17, 2015 by -zav- @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 17, 2015 Share Posted January 17, 2015 Подскажите где ошибка? Текст чекбоксов никак не хочет белым красится чек.jpg DeletekeshRadioButton:=TCheckBox.Create(WizardForm); DeletekeshRadioButton.Parent:=WizardForm.SelectDirPage; DeletekeshRadioButton.Checked:=False; DeletekeshRadioButton.Top:=ScaleY(262); DeletekeshRadioButton.Left := ScaleX(120); DeletekeshRadioButton.Width:=650; DeletekeshRadioButton.Font.Style:=[fsBold]; DeletekeshRadioButton.Font.Size:=9; DeletekeshRadioButton.Font.Color := clWhite; DeletekeshRadioButton.Caption:='Очистить кэш игры' DeletekeshDescLabel:=TLabel.Create(WizardForm); DeletekeshDescLabel.Parent:=WizardForm.SelectDirPage; DeletekeshDescLabel.Left := ScaleX(125); DeletekeshDescLabel.Top:=DeletekeshRadioButton.Top + DeletekeshRadioButton.Height + 4; DeletekeshDescLabel.Width:=650; DeletekeshDescLabel.Height:=40; DeletekeshDescLabel.AutoSize:=False; DeletekeshDescLabel.Wordwrap:=True; DeletekeshDescLabel.Caption:=DeletekeshDescText; DeleteBackupRadioButton:=TCheckBox.Create(WizardForm); DeleteBackupRadioButton.Parent:=WizardForm.SelectDirPage; DeleteBackupRadioButton.Checked:=False; DeleteBackupRadioButton.Top:=ScaleY(302); DeleteBackupRadioButton.Left := ScaleX(120); DeleteBackupRadioButton.Width:=650; DeleteBackupRadioButton.Font.Style:=[fsBold]; DeleteBackupRadioButton.Font.Size:=9; DeleteBackupRadioButton.Font.Color := clWhite; DeleteBackupRadioButton.Caption:='Удалить все файлы Backup' DeleteBackupDescLabel:=TLabel.Create(WizardForm); DeleteBackupDescLabel.Parent:=WizardForm.SelectDirPage; DeleteBackupDescLabel.Left := ScaleX(125); DeleteBackupDescLabel.Top:=DeleteBackupRadioButton.Top + DeleteBackupRadioButton.Height + 4; DeleteBackupDescLabel.Width:=650; DeleteBackupDescLabel.Height:=40; DeleteBackupDescLabel.AutoSize:=False; DeleteBackupDescLabel.Wordwrap:=True; DeleteBackupDescLabel.Caption:=DeleteBackupDescText; у чекбокса ни как не изменить попробуй убрать название чека и на его место NewStaticText @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 17, 2015 Share Posted January 17, 2015 @-zav-, на скрине текст разного размера и стиля, а в коде прописано одинаково. Код вообще отсюда? @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted January 17, 2015 Share Posted January 17, 2015 (edited) @-zav-, на скрине текст разного размера и стиля, а в коде прописано одинаково. Код вообще отсюда? Отсюда. Просто разные варианты тыкал и на чем остановился то и заскринил ) Теперь так Но всёравно надписи у TNewCheckBox и TNewRadioButton разные хотя в обоих вариантах размер и жирность обинаковые. хм.. странно... другие цвета всё равно не поставить хотел clYellow или clLime зафигачить.. Edited January 17, 2015 by -zav- @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 17, 2015 Share Posted January 17, 2015 (edited) хм.. странно... другие цвета всё равно не поставить А и не поставишь. Стандартные чекбоксы не разрешат. Рисуй рядом с ними объект, который и будет содержать текст. Edited January 17, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted January 18, 2015 Share Posted January 18, 2015 А и не поставишь. Стандартные чекбоксы не разрешат. Рисуй рядом с ними объект, который и будет содержать текст. ну почему обязательно столько гемора надо.... @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 18, 2015 Share Posted January 18, 2015 (edited) так как при удалении скопировать файл из одной папки в другую? к примеру для файла paths.xml Edited January 18, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫ @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 18, 2015 Share Posted January 18, 2015 , ты что, впервые файл копируешь? Не знаешь функций деинсталлятора? @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 18, 2015 Share Posted January 18, 2015 , ты что, впервые файл копируешь? Не знаешь функций деинсталлятора? уже догадался @ Quote Link to comment Short link Share on other sites More sharing options...
AtotIK Posted January 18, 2015 Share Posted January 18, 2015 уже догадался Тогда ЗАЧЕМ было спрашивать? @ Quote Link to comment Short link Share on other sites More sharing options...
Ekspoint Posted January 18, 2015 Share Posted January 18, 2015 (edited) Тогда ЗАЧЕМ было спрашивать? не знал как функция копирования называлась кстати,правильно? procedure Paths(); begin CreateDir(ExpandConstant('{app}\{#MyAppName}\backup')); FileCopy(ExpandConstant('{app}\paths.xml'), ExpandConstant('{app}\{#MyAppName}\backup\paths.xml'), False); end; procedure CurStepChanged7(CurStep: TSetupStep); begin If CurStep=ssInstall then begin Paths(); end; end; Edited January 18, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫ @ Quote Link to comment Short link Share on other sites More sharing options...
Kotyarko_O Posted January 18, 2015 Share Posted January 18, 2015 (edited) кстати,правильно? Есть ошибки? Не работает? Самим догадываться? Edited January 18, 2015 by Kotyarko_O @ Quote Link to comment Short link Share on other sites More sharing options...
-zav- Posted January 18, 2015 Share Posted January 18, 2015 как правильно объединить две function InitializeSetup():boolean; как с InitializeWizard Procedure InitializeWizard(); begin InitializeWizard0(); InitializeWizard1(); InitializeWizard2(); end; не прокатывает @ Quote Link to comment Short link Share on other sites More sharing options...
young G Posted January 18, 2015 Share Posted January 18, 2015 Подскажите,почему выдает ошибку,когда вроде бы даже нету такого слова,как в ошибке: @ 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.