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

Reply
 
Thread Tools Display Modes
  #61  
Old 19-07-2013, 11:08
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 356
Thanks: 244
Thanked 928 Times in 231 Posts
altef_4 is on a distinguished road
Quote:
Originally Posted by red01 View Post
i am looking forward for that version.

Can i pm you? I want to learn something from you.
ok
Reply With Quote
The Following User Says Thank You to altef_4 For This Useful Post:
red01 (19-07-2013)
Sponsored Links
  #62  
Old 12-08-2013, 17:47
jksengko jksengko is offline
Registered User
 
Join Date: Jun 2010
Location: dont show
Posts: 54
Thanks: 1
Thanked 4 Times in 4 Posts
jksengko is on a distinguished road
what happen??

pls toll me what happen??
Attached Images
File Type: jpg 011.jpg (345.7 KB, 315 views)
Reply With Quote
  #63  
Old 12-08-2013, 20:25
pakrat2k2's Avatar
pakrat2k2 pakrat2k2 is offline
Moderator
 
Join Date: Apr 2005
Location: Canada
Posts: 7,238
Thanks: 2,960
Thanked 8,733 Times in 3,042 Posts
pakrat2k2 is on a distinguished road
what was the error message ?
Reply With Quote
  #64  
Old 13-08-2013, 00:57
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 356
Thanks: 244
Thanked 928 Times in 231 Posts
altef_4 is on a distinguished road
Quote:
Originally Posted by jksengko View Post
pls toll me what happen??
Inno Setup Enhanced Edition 5.5.1 UNICODE
Reply With Quote
  #65  
Old 17-10-2013, 03:30
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 356
Thanks: 244
Thanked 928 Times in 231 Posts
altef_4 is on a distinguished road
hi guys, i need a little of your help, please test this tool on different os and hardware and report me about results, thanks
Attached Files
File Type: 7z Get_SYS_INFO.7z (512.3 KB, 178 views)
Reply With Quote
  #66  
Old 17-10-2013, 07:26
Razor12911's Avatar
Razor12911 Razor12911 is offline
Coder
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,231
Thanks: 1,739
Thanked 8,007 Times in 1,787 Posts
Razor12911 is on a distinguished road
there mate
Attached Images
File Type: jpg Capture5.JPG (28.7 KB, 233 views)
__________________
Looking for something?
Visit the
Tutorial Index


Last edited by Razor12911; 17-10-2013 at 07:29.
Reply With Quote
The Following User Says Thank You to Razor12911 For This Useful Post:
altef_4 (17-10-2013)
  #67  
Old 17-10-2013, 07:31
mausschieber's Avatar
mausschieber mausschieber is offline
Conversion Designer
 
Join Date: Jan 2011
Location: germany
Posts: 1,111
Thanks: 3,069
Thanked 3,250 Times in 807 Posts
mausschieber is on a distinguished road
Quote:
Originally Posted by altef_4 View Post
hi guys, i need a little of your help, please test this tool on different os and hardware and report me about results, thanks
Works on Windows 8 Pro X64
See Screenshot
Information true


Last edited by mausschieber; 19-10-2013 at 15:38.
Reply With Quote
The Following User Says Thank You to mausschieber For This Useful Post:
altef_4 (17-10-2013)
  #68  
Old 19-10-2013, 03:39
y_thelastknight's Avatar
y_thelastknight y_thelastknight is offline
Registered User
 
Join Date: Mar 2010
Location: Canada
Posts: 414
Thanks: 596
Thanked 528 Times in 204 Posts
y_thelastknight is on a distinguished road
mine windows 8 pro 32bit
Reply With Quote
The Following User Says Thank You to y_thelastknight For This Useful Post:
altef_4 (19-10-2013)
  #69  
Old 19-10-2013, 07:36
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 356
Thanks: 244
Thanked 928 Times in 231 Posts
altef_4 is on a distinguished road
also, please, confirm that information is true or not
Reply With Quote
  #70  
Old 19-10-2013, 08:44
y_thelastknight's Avatar
y_thelastknight y_thelastknight is offline
Registered User
 
Join Date: Mar 2010
Location: Canada
Posts: 414
Thanks: 596
Thanked 528 Times in 204 Posts
y_thelastknight is on a distinguished road
my information are true..
Reply With Quote
The Following User Says Thank You to y_thelastknight For This Useful Post:
altef_4 (19-10-2013)
  #71  
Old 19-10-2013, 11:03
Razor12911's Avatar
Razor12911 Razor12911 is offline
Coder
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,231
Thanks: 1,739
Thanked 8,007 Times in 1,787 Posts
Razor12911 is on a distinguished road
mine weren't true. check the ram avaliable.
__________________
Looking for something?
Visit the
Tutorial Index

Reply With Quote
The Following User Says Thank You to Razor12911 For This Useful Post:
altef_4 (19-10-2013)
  #72  
Old 19-10-2013, 11:28
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 356
Thanks: 244
Thanked 928 Times in 231 Posts
altef_4 is on a distinguished road
Quote:
Originally Posted by Razor12911 View Post
mine weren't true. check the ram avaliable.
i use Windows DxDiag to check the system, its easy but long, hare are code:
Code:
[Code]
//XML module 1.0
type
TTagPoint = record Name: String; BeginPos, EndPos, Level: Integer; end;

const
  CP_ACP = 0; CP_UTF8 = 65001;

Function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD; lpMultiByteStr: PAnsiChar; cbMultiByte: integer; lpWideCharStr: PAnsiChar; cchWideChar: integer): longint; external '[email protected] stdcall';
Function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD; lpWideCharStr: PAnsiChar; cchWideChar: integer; lpMultiByteStr: PAnsiChar; cbMultiByte: integer; lpDefaultChar: integer; lpUsedDefaultChar: integer): longint; external '[email protected] stdcall';

function AnsiToUtf8(strSource: string): string;
var
nRet, nRet2: integer; WideCharBuf, MultiByteBuf: AnsiString;
begin
  SetLength(WideCharBuf, Length(strSource) * 2);
  SetLength(MultiByteBuf, Length(strSource) * 2);
  nRet:= MultiByteToWideChar(CP_ACP, 0, strSource, -1, WideCharBuf, Length(WideCharBuf));
  nRet2:= WideCharToMultiByte(CP_UTF8, 0, WideCharBuf, -1, MultiByteBuf, Length(MultiByteBuf), 0, 0);
  MultiByteBuf:=Copy(MultiByteBuf, 1, nRet2-1);
  Result:= MultiByteBuf;
end;

function GetExists(TagArr: array of TTagPoint): Boolean;
var Part1, Part2, Temp: Boolean; n: integer;
begin
if (GetArrayLength(TagArr) > 1) then begin
  Temp:= True;
  for n:= GetArrayLength(TagArr)-1 downto 1 do begin
    Part1:=False; If TagArr[n].BeginPos > TagArr[n-1].BeginPos then Part1:=True;
    Part2:=False; If TagArr[n].EndPos < TagArr[n-1].EndPos then Part2:=True;
    Temp:=Temp and (Part1 and Part2);
  end;
  If Temp then Result:= True;
end else begin
  Result:=False; if (TagArr[0].BeginPos > 0) and (TagArr[0].EndPos > 0) then Result:= true;
end;
end;

function ExpandTags(const sFileText, sTagName: string): array of TTagPoint;
var i: integer; sTags: array of TTagPoint;
begin
SetArrayLength(Result, 0);
If Pos('\', STagName) > 0 then try
  repeat
    i:= GetArrayLength(sTags); SetArrayLength(sTags, i+1);
    sTags[i].Name:= Copy(sTagName, 1, Pos('\', sTagName)-1);
    sTags[i].Level:= i; Delete(sTagName, 1, Pos('\', sTagName));
  until Pos('\', STagName) = 0;
  finally begin i:= GetArrayLength(sTags); SetArrayLength(sTags, i+1); sTags[i].Level:= i;
                  sTags[i].Name:= Copy(sTagName, 1, Length(sTagName));
          end;
end else begin
  SetArrayLength(sTags, 1); sTags[0].Name:= sTagName;
end;
Result:= sTags;
end;

function XMLChangeValue(sFileName, sTagName, sTagParam: string): Boolean;
var sFileText: Ansistring; i: Integer; Tags: array of TTagPoint;
begin
Result:= False
if LoadStringFromFile(sFileName, sFileText) then begin
  Tags:= Expandtags(sFileText, sTagName);
  for i:=0 to GetArrayLength(Tags)-1 do begin
    Tags[i].BeginPos:= Pos('<'+Tags[i].Name, sFileText);
    if (Tags[i].BeginPos <> 0) then while sFileText[Tags[i].BeginPos] <> '>' do Tags[i].BeginPos:=Tags[i].BeginPos+1;
    Tags[i].EndPos:= Pos('</'+Tags[i].Name+'>', sFileText)
  end;
  If GetExists(Tags) then begin
    i:= GetArrayLength(Tags)-1;
    Result:= SaveStringToFile(sFileName, Copy(sFileText,1,Tags[i].BeginPos) + AnsiToUtf8(sTagParam) + Copy(sFileText,Tags[i].EndPos,Length(sFileText)), False);
  end;
end;
end;

function XMLWriteValue(sFileName, sTagname, sTagType, sTagParam: string): Boolean;
var sFileText: AnsiString; sSpace, sText: string; i, k, n, CopyPos: Integer; Tags: array of TTagPoint;
begin
Result:= False;
if not FileExists(sFileName) then
  SaveStringToFile(sFileName, '<?xml version="1.0" encoding="utf-8" standalone="yes"?>', False);
if LoadStringFromFile(sFileName, sFileText) then begin
  Tags:= Expandtags(sFileText, sTagName);
  for i:=0 to GetArrayLength(Tags)-1 do begin
    Tags[i].BeginPos:= Pos('<'+Tags[i].Name, sFileText);
    if (Tags[i].BeginPos <> 0) then while sFileText[Tags[i].BeginPos] <> '>' do Tags[i].BeginPos:=Tags[i].BeginPos+1;
    Tags[i].EndPos:= Pos('</'+Tags[i].Name+'>', sFileText)
  end;
  i:= GetArrayLength(Tags)-1; sText:='';
  if ((i-1)<>0) then for n:=0 to i-1 do begin
    sSpace:= #13#10; if (Tags[n].Level-1>=0) then for k:=0 to Tags[n].Level-1 do sSpace:=sSpace+#9;
    if (Tags[n].BeginPos=0)and(Tags[n].EndPos=0) then sText:= sText+sSpace+'<'+Tags[n].Name+'>';
  end;
    sSpace:=#13#10; for k:= 0 to Tags[i].Level-1 do sSpace:= sSpace+#9; if (i+1=1) then sSpace:=#13#10;
    if (i+1=1)or(Tags[i-1].BeginPos=0) then begin CopyPos:= 1; while sFileText[CopyPos] <> '>' do CopyPos:=CopyPos+1; end else CopyPos:=Tags[i-1].BeginPos;
    if (sTagParam <> '')and(sTagType <> '') then sText:= sText+sSpace+'<'+Tags[i].Name+' type="'+sTagType+'">'+AnsiToUtf8(sTagParam)+'</'+Tags[i].Name+'>';
    if (sTagParam = '')and(sTagType = '') then sText:= sText+sSpace+'<'+Tags[i].Name+'>'+sSpace+'</'+Tags[i].Name+'>';
  if ((i-1)<>0) then for n:=i-1 downto 0 do begin
    sSpace:= #13#10; if (Tags[n].Level-1>=0) then for k:=0 to Tags[n].Level-1 do sSpace:=sSpace+#9;
    if (Tags[n].BeginPos=0)and(Tags[n].EndPos=0) then sText:= sText+sSpace+'</'+Tags[n].Name+'>';
  end;
  Result:= SaveStringToFile(sFilename, Copy(sFileText, 1, CopyPos)+sText+Copy(sFileText,CopyPos+1,Length(sFileText)), False)
end;
end;

function XMLReadValue(sFileName, sTagName: string; var sData: string): Boolean;
var sFileText: ansistring; i: Integer; Tags: array of TTagPoint;
begin
Result:= False
if LoadStringFromFile(sFileName, sFileText) then begin
  Tags:= ExpandTags(sFileText, sTagName);
  for i:=0 to GetArrayLength(Tags)-1 do begin
    Tags[i].BeginPos:= Pos('<'+Tags[i].Name, sFileText);
    if (Tags[i].BeginPos <> 0) then while sFileText[Tags[i].BeginPos] <> '>' do Tags[i].BeginPos:=Tags[i].BeginPos+1;
    Tags[i].EndPos:= Pos('</'+Tags[i].Name+'>', sFileText);
  end;
  If GetExists(Tags) then begin
    i:= GetArrayLength(Tags)-1;
    sData:= Copy(sFileText, Tags[i].BeginPos+1, Tags[i].EndPos-Tags[i].BeginPos-1);
    Result:= True;
   end;
end;
end;

function XMLDeleteValue(sFileName, sTagName: string): Boolean;
var b,e,i: Integer; sFileText: ansistring; Tags: array of TTagPoint;
begin
Result:= False;
if LoadStringFromFile(sFileName, sFileText) then begin
  Tags:= ExpandTags(sFileText, sTagName);
  for i:=0 to GetArrayLength(Tags)-1 do begin
    Tags[i].BeginPos:= Pos('<'+Tags[i].Name, sFileText);
    if (Tags[i].BeginPos <> 0) then while sFileText[Tags[i].BeginPos] <> '>' do Tags[i].BeginPos:=Tags[i].BeginPos+1;
    Tags[i].EndPos:= Pos('</'+Tags[i].Name+'>', sFileText)
  end;
  If GetExists(Tags) then begin
    i:= GetArrayLength(Tags)-1;
    b:= Tags[i].BeginPos-1; e:= Tags[i].EndPos;
    while (b-1<>1)and(sFileText[b-1] <> '>') do b:=b-1;
    while (e+1<>Length(sFileText))and(sFileText[e-2] <> '>') do e:=e+1;
    Result:= SaveStringToFile(sFileName, Copy(sFileText,1,b) + Copy(sFileText,e,Length(sFileText)), False);
  end;
end;
end;
//END

function InitializeSetup: Boolean;
var res:integer;
  tra,ara,pro,dxv,dxw,vnm:string;
begin
Exec(ExpandConstant('{win}\system32\dxdiag.exe'),'/whql:off /x '+ExpandConstant('{tmp}')+'\dxdiag.xml',ExpandConstant('{tmp}'),0,ewWaitUntilTerminated,res);
XMLReadValue(ExpandConstant('{tmp}\dxdiag.xml'),'DDIVersion',dxv); //video dx
XMLReadValue(ExpandConstant('{tmp}\dxdiag.xml'),'DirectXVersion',dxw); //OS dx
XMLReadValue(ExpandConstant('{tmp}\dxdiag.xml'),'Processor',pro); //Processor
XMLReadValue(ExpandConstant('{tmp}\dxdiag.xml'),'Memory',tra); // All RAM
XMLReadValue(ExpandConstant('{tmp}\dxdiag.xml'),'AvaliableOSMem',ara); //Avaliable RAM
XMLReadValue(ExpandConstant('{tmp}\dxdiag.xml'),'CardName',vnm); //Videocard name
if MsgBox('Processor name: '+pro+#13+'Videocard Name: '+vnm+#13+'OS DirectX Ver: '+dxw+#13+'VideoCard DirectX Ver: DirectX '+dxv+#13+'Ram All/Avaliable: '+tra+'/'+ara,mbInformation,MB_OK) = MB_OK then Result:=False;
end;
totally main part is XML module xD
Reply With Quote
The Following 2 Users Say Thank You to altef_4 For This Useful Post:
papas (25-01-2017), y_thelastknight (30-11-2013)
  #73  
Old 19-10-2013, 11:38
Razor12911's Avatar
Razor12911 Razor12911 is offline
Coder
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,231
Thanks: 1,739
Thanked 8,007 Times in 1,787 Posts
Razor12911 is on a distinguished road
you did that dxdiag xml... whatever it is? you created it?
__________________
Looking for something?
Visit the
Tutorial Index

Reply With Quote
  #74  
Old 19-10-2013, 11:45
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 356
Thanks: 244
Thanked 928 Times in 231 Posts
altef_4 is on a distinguished road
Quote:
Originally Posted by Razor12911 View Post
you did that dxdiag xml... whatever it is? you created it?
Win + R then DxDiag and you will see
Reply With Quote
  #75  
Old 19-10-2013, 11:54
Razor12911's Avatar
Razor12911 Razor12911 is offline
Coder
 
Join Date: Jul 2012
Location: South Africa
Posts: 3,231
Thanks: 1,739
Thanked 8,007 Times in 1,787 Posts
Razor12911 is on a distinguished road
damn man, you are awesome.
__________________
Looking for something?
Visit the
Tutorial Index

Reply With Quote
The Following User Says Thank You to Razor12911 For This Useful Post:
altef_4 (19-10-2013)
Reply

Tags
inno setup, installer, script, source code

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
Conversion Designer/Installer Creator Razor12911 Conversion Tutorials 1586 04-03-2019 08:25
Game Installer Designer by altef_4 altef_4 Conversion Tutorials 234 10-05-2018 17:16
INDEX - Conversion Tutorial Index Razor12911 Conversion Tutorials 7 01-10-2016 16:28
Carldric Installer (Compact Version) Carldric Clement Conversion Tutorials 3 07-03-2016 08:42
Tutorial using CI 8.0.0 yener90 Conversion Tutorials 424 21-10-2014 09:49



All times are GMT -7. The time now is 16:02.


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