Имя пользователя:
Пароль:
 

Показать сообщение отдельно

SHVtYW4=


Сообщения: 3451
Благодарности: 1273

Профиль | Отправить PM | Цитировать


Цитата Larkod:
кинь ключ реестара World of Tanks »
Скрытый текст
Код: Выделить весь код
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1]
"Inno Setup: Setup Version"="5.4.2 (u)"
"Inno Setup: App Path"="C:\\Games\\World_of_Tanks"
"InstallLocation"="C:\\Games\\World_of_Tanks\\"
"Inno Setup: Icon Group"="World of Tanks"
"Inno Setup: User"="-"
"Inno Setup: Selected Tasks"="desktopicon"
"Inno Setup: Deselected Tasks"=""
"Inno Setup: Language"="ru"
"DisplayName"="World of Tanks"
"DisplayIcon"="C:\\Games\\World_of_Tanks\\WoTLauncher.exe"
"UninstallString"="\"C:\\Games\\World_of_Tanks\\unins000.exe\""
"QuietUninstallString"="\"C:\\Games\\World_of_Tanks\\unins000.exe\" /SILENT"
"Publisher"="Wargaming.net"
"URLInfoAbout"="http://wargaming.net"
"HelpLink"="https://support.worldoftanks.ru"
"NoModify"=dword:00000001
"NoRepair"=dword:00000001
"InstallDate"="-"


Цитата ekspoint:
дальше сам делай »
Это не ответ, а пустой трёп. Рабочий пример? Нет примера - зря вообще писали.

Цитата diman_21Ru:
Как можно добавить такую кнопку Удалить все файлы из папки Update »
Пример
Код: Выделить весь код
[Code]
var
  CheckBox1: Boolean;
  CheckBox2: TNewCheckBox;
  S: String;

procedure CheckBox1Click(Sender: TObject);
begin
  CheckBox1:=CheckBox2.Checked;
end;

procedure InitializeWizard();
begin
    CheckBox2 := TNewCheckBox.Create(WizardForm);
  with CheckBox2 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(105);
    Width := ScaleX(500);
    Height := ScaleY(17);
    Caption := ExpandConstant('Удалить папку "Backup" из "{userdocs}"');
    OnClick := @CheckBox1Click;
    TabOrder := 0;
    Checked := False;
  end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageID=wpInstalling then
 begin
 If CheckBox1 then
  S:=ExpandConstant('{userdocs}')+'\Backup';
   If DirExists(S) then
    begin
      DelTree(ExpandConstant('{userdocs}')+'\Backup', True, True, True);
    end;
 end;
end;


Цитата ekspoint:
народ есть ли библиотека ISSkin.dll для win 8.1? »
Теперь ищите сами. А здесь последняя публичная версия.
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:31, 25-11-2014 | #2023