Useful Dll for Inno Setup users

[peterf1999]

Originally Posted by BAMsE

I can't create more than one timer with CreateTimer function. Only last defined TTimerProc is executed with the smallest Timeout defined:

ButtonCB := CreateTimer(10, @ButtonAction;
EqualizerCB := CreateTimer(100, @EqualizerAction);

In this case only EqualizerAction is executed with 10ms interval

A function issue.
Thx for feedback

[peterf1999]

Changes: v0.0.9.3:
Fixed an issue with multiple timers creation.

@Bamse
I should rewrite the entire JoinFile function

[BAMsE]

Another issue:
Any PAnsiChar of TSysInfo or TVolume is empty after GetDirectXVersion execution.

BTW: what are possible results of GetDirectXVersion?

[peterf1999]

Originally Posted by BAMsE

Another issue:
Any PAnsiChar of TSysInfo or TVolume is empty after GetDirectXVersion execution.

I don't have this issue, the function are separated

Originally Posted by BAMsE

BTW: what are possible results of GetDirectXVersion?

Ansi string of Directx version or null ansi string.

[BAMsE]

One pic tells more...

Clipboard04.jpg

... plus small bonus: executing DiskVolumeInfo before GetSysInfo messing strings returned by the first mentioned...

Clipboard02.jpg

[BAMsE]

GetFileVersionData causes file dependent errors AFTER gathering info from file on both UNICODE and ANSI (tested different exes, dlls). I mean errors are not random - some files always pass with the same flag, but fails with another (e.g. pckr.dll never fails with CompanyName or FileVersion but always fails with FileDescription or ProductName). Problematic strings are always correct - errors occur AFTER retrieving and returning them.

Runtime Error (at 750:30170):
Access violation at address 05C276A2 in module 'Isab.dll'. Read of address A7FFFFFC.

Runtime Error (at 750:30170):
Exception "EOleException" at address 00497587.

Runtime Error (at 2:273):
Exception "EOSError" at address 00497587.

[peterf1999]

Send pm with links of scripts have raised the errors of:
GetFileVersionData
DiskVolumeInfo
GetSysInfo

I tested GetFileVersionDataW & GetFileVersionDataA on Altef_4's pckr.dll without errors. ( Inno Setup ultra v5.5.1 unicode, and v5.5.5 ansi).

[BAMsE]

Any script, e.g. your example from post 59 I've modified it to induce errors - duplicated lines 'OSName' and 'HDDLabel' after GetDirectXVersion call. Also try to define INVERT.
GetFileVersionData seems to work fine maybe some fault of my rig (but yesterday deliberately turned OC off to avoid any misrepresentations). Now compiled with 5.5.8(a) gives Access violation at the end of setup. With 5.5.1.ee2(u) works fine.

[Razor12911]

Watch example

[Razor12911]

Hey peterf, there seems to be a problem with SaveFileFromBuffer function, after saving a file, handle is not closed so I'm getting OpenError exceptions.

Edit:
Also this, I don't know if I'm doing anything wrong here.

Request:
GetImgRotation function

[Razor12911]

Cryptfile example

[BAMsE]

Razor use DrawToDC instead of DrawImages. There's no DrawImages export in ISab.dll See example.

[peterf1999]

Originally Posted by Razor12911

Hey peterf, there seems to be a problem with SaveFileFromBuffer function, after saving a file, handle is not closed so I'm getting OpenError exceptions.

Fixed.

The verdict that I already knew:
Sharing data structures ( TSysInfo or TVolume) or classes between two modules (inno setup exe and dlls )
in delphi/pascal is deprecated or even illegal. This is the reason of the issues,
but I always hated to export a single function for only one value.

All I need is to export each function e.g.:

function GetProcessorName: PAnsichar;
function GetFileSystemType: PAnsichar;
function GetCpuClockSpeed: integer;
...

and so on

[Razor12911]

Yea well there was no DrawToDC on first page, I used it as reference.

[peterf1999]

DiskVolumeInfo function replaced by:

const
  TF_InBytes = 1;
  TF_InKiloBytes = 2;
  TF_InMegaBytes = 4;
  TF_InGigaBytes = 8;

function GetDiskVolumeName(const RootDir: PAnsichar):PAnsichar; external 'GetDiskVolumeName@files:Isab.dll stdcall delayload';
function GetFileSystemName(const RootDir: PAnsichar):PAnsichar; external 'GetFileSystemName@files:Isab.dll stdcall delayload';
function GetVolumeFreeSpace(const RootDir: PAnsichar; const OutSizeType: Byte): Double; external 'GetVolumeFreeSpace@files:Isab.dll stdcall delayload';
function GetVolumeSize(const RootDir: PAnsichar; const OutSizeType: Byte): Double; external 'GetVolumeSize@files:Isab.dll stdcall delayload';