[ Inno Setup Code ] Need Debug Code

[amin fear]

i have an Inno setup script with pascal code that replaces " About Setup... " dialog box text with a favorite & custom text from inside the code ... this code seems to be working & when running compiled setup , it changes the dialog box text perfectly ... but when exiting the setup program , installer seems to crash & after closing shows "not responding error" ... any expert here please take a look at script & debug it ? or at least tell me how can i revise the script ? please ?

this is the link of source :
http://rghost.net/42435000

[JuggaloBrotha]

You can place the inno script code right into your post here:

[Setup] 
AppName=My Program 
AppVerName=My Program v 1.5 
DefaultDirName={pf}\My Program 
OutputDir=. 
  
[Languages] 
Name: "english"; MessagesFile: "compiler:Default.isl"
 
[Files] 
Source: CallbackCtrl.dll; Flags: dontcopy 
  
[Code] 
type 
  TWFProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint; 
 
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam: Longint; lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall'; 
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall'; 
function WrapWFProc(Callback: TWFProc; ParamCount: Integer): Longword; external 'wrapcallbackaddr@files:CallbackCtrl.dll stdcall'; 
  
var 
  OldProc:Longint; 
 
procedure AboutSetupClick; 
begin 
  //Replacing the menu About" 
  MsgBox('custom text', mbInformation, MB_OK);
end; 
 
function WFWndProc(h:HWND;Msg,wParam,lParam:Longint):Longint;  
begin 
  if (Msg=$112) and (wParam=9999) then begin 
    Result:=0; 
    AboutSetupClick; 
  end else begin 
    if Msg=$2 then SetWindowLong(WizardForm.Handle,-4,OldProc); 
    Result:=CallWindowProc(OldProc,h,Msg,wParam,lParam); 
  end;  
end; 
 
procedure InitializeWizard; 
begin 
  OldProc:=SetWindowLong(WizardForm.Handle,-4,WrapWFProc(@WFWndProc,4)); 
end;

Just use: [code][noparse]Inno script here...[/code][/noparse]

[dd1os]

please explain yourself, what do u mean about [noparse] ? i get crash error when the setup close...

[Nightwalker83]

[QUOTE=dd1os;4342445]please explain yourself, what do u mean about [noparse] ? i get crash error when the setup close... [/QUOTE]

The [noparse] is a mistake in JuggaloBrotha's post! You only need to use the code within the code block (has a light blue background).