[ Inno Setup Code ] Need Debug Code

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

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

Code:

---

[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 '[email protected] stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external '[email protected] 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]

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

[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).