[AlekseyPopovv]

Как удалить вот такую запись из реестра?
RegDeleteValue(HKU, 'S-1-5-21-3249071770-3804279344-2902041931-1000\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Persisted', 'D:\WindowsPlayer_2.9.4.0.exe');
Пробовал вот так, не получается:
RegDeleteValue(HKU, 'S-1-5-21-3249071770-3804279344-2902041931-1000\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Persisted', '{src}\WindowsPlayer_2.9.4.0.exe');
Если указать полный путь "D:\WindowsPlayer_2.9.4.0.exe", то всё удаляется. Но пользователь может запустить установку из любого места. Как быть?

[audiofeel]

AlekseyPopovv,
RegDeleteValue(HKU, 'S-1-5-21-3249071770-3804279344-2902041931-1000\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Persisted', '{app}\WindowsPlayer_2.9.4.0.exe');

[Dodakaedr]

Как удалить вот такую запись из реестра? »

Попробуйте так:

Код:

RegDeleteValue(HKEY_CURRENT_USER, 'Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Persisted', '{app}\WindowsPlayer_2.9.4.0.exe');

S-1-5-21-3249071770-3804279344-2902041931-1000 - это SID пользователя и он у каждого разный.
Но если не сработает то GetSID вам в помощь.

[audiofeel]

вот таким "макаром" у меняя получилось сделать кнопку "далее" не активной, когда свободного места меньше чем надо,

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

procedure DirEditOnChange(Sender: TObject);
var
NeedSize, FreeSize: Extended;
begin
EditSetText(SelectDirEdt, MinimizePathName(WizardForm.DirEdit.Text, SelectDirEdt.Top.Font, SelectDirEdt.Top.Width));
NeedSize := StrToFloat(GetFloatFormText(WizardForm.ComponentsDiskSpaceLabel.Caption));
FreeSize := Extended(GetFreeDriveSpace(WizardDirValue()));
NeedInstallSizeLabel.Caption := 'Требуется как минимум ' + MbOrTb(NeedSize) + ' свободного дискового пространства.';
if (FreeSize > NeedSize) then NeedInstallSizeLabel.Font.Color := $AAAAAA else NeedInstallSizeLabel.Font.Color := {#Color1};
ButtonSetEnabled(NextBtn, (FreeSize > NeedSize));
if WizardForm.CurPageID = wpSelectProgramGroup then begin
ButtonSetEnabled(NextBtn, (FreeSize > NeedSize));
ButtonSetEnabled(NextBtn, True);
end;
end;

может все таки есть способ сделать не активной кнопку GroupBrowserBtn после нажатия на чек бокс ????

[audiofeel]

saurn,

кнопки не через ботву

[audiofeel]

saurn, ок, - оригинал = http://rghost.ru/58543107

[saurn]

audiofeel, за состояние кнопок отвечает процедура

Код:

procedure ButtonSetEnabled(var Button: TCusBtn; hEnabled: Boolean);

Значит включение\отключение выглядит так:
ButtonSetEnabled( MyBtn, True ) - включена, ButtonSetEnabled( MyBtn, False ) - выключена
Обработчик кликов чекбокса будет выглядеть так:

Код:

procedure NoIconsCheckClick(Sender: TObject);
begin
  case TCheckBox( Sender ).Checked of
      True: ButtonSetEnabled( MyBtn, False );
      False: ButtonSetEnabled( MyBtn, True );
  end;
end;

[audiofeel]

saurn,
я это "понял" так, но не работает

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

function NoStartIcon: Boolean;
begin
Result := not CheckBoxGetChecked(NoIconsChk);
end;

procedure NoIconsClick(Sender: TObject);
begin
case CheckBoxGetChecked(NoIconsChk) of
True: ButtonSetEnabled(GroupBrowseBtn, False);
False: ButtonSetEnabled(GroupBrowseBtn, True);
end;
end;

CheckBoxSetEvent(NoIconsChk, @NoIconsClick);

[ABBAT]

Всем привет. Кто в курсе, как сделать (тихое) удаление без UninstallProgressForm . Что-то вроде удалить программу и в конце программа удалена т.е скрыть окно UninstallProgressForm

[ROMKA-1977]

Tco 03, с твоим вариантом получилось со стандартным прогрессбаром а надо прогрессбары ISDone.