Цитата 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"="-"
Это не ответ, а пустой трёп.
Рабочий пример? Нет примера - зря вообще писали.
Цитата 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? »
|
Теперь ищите сами. А
здесь последняя публичная версия.