FileForums - altef_4's installer

FileForums (https://fileforums.com/index.php)

- Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)

- - altef_4's installer (https://fileforums.com/showthread.php?t=93899)

this is cool protection insanity. Awesome.

Altef, I was linked to your post #72 - any ideas on how I can implement just the gpu directX check in a desktop shortcut (see my short scenario here)? Thanks.

Quote:

Originally Posted by Smurf Stomper (Post 426620)

Altef, I was linked to your post #72 - any ideas on how I can implement just the gpu directX check in a desktop shortcut (see my short scenario here)? Thanks.

This check takes a while, so i wouldnt use it for starting an application

@altef ive got the same idea with dxdiag, unfortunately the creation takes a lot of time :/

yep. Maybe you could add a form which reads, "Detecting Components, Please wait"

here is new example, without XML module, if you use IS 5.5.4, you can uncommend first line to make this example better

Code:

;#define InnoSetup5_5_4

[Setup]

AppName=Get_SYS_INFO

AppVersion=0.1b

CreateAppDir=no

VersionInfoDescription=altef_4

OutputBaseFilename=Get_SYS_INFO

OutputDir=.



[Icons]

Name: {userdesktop}\Far Cry 3 DX9; Filename: {app}\bin\FarCry3.exe; Parameters: -offline; WorkingDir: {app}\bin; Check: DX9;

Name: {userdesktop}\Far Cry 3 DX11; Filename: {app}\bin\FarCry3_D3D11.exe; Parameters: -offline; WorkingDir: {app}\bin; Check: DX11;



[Code]

var GetDXV:integer;

function DX9:boolean;

begin

  if GetDXV>=9 then Result:=True else Result:=False;

end;



function DX10:boolean;

begin

  if GetDXV>=10 then Result:=True else Result:=False;

end;



function DX11:boolean;

begin

  if GetDXV>=11 then Result:=True else Result:=False;

end;



function GetDX:Integer;

var

  dxv:string;

  buf:ansistring;

begin

Result:=9;

while Not FileExists(ExpandConstant('{tmp}')+'\dxdiag.txt') do Sleep(100);

LoadStringFromFile(ExpandConstant('{tmp}')+'\dxdiag.txt',buf);

delete(buf,1,Pos('DDI Version: ',buf));

dxv:=Copy(buf,13,2);

StringChange(dxv,#13,'');

Result:=StrToIntDef(dxv,9);

end;



function InitializeSetup(): Boolean;

var

  res:integer;

begin

  Exec(ExpandConstant('{win}\system32\dxdiag.exe'),'/whql:off /t '+ExpandConstant('{tmp}')+'\dxdiag.txt',ExpandConstant('{tmp}'),0,ewNoWait,res)

  Result:=True;

end;

#ifdef InnoSetup5_5_4

procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer);

begin

  if CurProgress = MaxProgress-1 then GetDXV:=GetDX;

end;

#else

procedure CurStepChanged(CurStep: TSetupStep);

begin

  if CurStep=ssInstall then GetDXV:=GetDX;

end;

#endif

Altef, there's also DX 10.1 and I think DX 11.2;

Oh and, What about 9.0c or does it fall under 9?

Quote:

Originally Posted by Razor12911 (Post 426636)

Altef, there's also DX 10.1 and I think DX 11.2;

Oh and, What about 9.0c or does it fall under 9?

just little change code

Code:

;#define InnoSetup5_5_4

[Setup]

AppName=Get_SYS_INFO

AppVersion=0.1c

CreateAppDir=no

VersionInfoDescription=altef_4

OutputBaseFilename=Get_SYS_INFO

OutputDir=.



[Icons]

Name: {userdesktop}\Far Cry 3 DX9; Filename: {app}\bin\FarCry3.exe; Parameters: -offline; WorkingDir: {app}\bin; Check: DX9;

Name: {userdesktop}\Far Cry 3 DX11; Filename: {app}\bin\FarCry3_D3D11.exe; Parameters: -offline; WorkingDir: {app}\bin; Check: DX11;



[Code]

var GetDXV:string;



function DX9:boolean;

begin

  Case GetDXV of

    '9':    Result:=True;

    '9.0c': Result:=True;

    '10':   Result:=True;

    '10.1': Result:=True;

    '11':   Result:=True;

    '11.2': Result:=True;

  else

  Result:=False;

  end;

end;



function DX10:boolean;

begin

  Case GetDXV of

    '9':    Result:=False;

    '9.0c': Result:=False;

    '10':   Result:=True;

    '10.1': Result:=True;

    '11':   Result:=True;

    '11.2': Result:=True;

  else

  Result:=False;

  end;

end;



function DX11:boolean;

begin

  Case GetDXV of

    '9':    Result:=False;

    '9.0c': Result:=False;

    '10':   Result:=False;

    '10.1': Result:=False;

    '11':   Result:=True;

    '11.2': Result:=True;

  else

  Result:=False;

  end;

end;



function GetDX:string;

var

  dxv:string;

  buf:ansistring;

begin

Result:='';

while Not FileExists(ExpandConstant('{tmp}')+'\dxdiag.txt') do Sleep(100);

LoadStringFromFile(ExpandConstant('{tmp}')+'\dxdiag.txt',buf);

delete(buf,1,Pos('DDI Version: ',buf));

dxv:=Copy(buf,13,Pos(' ',buf));

StringChange(dxv,#13,'');

Result:=dxv;

end;



function InitializeSetup(): Boolean;

var

  res:integer;

begin

  Exec(ExpandConstant('{win}\system32\dxdiag.exe'),'/whql:off /t '+ExpandConstant('{tmp}')+'\dxdiag.txt',ExpandConstant('{tmp}'),0,ewNoWait,res)

  Result:=True;

end;

#ifdef InnoSetup5_5_4

procedure CurInstallProgressChanged(CurProgress, MaxProgress: Integer);

begin

  if CurProgress = MaxProgress-1 then GetDXV:=GetDX;

end;

#else

procedure CurStepChanged(CurStep: TSetupStep);

begin

  if CurStep=ssInstall then GetDXV:=GetDX;

end;

#endif

altef, I had a question for you in the gpu directX thread, please answer when you have time. Thanks!

Mini Designer demo

here is demo of my Mini Designer, please, check it :)
(necessary files are not included, so you can't create setup.exe and data.zip, just to know how it looks)

Quote:

Originally Posted by altef_4 (Post 427228)

here is demo of my Mini Designer, please, check it :)
(necessary files are not included, so you can't create setup.exe and data.zip, just to know how it looks)

Sexy.

German Translation:
Create Data.zip = Data.zip erstellen
Create EI.exe = EI.exe erstellen
Stop Operations = Aufgaben stoppen
Generate Pass = Passwort generieren
Password length = Passwortlänge
Animated Splashscreen = Animierte Splashanzeige
Simple Splashscreen = Einfache Splashanzeige
Custom Font = Eigene Schriftart
Text Shadows = Textschatten
Music = Musik
Button Sound = Tastenton !!! dont know exactly Translation
Textured Progressbar = Texturierte Progressbar
Progressbar Animation = Animierte Progressbar
Glass Borders = Glas Ränder !!! dont know exactly Translation
Taskbar Preview = Taskleisten-Vorschau
Slideshow = Diashow
Transparent Borders = Transparente Ränder
Transparent Effect = Transparente Effekte
Simple Button = Einfache Tasten
Animated Button = Animierte Tasten

Those i skipped are not necessary to translate ;)

Quote:

Originally Posted by altef_4 (Post 427228)

here is demo of my Mini Designer, please, check it :)
(necessary files are not included, so you can't create setup.exe and data.zip, just to know how it looks)

looks sweet, nice job :D

new preview, finally i added support of Original Inno Setup 5.5.4 (all features still present) script code only 220 kb :) soon i will need help with translations, now work on languages section.

UPD: fixed version without bug :)