altef_4's installer

[altef_4]

new version of bp.dll
UPD
version without Runtime Packages, this will fix errors on computers without installed Delphi 2009 (thanks for Ne0N for info)

[amin fear]

Originally Posted by altef_4

new version of bp.dll
UPD
version without Runtime Packages, this will fix errors on computers without installed Delphi 2009 (thanks for Ne0N for info)

Hi @altef_4...

I have Delphi XE3 installed on my Windows 8 64 bit & it works like a charm !

PS : I have tested your setup also on a clean Windows 8.1 64Bit on VirtualBox & still works like a charm !

**********************************
You are genius , there is no extracted MP3 file in temp !

[altef_4]

here is edited version of Inno ImageAnimator.dll from tlama , i added ANSI support, if you have Inoo Setup Enhanced Edition, graphics will be loaded from memory if not - then from folder "Resource" (yes, again protection ) so, test it.

[altef_4]

Here is another preview, is not mine, based on new library - layered.dll by David.D.Rocco, i will use it in future in my installer

download library and examples

[altef_4]

hello again, i'm working on new protection method, that will allow to protect graphics, allow to use internal instalation and also allows to use b2p.dll in original Inno Setup (and other libraries like a b2p), here is an preview, try replace any image in Data.zip (password is Password) and run installer again (proof), also, check TEMP folder for finding this images (or any other folder )

[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!