|
#421
24-04-2013, 12:45
|
||||
|
||||
|
Quote:
wrapbtncallback(@function_which_will_be_executed_on_event,1), BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));BtnSetEvent(hNextBtn,Bt nMouseEnterEventID,WrapBtnCallback(@WizardFormBtnO nMouseEnter,1)); 
|
| Sponsored Links |
|
#422
25-04-2013, 00:05
|
|||
|
|||
|
thanks you very much for this thread it helps
my problem with password : first a compressed the game with " freearc" but i added password mean when i try to open the file with "freearc" it asks for password the problem now with inno setup , always says corrupted header but when i remove password no errors found so please is there any code for inno setup to add the arc files' password in it thanks in advance
|
|
#423
25-04-2013, 02:41
|
||||
|
||||
|
Quote:
Last edited by altef_4; 25-04-2013 at 13:42.
|
|
#424
25-04-2013, 04:07
|
|||
|
|||
|
I now understand why the problem with the icon and error. That's because Setup.dll file, is there a way to change the file or creating the file Setup.dll him? Thank
|
|
#425
25-04-2013, 05:06
|
||||
|
||||
|
which CI / CIU script are you using if any. because yener's script v1.0.0.6, you compile langscript.iss to create autorun.exe ( which is just renamed setup.dll )
|
| The Following User Says Thank You to pakrat2k2 For This Useful Post: | ||
huavancuong098 (25-04-2013) | ||
|
#427
25-04-2013, 07:25
|
||||
|
||||
|
Hmm, I can't actually tell because I used many methods in one, precomp+srep+mpz+tak+lzma+rep+ppmd+grzip+lzp+delta +exe+exe2
|
|
#429
25-04-2013, 10:59
|
||||
|
||||
|
Quote:
Now appear other error: WizardFormBtnOnMouseEnter. This my script. setup.zip Thanks in advance.
|
|
#430
25-04-2013, 13:58
|
||||
|
||||
|
Quote:
Code:
[Setup]
AppName=setup
AppVerName=setup
OutputDir=.
DefaultDirName={pf}\setup
[Files]
Source: Data\*; DestDir: "{tmp}"; Flags: dontcopy
[Code]
var
Btn:TButton;
Font:TFont;
hNextBtn:HWND;
const
FR_PRIVATE= $10;
BtnClickEventID= 1;
BtnMouseEnterEventID = 2;
type
Tfnlabel=procedure(h,msg,idevent,dwTime:longword);
HSTREAM = DWORD;
TBtnEventProc = procedure (h:HWND);
function MessageBox(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal): Integer;external '[email protected] stdcall';
procedure SetupLoadSkin(lpszPath: string; lpszIniFileName: string); external 'LoadSkin@files:ISSkin.dll stdcall setuponly';
procedure SetupUnloadSkin; external 'UnloadSkin@files:ISSkin.dll stdcall setuponly';
procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10 :integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL; external '[email protected] stdcall';
function SetTimer(hWnd: longword; nIDEvent, uElapse: longword; lpTimerFunc: longword): longword;external '[email protected] stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord;external 'KillTimer@user32 stdcall delayload';
function fnlCallback(callback:Tfnlabel; paramcount:integer):longword;external 'wrapcallback@files:innocallback.dll stdcall';
function ImgLoad(Wnd :HWND; FileName :PAnsiChar; Left, Top, Width, Height :integer; Stretch, IsBkg :boolean) :Longint; external 'ImgLoad@{tmp}\botva2.dll stdcall delayload';
procedure ImgSetVisibility(img :Longint; Visible :boolean); external 'ImgSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure BtnGetPosition(h:HWND; var Left, Top, Width, Height: integer); external 'BtnGetPosition@{tmp}\botva2.dll stdcall delayload';
procedure ImgApplyChanges(h:HWND); external 'ImgApplyChanges@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFontColor(h :HWND; NormalFontColor, FocusedFontColor, PressedFontColor, DisabledFontColor :Cardinal); external 'BtnSetFontColor@{tmp}\botva2.dll stdcall delayload';
function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';
function BtnCreate(hParent:HWND; Left,Top,Width,Height:integer; FileName:PAnsiChar; ShadowWidth:integer; IsCheckBtn:boolean):HWND; external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEvent(h:HWND; EventID:integer; Event:Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetText(h :HWND; Text :PAnsiChar); external 'BtnSetText@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetVisibility(h :HWND; Value :boolean); external 'BtnSetVisibility@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetFont(h :HWND; Font :Cardinal); external 'BtnSetFont@{tmp}\botva2.dll stdcall delayload';
function sndPlaySound(lpszSoundName: String; uFlags: cardinal):integer; external '[email protected] stdcall';
procedure WizardFormBtnClick(hBtn:HWND); begin
sndPlaysound(ExpandConstant('{tmp}\soundfx.wav'),$0001);
case hBtn of
hNextBtn: Btn:=WizardForm.NextButton;
end;
Btn.OnClick(Btn);
end;
procedure WizardFormBtnOnMouseEnter(hBtn:HWND); begin
sndPlaysound(ExpandConstant('{tmp}\soundfx.wav'),$0001);
end;
function InitializeSetup(): Boolean; begin
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('button.png');
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
ExtractTemporaryFile('soundfx.wav');
Result := True;
end;
procedure InitializeWizard(); begin
with WizardForm do begin
Position:=poScreenCenter;
InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
BorderStyle:= bsDialog;
ClientWidth:=600
ClientHeight:=400
CancelButton.SetBounds(510,365,70,20);
BackButton.SetBounds(350,365,70,20);
NextButton.SetBounds(430,365,70,20);
end
with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,Left-8,Top-8,Width+10,Height+10,ExpandConstant('{tmp}\button.png'),18,False);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFontColor(hNextBtn,$ffcc33,$0000FF,$000000,$000000);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetEvent(hNextBtn,BtnMouseEnterEventID,WrapBtnCallback(@WizardFormBtnOnMouseEnter,1));
Width:=0;
Height:=0;
end;
//h:=WizardForm.Handle;
ImgApplyChanges(WizardForm.Handle);
end;
procedure DeinitializeSetup(); begin
BASS_Free;
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), SW_HIDE);
SetupUnloadSkin;
gdipShutdown;
end;
procedure CurPageChanged(CurPageID: Integer); begin
ImgApplyChanges(WizardForm.Handle);
BtnSetText(hNextBtn,WizardForm.NextButton.Caption);
if (CurPageID = wpFinished) then begin
BtnSetVisibility(hNextBtn,True);
end;
if (CurPageID = wpInstalling) then begin
BtnSetVisibility(hNextBtn,False);
end;
end;
|
|
#431
25-04-2013, 18:13
|
||||
|
||||
|
Quote:
Now the sond of the button is ok, but the filme .wav don磘 work. setup.7z If you can help me, i will be thankful.
|
|
#433
25-04-2013, 22:06
|
||||
|
||||
|
which precomp version?
Last edited by Razor12911; 25-04-2013 at 22:11.
|
|
#434
25-04-2013, 22:50
|
||||
|
||||
|
Quote:
sndPlaySoundW and change to this sndPlaySoundA if i'm understand you wrong, then explain whats wrong
|
|
#435
25-04-2013, 23:07
|
|||
|
|||
|
Quote:
Precomp 0.42 or better Srep 3.0 or better Freearc latest. I need code and Files as well.Any other help is appreciated.
|
 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| INNO TROUBLESHOOT - Tutorials and Answers about INNO Setup | REV0 | Conversion Tutorials | 129 | 21-05-2021 05:51 |
| INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup | REV0 | Conversion Tutorials | 51 | 26-03-2015 06:57 |
| Frequently Asked Questions | Joe Forster/STA | PC Games - Frequently Asked Questions | 0 | 29-11-2005 09:48 |
Linear Mode
