[INNOSetup, Pascal]Detectie VC++ Redistributable

[Verwijderd]

Ik ben bezig met een nieuwe versie van een installer, gemaakt met INNOSetup.
Voor deze nieuwe versie zijn alleen 'Power User' rechten nodig, niet langer 'Admin' rechten.

We moeten nu dus eerst checken of de gebruiker 'Microsoft Visual C++ 2008 Redistributable' al heeft geinstalleerd, omdat die wel 'Admin' rechten behoeft.

Ik ben hier al lang mee bezig, maar ik kom er niet uit.
Ik check op {9A25302D-30C0-39D9-BD6F-21E6EC160475} met dit stukje code:

Delphi:

function MsiQueryProductState(ProductCode: string): integer;
external '[e-mail]';

const
  INSTALLSTATE_DEFAULT = 5;
  INSTALLLEVEL_MAXIMUM = $ffff;
  INSTALLSTATE_ABSENT = 2;

const
    VCREDIST_X86 ='{9A25302D-30C0-39D9-BD6F-21E6EC160475}';

function IsMsiProductInstalled(const ProductId: string): boolean;
begin
    Result := MsiQueryProductState(ProductId) = INSTALLSTATE_DEFAULT;
end;

function NeedInstallVC8(): Boolean;
begin
    Result := IsMsiProductInstalled(VCREDIST_X86);
#ifdef Debug
  if Result then
  begin
        MsgBox('Could not find VCREDIST, will install', mbInformation, MB_OK);
    end
    else
    begin
        MsgBox('Found VCREDIST, no need to install', mbInformation, MB_OK);
    end;
#endif
end;

function InitializeSetup(): Boolean;
var
begin

  // Check for prerequisites
    Result := CheckDotNetVersions();

    vc8Missing := NeedInstallVC8();

  Result := Result And vc8Missing;
end;

Maar ook al heb ik die versie geinstalleerd op mijn pc en is {9A25302D-30C0-39D9-BD6F-21E6EC160475} aanwezig in mijn registry, het resultaat is altijd dat VCRedist niet is geinstalleerd.

Mijn vraag is dan ook hoe kan ik het wel juist detecteren?

Mijn tweede vraag is, als de detectie werkt moet de VC++ installer gestart worden onder een Admin-account. Hoe kan ik het commando 'Run As' uitvoeren en zo het standaard Windows inlogscherm tonen?

[Edit:]
Ik heb wat messageboxen toegevoegd en nog meer gegoogled en nu blijkt dat MsiQueryProductState(ProductId) INSTALLSTATE_INVALIDARG terug geeft.
Maar ik kan niet vinden hoe ik het dan moet doen.

[ Voor 5% gewijzigd door Verwijderd op 23-04-2010 12:09 ]

[urk_forever]

Als ik hier kijk zie ik dat diegene de dll import als volgt gedaan heeft:

Delphi:

function MsiQueryProductState(szProduct: String): Integer;
external '[e-mail] stdcall';

Let vooral op het laatste 'stdcall'. Misschien helpt het als je dat op die manier aanroept?

[Verwijderd]

urk_forever schreef op vrijdag 23 april 2010 @ 14:46:
Als ik hier kijk zie ik dat diegene de dll import als volgt gedaan heeft:

Delphi:

function MsiQueryProductState(szProduct: String): Integer;
external '[e-mail] stdcall';

Let vooral op het laatste 'stdcall'. Misschien helpt het als je dat op die manier aanroept?

die stdcall is zeker van belang, anders stuur je gewoon een pascal string (en wat voor een dat dan is is afhankelijk van je pascal/delphi versie.

[Verwijderd]

Ik heb het met stdcall geprobeerd, maar het resultaat is hetzelfde. Ik blijf -2 (INSTALLSTATE_INVALIDARG) terug krijgen.
Ook als ik de installatie uitvoer als dezelfde gebruiker (met admin rechten) die de VC++ Redist. heeft geinstalleerd.

[Verwijderd]

Hier werkt het prima (Delphi 7),
denk dat er wat met je strings misgaat.

Welke pascal compiler gebruik je ?

[Verwijderd]

Ik gebruik ISTool 5.3.0.1 en INNOSetup 5.3.9 (laatste versie).
Ik kan niet zien welke Pascal compiler zij gebruiken.

Er werd me net nog een andere optie aangeboden.
Via RegOpenKeyEx de waarde uitlezen.
Dat ga ik zodadelijk proberen.

[Verwijderd]

ah, dat is pascal script of zoiets
hier staat een en ander (lees de replies op de fp):
http://stackoverflow.com/...h-parameter-in-inno-setup

je zou dus met Pchar moeten proberen ipv String.

[The Fox NL]

Ik ken Pascal script niet echt, maar zou deze werken?

Delphi:

function MsiQueryProductState(const ProductCode: string): integer;
external '[e-mail] stdcall';

of

Delphi:

function MsiQueryProductState(const ProductCode: PAnsiChar): integer;
external '[e-mail] stdcall';

[Verwijderd]

Dank allen!
Het is gelukt. Met PChar wil het niet, dan geeft de compiler een foutmelding maar met PAnsiChar werkt het wel.

De werkende code is:

Delphi:

function MsiQueryProductState(ProductCode: PAnsiChar): Integer;
external '[e-mail] stdcall';

Overigens werkt het ook met de reg key opvragen:

Delphi:

Installed: cardinal;
RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + ProductId, 'WindowsInstaller', Installed);

Installed is 1 als VC++ al is geinstalleerd en anders 0

Ik zit nu alleen nog met het aanroepen van de VC++ installer als een andere gebruiker.
Ik gebruik deze regel voor de .NET installers:

Delphi:

ShellExec('open', DOTNETInstaller, '', '', SW_SHOW, ewNoWait, ErrorCode);

Maar de VC++ installer heeft admin rechten nodig.

Iemand een idee?

[urk_forever]

Krijg je niet automatisch een UAC melding als je die regel uit voert voor de Admin rechten?

[Verwijderd]

Ik krijg een melding van de VC++ installer dat die admin rechten nodig heeft. Vervolgens kan er alleen op OK worden geklikt en moet de gebruiker de hele installer opnieuw starten, nu met admin rechten.
De VC++ installer zit nl. in mijn eigen installer.

[ZaZ]

Heeft je eigen installer admin rechten? Dan moet je waarschijnlijk nog de runascurrentuser flag toevoegen.
Op een of andere manier inherit ie dat niet in alle gevallen standaard.

[Verwijderd]

Ik wil juist niet dat mijn installer admin rechten nodig heeft. Dat heeft die ook niet nodig, alleen als de VC++ geinstalleerd moet worden.
In mijn install script heb ik aangegeven dat poweruser rechten voldoende zijn.
Ik ben nu bezig om de check op VC++ uit te voeren in de PrepareToInstall, zodat ik eerder kan aangeven dat de gebruiker mijn installer opnieuw moet starten met admin rechten.
Als dat werkt verwijder ik de VC++ installer uit de Run sectie.

[alienfruit]

Het is van de maker van Delphi Prism (eerder bekend als Chrome) en je kan meer informatie vinden op:
http://www.remobjects.com/ps.aspx