On the problem of modifying the black box script

Gaara_GAMA · #1 13-03-2018, 00:02

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

rinaldo · #2 13-03-2018, 01:07

maybe this can interest you

Gaara_GAMA · #3 13-03-2018, 04:46

Quote:

Originally Posted by rinaldo

maybe this can interest you

But this example is not the kind of effect I want, or thank you for your answer. Can you look at my black box script if you can? I don't know where to increase the hint of the Chinese directory is not available
Main(precomp.0.43).rar

Quote:

Originally Posted by rinaldo

maybe this can interest you

My script has the question of the screenshot, and if you have time, can you implement the size of the form on the right side of the screenshot from this script? This script I got rid of music and Slideshow & Video

rinaldo · #4 13-03-2018, 07:28

Code:

procedure LogoLabelOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
  MsgBox(('                                     »¶Ó*Ê¹ÓÃGBTÐ¡×éÏµÁÐ×÷Æ·')+ #13#10#13#10 +(
  'GBTÐ¡×é³ÉÁ¢ÓÚ2004Äê2ÔÂ£¬´ó¼Ò¶¼ÊÇ±¾×ÅÈÈ°®ÓÎÏ·Ëù³ÉÁ¢µÄÖÆ×÷ÓÎÏ·Ð¡×é¡£Ð¡×é')+ #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

Gaara_GAMA · #5 14-03-2018, 11:11

Quote:

Originally Posted by rinaldo

Code:

procedure LogoLabelOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
  MsgBox(('                                     »¶Ó*Ê¹ÓÃGBTÐ¡×éÏµÁÐ×÷Æ·')+ #13#10#13#10 +(
  'GBTÐ¡×é³ÉÁ¢ÓÚ2004Äê2ÔÂ£¬´ó¼Ò¶¼ÊÇ±¾×ÅÈÈ°®ÓÎÏ·Ëù³ÉÁ¢µÄÖÆ×÷ÓÎÏ·Ð¡×é¡£Ð¡×é')+ #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

But after changing OK, the information box will be the same size as the left side of the first floor, instead of the size of the right side of the screenshot. How can I change the size of the right side of the screenshots?

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

rinaldo · #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;

Gaara_GAMA · #7 15-03-2018, 09:57

Quote:

Originally Posted by rinaldo

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;

Thank you for your script sample for my first question.

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

rinaldo · #8 15-03-2018, 15:23

Quote:

let's do it, show a script with the functions you would like to implement and I will understand better

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