Is it necessary to use a custom action to do this? Couldn't you do something
like this instead?
<Directory Id="TARGETDIR" Name="SourceDir">
<Directory Id="ProgramFilesFolder">
<Directory Id="INSTALLDIR" Name="WixSample">
<Component Id="DefaultComponent" Guid="PUT-GUID-HERE">
<CreateFolder />
</Component>
</Directory>
</Directory>
</Directory>
<Property Id="INSTALLDIR">
<RegistrySearch Id="InstallDirSearch"
Type="raw"
Root="HKCU"
Key="Software\Test\Resources"
Name="InstallDirShort" />
</Property>
######################################
$_='^#(/||/@[EMAIL PROTECTED]@:^[-['^";@@@\\>])@.".
"{)/];)^{";$,+=(++$,);$_.=">&$,";`$_`;
-----Original Message-----
From: Romeo Salayo Jr. [mailto:[EMAIL PROTECTED]
Sent: Monday, October 27, 2008 5:45 AM
To: [email protected]
Subject: Re: [WiX-users] Windows Server 2003 R2 x64 Error
I just found the cause, it was the TerminalServerAware="yes", however how can
I install the package in Vista? It needs an elevated privileges. Is this
possible? A terminal server awareness and a elevated privileges?
Romeo Salayo Jr. wrote:
>
> Hi,
>
> I created a installer package that will be installed in almost all
> platform (XP, XP x64, 2003, 2003 x64, Vista, and Vista x64). The problem
> is, I have a CA that works fine in XP, VISTA while in 2003 R2 x64, it
> shows an error message "Invalid root in registry key HKCU\...\InstallDir",
> but this CA works fine in other OS,
>
> What seems to be the problem? My CA looks like:
>
> Function CreateShortInstallDir()
> On Error Resume Next
> Dim wsc, fso, installdir, val
> set wsc = CreateObject( "WScript.Shell" )
> Set fso = CreateObject( "Scripting.FileSystemObject" )
>
> ' Get InstallDir
> installdir = wsc.RegRead(
> "HKEY_CURRENT_USER\Software\Test\Resources\InstallDir" )
>
> ' Check if exists otherwise create it
> If Not fso.FolderExists( installdir ) Then fso.CreateFolder(
> installdir )
>
> ' Generate ShortPath
> Set val = fso.GetFolder( installdir )
>
> ' Write ShortPath to registry
> wsc.RegWrite
> "HKEY_CURRENT_USER\Software\Test\Resources\InstallDirShort",
> val.ShortPath, "REG_SZ"
> End Function
>
> <CustomAction Id="CreateShortInstallDir" BinaryKey="CustomScripts"
> VBScriptCall="CreateShortInstallDir" Execute="deferred" Return="check"
> Impersonate="no" />
>
> <Custom Action="CreateShortInstallDir" After="SetRegistryValues">Not
> Installed</Custom>
>
> Thanks in advance!
>
> Best Regards,
> Romeo
>
--
View this message in context:
http://n2.nabble.com/Windows-Server-2003-R2-x64-Error-tp1381866p1382140.html
Sent from the wix-users mailing list archive at Nabble.com.
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
WiX-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wix-users
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
WiX-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wix-users
