Thanks for the code - it's beautiful :) And it works.
Well, almost. The %INSTALLSTATE_DESC in your code gets initialized as { "INSTALLSTATE_NOTUSED" => "description", ... }, however MsiGetShortcutTarget() return integer. I guess the +INSTALLSTATE_NOTUSED hash init doesn't do what you intended on my machine (AS Perl 5.10.0, MSWin32, osvers=5.00, archname=MSWin32-x86-multi-thread) (I've never seen this technique)
Other improvements can be made to this code I noticed:
- szProduct and szComponent are UUIDs in brackets, so we can define constant for them as well to be 38 chars
- If I understand this correctly, MsiGetComponentPath() returns how successful the execution went (any of Win32/MSI errors; this list, i guess); we supposed to call MsiGetComponentPath() only if it returns success (0).
Usually you get either ERROR_SUCCESS (0) or ERROR_FUNCTION_FAILED (1627). But on Vista I also get 1603 when I try this with c#, though the same code woks fine on XP. Furthermore, on Vista Perl code works just fine where my C# code fails. I probably don't know what I'm doing, but now I know for sure return code isn't limited to ERROR_SUCCESS or ERROR_FUNCTION_FAILED :)
But I do get the path, and that's what I wanted to just quickly do.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.