Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


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

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


Цитата TROY Diamond:
хоть кто-то откликнулся, а не пнул.»
Ну уж вам то грех такое говорить, вам постоянно кто-нибудь подсказывает, но а то, что вы сами не хотите учиться, это уж извините, только ваша вина.
Запомните одну золотую истину, никто ничего за вас делать не будет!
Цитата TROY Diamond:
КАК отключить сообщение о нехватке места на ЖД »
Пример для расширенной версии
читать дальше »

Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
ExtraDiskSpaceRequired=536870912000
Compression=lzma2/ultra64
InternalCompressLevel=ultra64
SolidCompression=yes

[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[Code]
const
  BM_CLICK = $00F5;

function FindWindowEx(Parent, Child: Longint; ClassName, WindowName: PChar): Longint; external 'FindWindowExA@user32.dll stdcall';

var
  tmr: TTimer;

procedure Timer(Sender: TObject);
var
  hWnd: Longint;
begin
  hWnd := FindWindowByWindowName(SetupMessage(msgDiskSpaceWarningTitle)); // ищем сообщение о нехватке места
  if hWnd > 0 then // если нашли
    PostMessage(FindWindowEx(hWnd, 0, 'Button', PChar(SetupMessage(msgButtonYes))), BM_CLICK, 0, 0);  // нажимаем на кнопку
end;

procedure InitializeWizard;
begin
  tmr := TTimer.Create(WizardForm);
  with tmr do
    begin
      Enabled := False;
      Interval := 5;
      OnTimer := @Timer;
    end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  tmr.Enabled := CurPageID = wpSelectDir;
end;

-------
Книги нужны, чтобы напоминать человеку, что его оригинальные мысли не так уж новы... Авраам Линкольн.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:04, 19-01-2012 | #655