[Beavimo]

вот так выехал на инно вместо батника

Скрытый текст

Код:

[Setup]
AppName=TEST
AppVerName=TEST
CreateAppDir=no
Uninstallable=no
OutputDir=userdocs:..\Desktop

[\Code]
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external 'ShowWindow@user32.dll stdcall'; const
  BM_CLICK = $00F5;
   procedure CurPageChanged(CurPageID: Integer);
    begin
   ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), SW_HIDE);
  PostMessage(WizardForm.NextButton.Handle, BM_CLICK, 0, 0);
end;// Спрятать окно инсталятора

procedure CurStepChanged(CurStep: TSetupStep);
  begin                                                   
   if CurStep = ssInstall then 
    RegDeleteKeyIncludingSubkeys(HKLM,'SOFTWARE\TEST');// Удаляет ветку реестра перед установкой 
   RegDeleteKeyIncludingSubkeys(HKLM64,'SOFTWARE\TEST');// Удаляет ветку реестра перед установкой 
  DelTree(ExpandConstant('{userappdata}\TEST'), True, True, True);// Удаляет папку перед установкой 
end;

[Run]
Filename: "{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Inno Setup 6_is1,Inno Setup: App Path}\Examples\MyProg.exe"; Flags: postinstall shellexec skipifsilent

теперь з данным батником можна крепить ярлыки на панель задач, сбрасывать триал програм и самое важное вирус тотал молчит
тока интересно как поведет себя сее творение на 32-х битных системах