|
#1
13-03-2018, 00:02
|
|||
|
|||
|
On the problem of modifying the black box script
How to modify based on Black_Box_Script_By_Kurutucu_V1.8 from Main(precomp.0.43).iss to increase the Chinese path hint and click the logo event to have a custom size information box before jumping to the web page?
I have copied the logo click event information box, but the size is not the same size as the original copy. I'm sorry, I can't express problems in English, so I used Baidu to translate my question. QQ??20180313155641.png 
|
| Sponsored Links |
|
#3
13-03-2018, 04:46
|
|||
|
|||
|
Quote:
Main(precomp.0.43).rar Quote:
Last edited by pakrat2k2; 13-03-2018 at 06:00. Reason: posts within minutes of each other
|
|
#4
13-03-2018, 07:28
|
||||
|
||||
|
Code:
procedure LogoLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
MsgBox((' »¶Ó*ʹÓÃGBTС×éϵÁÐ×÷Æ·')+ #13#10#13#10 +(
'GBTС×é³ÉÁ¢ÓÚ2004Äê2Ô£¬´ó¼Ò¶¼ÊDZ¾×ÅÈÈ°®ÓÎÏ·Ëù³ÉÁ¢µÄÖÆ×÷ÓÎϷС×顣С×é')+ #13 +(
'µÄÓ²ÅÌ°æÆäÓŵãѹËõ±ÈÂʸߡ¢ÎÞÑ˸ÖÊ°æ¡¢ÎÞ¹ã¸æ²å¼þ¡¢ÕûºÏÁË×îеÄÉý¼¶²¹¶¡')+ #13 +(
'¼°DLCÄÚÈÝ¡¢×Ô´øÓÎÏ·²¹¶¡Ð޸Ĺ¥ÂԵȣ¬²âÊÔÑϽ÷¡¢ÎÞ³¥·ÖÏí£¬Ò»Ö±ÎªÐí¶àÍæ¼ÒËù')+ #13 +(
'ÈÈ°®×·Åõ¡£')+ #13#13 +(
'GBTС×é·¢²¼µÄ×ÊÔ´Öڶ࣬¸÷´óÓÎÏ·ÍøÕ¾ºÍÂÛ̳£¬¶¼ÓдóÁ¿×ªÔØ¡£±»Íæ¼Ò³ÆΪ£º¡°')+ #13 +(
'¹úÄÚ×î¾ßÊղؼÛÖµ¡±µÄÓÎÏ·ÖÆ×÷С×é.')+ #13#13 +(
'GBTС×éÇ°ºó³ÉÔ±¹²¼ÆÈýÊ®ÓàÈË£¬Ö÷ÒªÒÔÖÐÎÄÓÎÏ··âװΪÖ÷£¬Ð¡×éµÄÖ÷Òª³ÉÔ±')+ #13 +(
'renxufeng£¨ÏãË®£©£¬´ÓBTÖ®¼Ò¿ªÊ¼×ö°æÖ÷¡¢×Ü°æ¡¢³ÇÖ÷¡¢ÏÖÈÎΪӰ¿ÕµÄ³¬°æ£¬')+ #13 +(
'Ëû´øÁì²¢ÍƹãС×éÆð׏¦²»¿ÉûµÄ×÷ÓÃ.')+ #13#13 +(
'ÖÆ×÷µÄÓÎÏ·´ó´óССÓÚǧ¿îÖ÷Á÷×÷Æ·£¨Ö÷Òª´ú±í×÷£ºÐùÔ¯½£ÏµÁС¢Ïɽ£ÏµÁС¢¼«Æ·')+ #13 +(
'ϵÁС¢¹íÆüϵÁС¢¹ÅĹÀöӰϵÁС¢Éú»¯Î£»úϵÁС¢Ê¹ÃüÕÙ»½ÏµÁеȣ©¡£')+ #13#13 +(
'С×é³ÉÁ¢ÒÔÇ°ÊÇBTÖ®¼Ò£¬Ä¿Ç°¾*¹ý¸Ä¶à´Î°æÃûΪӰ¿Õ£¬ÏÖÔٴλָ´ÎªBTÖ®¼ÒÓò')+ #13#10 +(
'Ãû¡£ÁíÍâÍæ¼ÒÒ²¿ÉÒÔͨ¹ýGBTС×éµÄÓÎÏ·¿Õ¼äÀ´¶¨Æڲ鿴×îеÄÓÎÏ·×ÊÔ´ÏÂÔØ¡£')+ #13#13 +(
'С×éÖ÷Òª³ÉÔ±£ºÏãË®¡¢Jojo531¡¢ 1ove¡¢ µØÓü¿þÀÜʦ¡¢ÐÞÁËÍõһƽ¡¢¶ñ¹í¡¢²»ÏÂ')+ #13 +(
'Ñ©µÄ¶¬Ì졢СС¢ hebaoxiong¡¢ÉñÕß¡¢ s010154¡¢Billyo¡¢ÀÏÂóÄ£ÐÍ¡¢Â̹âÉ*')+ #13 +(
'ÁÖ¡¢²×º£¡¢Ð¡Àî×Ó¡¢²»ËÀ±ð¼§¡¢Æ¤Æ¤¡¢ÑªÖñ¡¢Ð¡ÓСÅÖ¡¢Ä«Ó㡢СС¡¢ºï×Ó¡¢»Æ')+ #13 +(
'ºÓÀïµÄÕ¨¸â¡¢Ð¡Íõ¡¢ºÚÒø¡¢ÄûÃÊÃ۲衢TMSLiuµÈ¡£')+ #13#13#13 +(
'GBTС×é´ó±¾Óª£º')+ #13#13 +(
'Ô*´´·¢²¼Çø£ºhttps//www.gscq.me/forum-3.htm')+ #13 +(
'С×éÓÎÏ·¿Õ¼ä£ºhttp://renxufeng.ys168.com/'), mbConfirmation, MB_OK);
ShellExec('open', '{#AppURL}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
change $50 to MB_OK
__________________
if you understand read more Last edited by rinaldo; 13-03-2018 at 08:16.
|
|
#5
14-03-2018, 11:11
|
|||
|
|||
|
Quote:
The other question is how to fix the files under the _CommonRedist in setup-1.bin or setup-2.bin where the black box script component installs it
|
|
#6
14-03-2018, 16:14
|
||||
|
||||
|
I can not follow you with the msgbox, try other solutions like:
Code:
#Define Skin "setup.cjstyles"
[Setup]
AppName=InfoForm
AppVerName=InfoForm
CreateAppDir=no
[Files]
#ifdef Skin
Source: Files\ISSkin\{#Skin}; DestDir: "{app}"; Attribs: hidden system; Flags: ignoreversion;
Source: Files\ISSkin\ISSkin.dll; DestDir: "{app}"; Attribs: hidden system; Flags: ignoreversion;
#endif
[Languages]
Name: eng; MessagesFile: Languages\English.isl
[Code ]
var
InfoForm: TSetupForm;
InfoBtn: TButton;
#ifdef Skin
procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external '[email protected] stdcall';
#endif
procedure CloseForm(Sender: TObject);
begin
InfoForm.Close;
end;
procedure FormOnClick(Sender: TObject);
var Ok: TButton;
begin
InfoForm := CreateCustomForm();
try
with InfoForm do
begin
ClientWidth := ScaleX(390);
ClientHeight := ScaleY(300);
BorderIcons := [];
Caption := SetupMessage(msgInformationTitle);
CenterInsideControl(WizardForm, False);
end;
Ok := TButton.Create(InfoForm);
with Ok do
begin
Parent := InfoForm;
SetBounds(ScaleX(300), ScaleY(265), ScaleX(75), ScaleY(23));
Caption := SetupMessage(msgButtonOk);
OnClick:=@CloseForm;
end;
with TLabel.Create(InfoForm) do
begin
Parent := InfoForm;
Font.Size := 100;
Font.Style := [fsBold];
Font.Name:='Arial';
Font.Color := $FFFFFF;
Caption:='TEST';
end;
finally
end;
InfoForm.ShowModal;
end;
procedure InitializeWizard();
begin
with WizardForm do begin
NextButton.SetBounds(0,0,0,0);
BackButton.SetBounds(0,0,0,0);
InfoBtn := TButton.Create(WizardForm);
InfoBtn.Caption := 'Info';
InfoBtn.Parent := WizardForm;
InfoBtn.SetBounds(5,327,75,23);
InfoBtn.OnClick := @FormOnClick;
end;
end;
function InitializeSetup(): Boolean;
begin
#ifdef Skin
ExtractTemporaryFile('isskin.dll');
ExtractTemporaryFile('{#Skin}');
LoadSkin(ExpandConstant('{tmp}\{#Skin}'), '');
#endif
Result := True;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
#ifdef Skin
FileCopy(ExpandConstant('{tmp}\ISSkin.dll'),ExpandConstant('{app}\Uninstall\ISSkin.dll'),False);
FileCopy(ExpandConstant('{tmp}\{#Skin}'),ExpandConstant('{app}\Uninstall\{#Skin}'),False);
#endif
end;
procedure DeinitializeSetup();
begin
#ifdef Skin
ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')),0);
UnloadSkin;
#endif
end;
__________________
if you understand read more
|
|
#7
15-03-2018, 09:57
|
|||
|
|||
|
Quote:
But I don't know how to modify the DirectX, Framework and vc++ paths on the black box script to the _CommonRedist folder path in setup-1.bin or setup-2.bin. Can you tell me how to modify it? In addition, I have seen other people's installation package install game crack patch options. How can this be implemented in black box scripts? Let me send a screenshot to show you how this option is modified in the black box script. QQ??20180316015631.png Last edited by Gaara_GAMA; 15-03-2018 at 10:00.
|
 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Black & White problem....... | newbie#1 | PSX Games | 2 | 06-12-2001 05:51 |
| Help with ###V2 and GS!! does anyone else have this problem?? | ayoni | DC Games | 1 | 08-09-2001 12:33 |
| Gran Turismo 3 Color Problem (it's in Black and White) | Siege | PS2 Games | 6 | 05-08-2001 12:42 |
Linear Mode
