[TROY Diamond]

TROY Diamond, там надо к системным функциям вроде обращаться »

Ну так помогите, мне нужно только "стандартное сообщение" о нехватке места убрать!

[TROY Diamond]

1. Почему не работает этот код для удаления сохранений?

Код:

[_Code_]
procedure DeleteSavedGames(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep=usUninstall then
  if DirExists(ExpandConstant('{app}')+'\Profiles') then
  if MsgBox(ExpandConstant('{cm:DeleteSave}'), mbInformation, MB_YESNO) = idYes then
  DelTree(ExpandConstant('{app}')+'\Profiles', True, True, True)
end;

2. Как в процессе установки запустить, а потом автоматически закрыть какое-нибудь приложение, находящееся в папке установки, но НЕ являющееся "основным" (т.е. это типа "утилита", а НЕ сама устанавливаемая программа), не имеет значение из секции Run или Code? Приложение очень маленькое и для того чтобы оно "сработало", нужно всего пару секунд, поэтому и надо его потом автоматически закрыть?
Наверное, можно как-то "убить" процесс?!

3. Как с помощью [INI] или как-то по другому создать файл, текстовый и другие, НО ТОЛЬКО С ОДНИМ ЗНАЧЕНИЕМ "ВНУТРИ", БЕЗ параметра, никаких "Section", "InstallPath", НЕ надо!
Только одно значение БЕЗ всего - в одну строчку, без кавычек, тире, двоеточий, типа открыл это файл, а там только:

5478549547hutjtiure84509fdjrereire943ukifju894390tgk4t984ij43m

и всё больше ничего нет!

4. Есть ли способ "обновить" дополнить список файлов для деинсталляции?
В процессе установки создаются файлы, о которых установщик "не знает", можно ли их как-то их "вписать"?

Или же просто использовать секцию [UninstallDelete]?

[Edison007]

by_gangster, рекомендую прочитать справку к IsDone

[Devils Night]

А переименовать как нибудь можно, ну, на примере SaveToFile(HostFileName);?
Ну что то вроде:

читать дальше »

Код:

RenFile(HostFileName); или
RenameFile(HostFileName); 
незнаю как там идёт

TROY Diamond, Ты вот это вот своё стихотворение хотя бы под спойлер спряч, а!

[Serega]

Так у меня тоже не получилось. Ошибка та-же "Не могу создать..." и подсвечивается строка "SaveToFile..." »

Честно говоря каспером не пользуюсь и не могу поэкспериментировать, но на сколько понимаю, инсталлятор должен быть запущен из под админа. Попробуйте поэкспериментировать с переименованиями файла с помощью функции:

Код:

function MoveFile(lpExistingFileName, lpNewFileName: PChar): BOOL; external 'MoveFileA@kernel32.dll stdcall';

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

На файле хостс, может стоять атрибут "только чтение" и тогда с ним ничего не сделаешь, сам с этим сталкивался... »

Тогда можно предварительно проверить атрибуты и если они стоят, то снять их...

И что даёт это? »

Почитайте здесь, а так же можете глянуть здесь

Есть ли противоположное параметру "ExtraDiskSpaceRequired"? »

На сколько я знаю, нет такого.

Но установщик считает размер всего упакованного в него... »

Так используйте внешние архивы. Прочитайте в справке константа {src}

Можно его убрать? »

Стандартными методами нет, можно перехватывать это сообщение и нажимать автоматом на кнопку, но всё равно само сообщение будет видно.

1. Почему не работает этот код для удаления сохранений? »

Код рабочий, только не совсем понятно, зачем удалять сохранения из {app}, если всё равно её удалять будете или у вас {app} остаётся после деинсталляции?

2. Как в процессе установки запустить, а потом автоматически закрыть какое-нибудь приложение, находящееся в папке установки, но НЕ являющееся "основным" (т.е. это типа "утилита", а НЕ сама устанавливаемая программа), не имеет значение из секции Run или Code? Приложение очень маленькое и для того чтобы оно "сработало", нужно всего пару секунд, поэтому и надо его потом автоматически закрыть? »

Почитайте в справке про секцию [Run]

Наверное, можно как-то "убить" процесс?! »

Можно через код, а можно через taskkill.exe

3. Как с помощью [INI] или как-то по другому создать файл, текстовый и другие, НО ТОЛЬКО С ОДНИМ ЗНАЧЕНИЕМ "ВНУТРИ", БЕЗ параметра »

TStringList вам в помощь

4. Есть ли способ "обновить" дополнить список файлов для деинсталляции? В процессе установки создаются файлы, о которых установщик "не знает", можно ли их как-то их "вписать"? »

При деинсталляции можете прописать их проверку на существование и если они существуют, то удалять их или

просто использовать секцию [UninstallDelete]»

[semiono]

Код:

[.code]
procedure DeinitializeSetup();
var
  S: TArrayOfString;
  F: String;
begin
  RegisterServer(not Is64BitInstallMode,ExpandConstant('{app}\AudioTrack.dll'),true)
///...

  RegWriteStringValue(HKLM32,'Software\Classes\CLSID\{3A4B9C26-C211-11CF-8A58-0800099D420E}','','[AudioTrack Mono]')
///...

  F := ExpandConstant('{app}\Waves.inf');
  SetArrayLength(S, 135);
  S[000] := '[Version]'
  S[001] := 'Signature="$Windows NT$"'
  S[002] := ''
///...
  SaveStringsToFile(F, S, False)
end;

Подскажите пожалуйста! Если пользователь прерывает остановку, то в секции код получается ошибка,
как бы переменная {app} не определенна. Как зделать выход из кода чтоб он не обрабатывался вообще
если юзер нажимает отмену установки?
Я пытался что-то сообразить типа if ExpandConstant('{app}') <> 0 then но не получается

Вроде пустячёк, помогите скорее

[Devils Night]

Пара замороченных вопросов
Как сделать такое?:

читать дальше »

И как сделать так чтобы после установки не было вот этого значка, который в нижнем правом углу?:

читать дальше »

[Serega]

Если пользователь прерывает остановку, то в секции код получается ошибка, »

Такие вещи нужно делать в:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
    begin
      // здесь ваш код...
    end;
end;

Как сделать такое? »

В расширенной версии есть редактор форм "WizardForm Designer", добавляете свои страницы и кидаете на форму нужные контролы...

чтобы после установки не было вот этого значка »

По умолчанию его и не должно быть.

[Devils Night]

В расширенной версии есть редактор форм "WizardForm Designer" »

Я вообще знаю что через форму, но и то некоторые функции, но есть одно но, при добавлении они не видны, например:

читать дальше »

Код:

var
  IPAddressEdit1: TIPAddressEdit;

procedure RedesignWizardForm;
begin
  IPAddressEdit1 := TIPAddressEdit.Create(WizardForm);
  with IPAddressEdit1 do
  begin
    Name := 'IPAddressEdit1';
    Parent := WizardForm.SelectTasksPage;
    Left := ScaleX(8);
    Top := ScaleY(200);
    Width := ScaleX(150);
    Height := ScaleY(21);
  end;

  IPAddressEdit1.TabOrder := 2;
end;

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

, на странице этого нет.

[Serega]

на странице этого нет. »

Скопировал ваш код и у меня TIPAddressEdit есть на странице SelectTasksPage