Pascal scripting - köra exe

Visst är Delphi besläktat med pascal, ungefär som C++ är besläktat med C. Så det är nog rätt forum och jag låter tråden ligga kvar

*Jag har dock tyvärr inget svar på din fråga, men det finns gott om kompetenta personer här, så någon sitter säkert med ett svar.

så här:

Hej,hittade följande exempel på https://www.innosetup.com (FAQ), vilket väl är ungefär det du vill göra:

COMCTL32.DLL
If your application requires an updated version of COMCTL32.DLL, you can direct your users to download the COMCTL32 update from Microsoft, or call the COMCTL32 update from your installation by using the following lines:

[Files]
Source: "50comupd.exe"; DestDir: "{tmp}"

[Code]
function ShouldInstallComCtlUpdate: Boolean;
var
MS, LS: Cardinal;
begin
// Only install if the existing comctl32.dll is < 5.80
Result := False;
if GetVersionNumbers(ExpandConstant('{sys}\comctl32.dll'), MS, LS) then
if MS < $00050050 then
Result := True;
end;

[Run]
Filename: "{tmp}\50comupd.exe"; Parameters: "/r:n /q:1"; Check: ShouldInstallComCtlUpdate

Don't try to install COMCTL32.DLL directly using the [Files] section; Microsoft does not allow this, and it's dangerous.

mvh Tony

Jag tittade på Check-funktionen, men jag löste det på ett annat sätt, innan du hann svara. Tack för hjälpen i a f. Din lösning är nog snyggare än min...

[Run]
Filename: {tmp}\{code:CheckForMDAC}; WorkingDir: {tmp}; Flags: skipifdoesntexist

function CheckForMDAC(Default: String): string;
var
sMDACversion: string;

begin
      blnSuccess:=RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\DataAccess', 'FullInstallver', sMDACversion)
      //MsgBox('sMDACversion', mbinformation, MB_OK)
      if blnSuccess=true then begin
		 // MsgBox(sMDACversion, mbinformation, MB_OK)

				sMDACversion:=StrGet(sMDACversion, 3);

				if StrToInt(sMDACversion)<6 then begin
				sMess:='Microsoft Data Access Components kommer nu att installeras. '
				MsgBox(sMess, mbinformation, MB_OK)
					Result:='MDAC_2.7.EXE'
				end;
      end;
end;