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

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

Аватара для Mailchik

Пользователь


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

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


tuz-veta, скройте MessageBox
читать дальше »
Код: Выделить весь код
[Code]
#ifdef UNICODE
  type
  PChar = PAnsiChar;
#endif

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(msgNoUninstallWarningTitle));
  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 = wpSelectComponents;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:28, 30-11-2013 | #1570