FileForums - Useful Dll for Inno Setup users

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

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

- - Useful Dll for Inno Setup users (https://fileforums.com/showthread.php?t=95775)

Functions prototype changes:
function GetFileVersionData(Const FileName: String; Const FlgRes: integer): String;
function GetFileVersionData(Const FileName: PAnsiChar; Const FlgRes: integer): PAnsiChar;

GetFileVersionDataW (UNICODE) & GetFileVersionDataA (ANSI) added.

GetSysInfo procedure changes:

Now the procedure retrieves also the following properties :

CurrentHorizontalResolution
CurrentVerticalResolution
CurrentRefreshRate

GetSysInfo procedure changes:

Now the procedure returns sound device name only if its current status is 'OK', otherwise a null string is returned (it means not working properly).

Added the following functions/procedures to dll:

GdiStartup
GdiShutdown
LoadImage
DrawImages
SetImgVisibility

Added the following functions/procedures to dll:

SetImgTransparency
GetImgVisibility
GetImgTransparency

... and the following::)

SetImgPosSize
GetImgPosSize

Yup, you are really tired of using other people's dlls by force. Nice! I'll wait for imgsetvisiblepart, this function is buggy in botva and layered, can't wait to try yours.

Quote:

Originally Posted by Razor12911 (Post 444101)

Yup, you are really tired of using other people's dlls by force. Nice! I'll wait for imgsetvisiblepart, this function is buggy in botva and layered, can't wait to try yours.

You can use SetImgPosSize procedure (set image position & size)

Code:

imgidx:=loadimage(ExpandConstant('{tmp}\progressbar.png'),WizardForm.Handle,100,100,30,0,IMF_Crop); // use Crop flag







DrawImages(WizardForm.Handle); // Draw progress bar width on client area at 0  







SetImgPosSize(imgidx,100,100,30,10);  // Increment visible progress bar width from 0 to 10 pixels

I was referring to the function that lets you set a region on the picture to be visible.

Quote:

Originally Posted by Razor12911 (Post 444105)

I was referring to the function that lets you set a region on the picture to be visible.

Code:

imgidx1:=loadimage(ExpandConstant('{tmp}\my.png'),WizardForm.Handle,0,0,450,750,IMF_Crop);

SetVisibleImgRgn(imgidx1,100,50,200,300);

DrawImages(WizardForm.Handle);

Code:

procedure SetVisibleImgRgn(ImgIdx,NewX,NewY,NewHeight,NewWidth: integer); 

external 'SetVisibleImgRgn@files:Isab.dll stdcall delayload';

shortage of examples, in botva and in many others there are a dozen examples with the library, so you do so, that many of us use your library so fast .. not think peterf1999 ;)

Quote:

Originally Posted by rinaldo (Post 444127)

shortage of examples, in botva and in many others there are a dozen examples with the library, so you do so, that many of us use your library so fast .. not think peterf1999 ;)

Did you read the exhaustive docs about functions/procedures on 1st page?
For sure, the use is not easy for inno's novice users.;)

Quote:

Originally Posted by peterf1999 (Post 444130)

Did you read the exhaustive docs about functions/procedures on 1st page?
For sure, the use is not easy for inno's novice users.;)

I hope that your skills are better than your common sense :rolleyes:

Quote:

Originally Posted by peterf1999 (Post 444125)

Code:

imgidx1:=loadimage(ExpandConstant('{tmp}\my.png'),WizardForm.Handle,0,0,450,750,IMF_Crop);

SetVisibleImgRgn(imgidx1,100,50,200,300);

DrawImages(WizardForm.Handle);

Code:

procedure SetVisibleImgRgn(ImgIdx,NewX,NewY,NewHeight,NewWidth: integer); 

external 'SetVisibleImgRgn@files:Isab.dll stdcall delayload';

ok, got it. should be working on something now. :)

Quote:

Originally Posted by rinaldo (Post 444127)

shortage of examples, in botva and in many others there are a dozen examples with the library, so you do so, that many of us use your library so fast .. not think peterf1999 ;)

I don't think examples are needed for this. I mean if you read the code section from the help file that comes with Inno Setup.
which reads "
The [Code] section is an optional section that specifies a Pascal script. A Pascal script can be used to customize Setup or Uninstall in many ways. Note that creating a Pascal script is not easy and requires experience with Inno Setup and knowledge about programming in Pascal or at least a similar programming language."
The reason I'm saying there is no need for example is because simple types are always there to guide you on how to use a function, if you had a little bit of knowledge of pascal/delphi, you would know what I'm talking about and what makes peterf not make examples.

razor... I did before opening the dll to read :D

peterf ...I found that it's a great project .. I noticed that the driver can not read DirectX .. what do you think of this option?