Вопрос Disable uninstall messages? Silent uninstall?

[nizcoz]

How disable uninstall messages? is a silent uninstall? How apply /silent at uninstall? how to use the command line? Thanks!!!

 

[Хамик]

nizcoz, http://krinkels.org/threads/faq-po-inno-setup.7/page-3#post-22115

 

[nizcoz]

nizcoz, http://krinkels.org/threads/faq-po-inno-setup.7/page-3#post-22115

Unknown identifier ¨WND¨

 

[Хамик]

nizcoz,

Спойлер

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=.

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Code]
function FindWindowEx(Parent, Child: HWND; ClassName, WindowName: PansiChar): HWND; external 'FindWindowExA@user32.dll stdcall';

const
  BM_CLICK    = $00F5;
var
  Timer: TTimer;
  msg: string;
  Wnd, WndEx: HWND;

procedure OnTimer(Sender: TObject);
begin
  Wnd:= FindWindowByWindowName(msg);
  if Wnd > 0 then
    begin
      WndEx:= FindWindowEx(Wnd, 0,'Button', '');
    if WndEx > 0 then
    begin
      PostMessage(WndEx, BM_CLICK, 0, 0);
      Timer.Enabled:= False;
    end;
  end;
end;

function InitializeUninstall:boolean;
//var
//  S: String;
begin
//if ActiveLanguage='rus' then
//  S:= 'Вы действительно хотите удалить {#GameName}'+#10+'и все компоненты программы?'
//else
//  S:= 'Are you sure you want to completely remove {#GameName}'+#10+'and all of its components?';
//if ShowMessageEx(S, '', MB_YESNO, mQuestion) = IDYES then
  Result := True;
  msg:= SetupMessage(msgUninstallAppFullTitle);
  StringChange(msg, '%1', '{#SetupSetting('AppName')}');
  OnTimer(nil);
  Timer:= TTimer.Create(nil);
  with Timer do
  begin
  OnTimer:= @OnTimer;
  Interval:= 1;
  Enabled:= True;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usPostUninstall then
begin
  OnTimer(nil);
  Timer:= TTimer.Create(nil);
  with Timer do
  begin
  OnTimer:= @OnTimer;
  Interval:= 1;
  Enabled:= True;
  end;
end;
end;

 

[nizcoz]

Thanks!!!!!!!! Problem solved!!!