Go Back   FileForums > Game Backup > PC Games > PC Games - CD/DVD Conversions > Conversion Tutorials

Reply
 
Thread Tools Display Modes
  #1  
Old 13-03-2018, 00:02
Gaara_GAMA Gaara_GAMA is offline
Registered User
 
Join Date: Aug 2015
Location: CHINA
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Gaara_GAMA is on a distinguished road
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
Reply With Quote
Sponsored Links
  #2  
Old 13-03-2018, 01:07
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 609 Times in 185 Posts
rinaldo is on a distinguished road
maybe this can interest you
Attached Files
File Type: rar expand.rar (498 Bytes, 6 views)
__________________
if you understand read more
Reply With Quote
  #3  
Old 13-03-2018, 04:46
Gaara_GAMA Gaara_GAMA is offline
Registered User
 
Join Date: Aug 2015
Location: CHINA
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Gaara_GAMA is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
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 View Post
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

Last edited by pakrat2k2; 13-03-2018 at 06:00. Reason: posts within minutes of each other
Reply With Quote
  #4  
Old 13-03-2018, 07:28
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 609 Times in 185 Posts
rinaldo is on a distinguished road
Code:
procedure LogoLabelOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
  MsgBox(('                                     *ʹGBTСϵƷ')+ #13#10#13#10 +(
  'GBTС20042£ҶDZȰϷϷС顣С')+ #13 +(
  'Ӳ̰ŵѹʸߡ˸ʰ桢޹µ')+ #13 +(
  'DLCݡԴϷ޸ĹԵȣϽ޳һֱΪ')+ #13 +(
  'Ȱ׷')+ #13#13 +(
  'GBTС鷢Դڶ࣬Ϸվ̳дתءҳΪ')+ #13 +(
  'ղؼֵϷС.')+ #13#13 +(
  'GBTСǰԱʮˣҪϷװΪСҪԱ')+ #13 +(
  'renxufengˮBT֮ҿʼܰ桢ΪӰյij棬')+ #13 +(
  '첢ƹСŹû.')+ #13#13 +(
  'ϷССǧƷҪԯϵСɽϵСƷ')+ #13 +(
  'ϵСϵСĹӰϵСΣϵСʹٻϵеȣ')+ #13#13 +(
  'СǰBT֮ңĿǰ*ĶΰΪӰգٴλָΪBT֮')+ #13#10 +(
  'ҲͨGBTСϷռڲ鿴µϷԴء')+ #13#13 +(
  'СҪԱˮJojo531 1ove ʦһƽ')+ #13 +(
  'ѩĶ졢С¡ hebaoxiongߡ s010154Billyoģ̹͡*')+ #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.
Reply With Quote
  #5  
Old 14-03-2018, 11:11
Gaara_GAMA Gaara_GAMA is offline
Registered User
 
Join Date: Aug 2015
Location: CHINA
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Gaara_GAMA is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
Code:
procedure LogoLabelOnClick(Sender: TObject);
var
 ErrorCode: Integer;
begin
  MsgBox(('                                     *ʹGBTСϵƷ')+ #13#10#13#10 +(
  'GBTС20042£ҶDZȰϷϷС顣С')+ #13 +(
  'Ӳ̰ŵѹʸߡ˸ʰ桢޹µ')+ #13 +(
  'DLCݡԴϷ޸ĹԵȣϽ޳һֱΪ')+ #13 +(
  'Ȱ׷')+ #13#13 +(
  'GBTС鷢Դڶ࣬Ϸվ̳дתءҳΪ')+ #13 +(
  'ղؼֵϷС.')+ #13#13 +(
  'GBTСǰԱʮˣҪϷװΪСҪԱ')+ #13 +(
  'renxufengˮBT֮ҿʼܰ桢ΪӰյij棬')+ #13 +(
  '첢ƹСŹû.')+ #13#13 +(
  'ϷССǧƷҪԯϵСɽϵСƷ')+ #13 +(
  'ϵСϵСĹӰϵСΣϵСʹٻϵеȣ')+ #13#13 +(
  'СǰBT֮ңĿǰ*ĶΰΪӰգٴλָΪBT֮')+ #13#10 +(
  'ҲͨGBTСϷռڲ鿴µϷԴء')+ #13#13 +(
  'СҪԱˮJojo531 1ove ʦһƽ')+ #13 +(
  'ѩĶ졢С¡ hebaoxiongߡ s010154Billyoģ̹͡*')+ #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
Reply With Quote
  #6  
Old 14-03-2018, 16:14
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 609 Times in 185 Posts
rinaldo is on a distinguished road
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 '[email protected]{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external '[email protected]{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:[email protected];
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
Reply With Quote
  #7  
Old 15-03-2018, 09:57
Gaara_GAMA Gaara_GAMA is offline
Registered User
 
Join Date: Aug 2015
Location: CHINA
Posts: 4
Thanks: 0
Thanked 0 Times in 0 Posts
Gaara_GAMA is on a distinguished road
Quote:
Originally Posted by rinaldo View Post
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 '[email protected]{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external '[email protected]{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:[email protected];
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

Last edited by Gaara_GAMA; 15-03-2018 at 10:00.
Reply With Quote
  #8  
Old 15-03-2018, 15:23
rinaldo's Avatar
rinaldo rinaldo is offline
Registered User
 
Join Date: Sep 2015
Location: Rome
Posts: 430
Thanks: 101
Thanked 609 Times in 185 Posts
rinaldo is on a distinguished road
Quote:
let's do it, show a script with the functions you would like to implement and I will understand better
__________________
if you understand read more
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Assassin's Creed IV Black Flag (2xDVD9 to 3xDVD5) SP Only damar15 PC Games - CD/DVD Conversions 33 19-05-2017 07:50
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



All times are GMT -7. The time now is 19:06.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2018, vBulletin Solutions Inc.
Copyright 2000-2018, FileForums @ https://fileforums.com