in reply to Re^2: How to find GUID of Typelibrary for a given OLE Object?
in thread How to find GUID of Typelibrary for a given OLE Object?
This is the PROGID, which doesn't appear to be returned by Win32::OLE. However you could cheat and add the following to the previous code:
sub ApplicationTypeLib { my $typelib = shift; $typelib =~ s/\.Application//; for my $lib (@Library) { return @$lib if($lib->[1] =~ /$typelib/); } return (); }
--
Barbie | Birmingham Perl Mongers user group | http://birmingham.pm.org/
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: How to find GUID of Typelibrary for a given OLE Object?
by Anonymous Monk on Mar 31, 2005 at 09:08 UTC | |
by abhinavvaid (Acolyte) on Apr 01, 2005 at 10:46 UTC |
In Section
Seekers of Perl Wisdom