yener90's Inno Project Source Codes

[kassane]

Incredible yener90, just got a little time off, and you made ​​good progress ... CI 8.5.7.4 tested and approved!!!

thx

[johnnyusa]

Back again with some questions yener, i suppose you didnt reply to my previous problem because you don't know the answer or my description was too vague.

Anyway, what im trying to do now, is to implement one password page in your awesome script. But it seems my scripting skills are sucky at the moment, but i have an excuse, im beginner.

Anyway, let's proceed with my problems:

The below code is in [SETUP]

; Password setup
Encryption=false
Password=123456

#define EncryptPass
#define i Len(SetupSetting("Password"))
#for {i; i > 0; i--} EncryptPass = EncryptPass + Copy(SetupSetting("Password"), i, 1)

The below code is in [CODE]

Function DecryptPass(Password: String): String;
var n: Integer;
Begin
for n:= Length(Password) Downto 1 do Result:= Result + Copy(Password, n, 1)
End;

Function CheckPassword(Password: String): Boolean;
Begin
Result:= (GetMD5OfString(Password) = DecryptPass('{#EncryptPass}'))
if not Result then exit;
PasswordText.Caption:= WizardForm.PasswordEdit.Text
WizardForm.PasswordEdit.Text:= DecryptPass('{#EncryptPass}')
PasswordText.Show
End;

Procedure PasswordEditOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
Begin
WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text)
End;

This is the password page:

////////////////////// PasswordPage //////////////////////

PasswordEditLabel := TLabel.Create(WizardForm);
with PasswordEditLabel do begin
AutoSize:=False;
Top:= TextPositionTop + 97 + MoveDirectoryInfo;
if Wizardform.RightToLeft then
Left := InstallerWidth - TextPositionWidth - TextPositionLeft + TextSpaceFromBorder + 7
else
Left:= TextPositionLeft + TextSpaceFromBorder + 7 ;
Width:= TextPositionWidth - 2* TextSpaceFromBorder - 14;
//SetBounds(ScaleX(127), ScaleY(308), ScaleX(446),16);
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= SetupFont;
Font.Size:= 10 + SetupFontSize;
Font.Color:=SetupFontColor;
//Font.Style:=[fsBold];
//Caption := MinimizePathName(WizardForm.PasswordEditLabel.Text , PasswordEditLabel.Font, PasswordEditLabel.Width);
//Caption:= WizardForm.PasswordEdit.Text;
Parent := WizardForm;
OnMouseMove:=@MainAreaMouseMove;
OnMouseDown:=@MainAreaMouseDown;
end;

PasswordText:=TPanel.Create(WizardForm)
with PasswordText do begin
WizardForm.PasswordEdit.OnKeyUp:= @PasswordEditOnKeyUp
PasswordText.SetBounds(WizardForm.PasswordEdit.Lef t, WizardForm.PasswordEdit.Top, WizardForm.PasswordEdit.Width, WizardForm.PasswordEdit.Height)
PasswordText.Font.Style:= [fsBold]
PasswordText.Alignment:=taLeftJustify
PasswordText.BevelOuter:= bvNone
PasswordText.BorderStyle:= bsSingle
PasswordText.Parent:= WizardForm.PasswordPage
PasswordText.Hide
end;

with Wizardform.PasswordEdit do begin
if Wizardform.RightToLeft then
Left := InstallerWidth - TextPositionWidth - TextPositionLeft + TextSpaceFromBorder
else
Left:= TextPositionLeft + TextSpaceFromBorder;
Top:= TextPositionTop + 95 + MoveDirectoryInfo;
Width:= TextPositionWidth - 2* TextSpaceFromBorder ;
Parent:=Wizardform
end;

////////////////////// PasswordPage //////////////////////

wpPassword:
begin
Wizardform.PasswordEdit.Show
PasswordEditLabel.Show
end;

if CurPageID = wpPassword then if PasswordText.Caption = '' then
begin
WizardForm.Nextbutton.Enabled:= CheckPassword(WizardForm.PasswordEdit.Text);
if FileExists(ExpandConstant('{tmp}\Button.png')) then begin
NextBtnEnable(Wizardform.NextButton.Enabled)
end;
end;

Now, what i want to do is to enable the NEXT button when i enter the correct password. The problem is, even if i input the correct password, the NEXT button is Disabled. Any assistance please? Thanks in advance as always.

[pakrat2k2]

you need to run Setup.cab Cryptor.exe to input the password into setup.cab file then ( I think it gives you the encrypted password that needs to be entered in setup.ini ) Hope its right as dont use that feature YET.

[johnnyusa]

No man, im not talking about password protecting the cab file, im talking about password protection inside the setup.

[yener90]

why password protected setup? o.o

[johnnyusa]

Because i want to test things and i want to learn from you and your scripts.

[kassane]

When I compact a game mode internal setup, the autorun opens, but the setup does not open or delay opening. this has happened to someone in CI 8.5.7.4 hitch?

[johnnyusa]

Yes, that happened to me too kassane, just described the problem above on one post.

I've used both CI 8.5.7.4 and CI 8.5.7.3, same problem like you describe with internal setup.

[Onizuka87k]

Originally Posted by Valeron

Hey everyone. I need help.

What video type does CI. Use?

Dumb question. Avi. But what type of avi? Xvid?

I use xilisoft.

My videos resolution 1920x1080.

HELP...

http://fileforums.com/showpost.php?p=401440&postcount=1

Scroll down until you see "Suggested video settings".
You can also use flash files (.swf) as background video!

[Onizuka87k]

Originally Posted by Valeron

i need avi man.

I told you:

Suggested video settings:
http://img221.imageshack.us/img221/3931/supermw.jpg

Take a look at the pic.

[kassane]

Yener90, I'm trying to create a conversion only mode:

#define Internal

But unfortunately when I put a video in the background, the list appears copilação, but during installation the video does not appear .. Only works with setup.cab?

[Kamyk95]

@yener90
I have a suggestion. Can You change the application uninstall name from this - "<Game Title> Uninstall" to this "Uninstall <Game Title>" (Use it as a verb, not as a noun)? It would look more aesthetically. I ask you this, because this is not a correct form in Polish language and it looks "ugly" (look at the attachment). Second question - Can You change the word "Wyjdź" (it means "Quit" in English) to "Zamknij" in your script (Polish language Autorun)? It means the same if it comes to Autoruns and the word "Zamknij" doesn't contain typical Polish characters like "ą,ż,ź" and others, so the font would be compatible.

[yener90]

Originally Posted by kassane

Yener90, I'm trying to create a conversion only mode:

#define Internal

But unfortunately when I put a video in the background, the list appears copilação, but during installation the video does not appear .. Only works with setup.cab?

Make sure you put it correct.

Next Update... i need new translations :P

-> Read Manual
-> Read ReadMe
-> Browse DVD

[kassane]

Yener90, I tried to create the conversion in the traditional way. but even so the video did not work...

Originally Posted by yener90

Next Update... i need new translations :P

-> Read Manual
-> Read ReadMe
-> Browse DVD

Translation Portuguese

-> Read Manual - Leia Manual
-> Read ReadMe - Leia-me
-> Browse DVD - Explorar DVD

[NamelessOne]

Originally Posted by yener90

Next Update... i need new translations :P

-> Read Manual
-> Read ReadMe
-> Browse DVD

A little suggestion if I may, yener. Maybe you should just leave Manual and ReadMe instead of Read Manual and Read ReadMe. As for Browse DVD, maybe you could name it Extras and make it to open folder with the same name.

Translation Bosnian (could be used for Croatian also)

-> Read Manual -> Pročitaj priručnik
-> Read ReadMe -> Pročitaj obavijest
-> Browse DVD -> Pregledaj DVD (maybe Otvori DVD would be more appropriate if it opens root directory of DVD)