altef_4's installer

[Razor12911]

this is cool protection insanity. Awesome.

[Smurf Stomper]

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.

[yener90]

Originally Posted by Smurf Stomper

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 :/

[Razor12911]

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

[altef_4]

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

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

[Razor12911]

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?

[altef_4]

Originally Posted by Razor12911

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

;#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_4]

little preview

[Razor12911]

Nice one bro.

[Smurf Stomper]

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

[altef_4]

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)

[sentinelks]

Design incomparable

[yener90]

Originally Posted by altef_4

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

[pakrat2k2]

Originally Posted by altef_4

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

[altef_4]

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