 |  |
| |
This module allows you to create and manipulate Windows shortcut files (.lnk files) through Perl. The methods and properties of this module apply to shortcut objects created by new:
use Win32::Shortcut; $link = Win32::Shortcut->new( );
This creates the shortcut object $link, on which you can set properties and save into a file. If you supply a filename as an argument to new, the file will be loaded into the shortcut object.
The object can also be accessed as if it was a normal hash reference. The following properties (hash keys) are available:
$link->{'File'}
$link->{'Path'}
$link->{'ShortPath'}
$link->{'WorkingDirectory'}
$link->{'Arguments'}
$link->{'Description'}
$link->{'ShowCmd'}
$link->{'Hotkey'}
$link->{'IconLocation'}
$link->{'IconNumber'}See Section 22.18.1, "Shortcut Properties" for a description of each property.
The following example assumes you have a shortcut file named test.lnk in your current directory. This simple script will tell you where this shortcut points to:
use Win32::Shortcut;
$link=new Win32::Shortcut( );
$link->Load("test.lnk");
print "Shortcut to: $link->{'Path'} $link->{'Arguments'} \n";
$link->Close( );But you can also modify its values:
use Win32::Shortcut;
$link=new Win32::Shortcut( );
$link->Load("test.lnk");
$link->{'Path'}=~s/C:/D:/i; # Move the target from C: to D:
$link->{'ShowCmd'}=SW_NORMAL; # Runs in a normal windowThe methods provided by Win32::Shortcut are as follows.
| new |
new Win32::Shortcut [file]
Creates a new shortcut object. If a filename is passed in file, automatically Load s this file also. Returns the object created, or undef on error.
| Close |
$link->Close( )
Closes a shortcut object. It is not strictly required to close the objects you created, since the Win32::Shortcut objects are automatically closed when the program ends (or when you otherwise destroy such an object).
Also note that a shortcut is not automatically saved when it is closed, even if you modified it. You have to call Save in order to apply modifications to a shortcut file.
| Load |
$link->Load(file)
Loads the content of the shortcut file named file in a shortcut object and fills the properties of the object with its values. Returns undef on error, or true if everything was successful.
| Resolve |
$link->Resolve([flag])
Attempts to automatically resolve a shortcut and returns the resolved path, or undef on error; if there is no resolution, the path is returned unchanged. Note that the path is automatically updated in the Path property of the shortcut.
By default, this method acts quietly, but if you pass a value of 0 in the flagparameter, it will eventually post a dialog box prompting the user for more information. For example:
# If the target doesn't exist...
if(! -f $link->Path) {
# Save the actual target for comparison
$oldpath = $link->Path;
# Try to resolve it (with dialog box)
$newpath = $link->Resolve(0);
die "Not resolved..." if $newpath == $oldpath;
}| Save |
$link->Save([file])
Saves the content of the shortcut object into the file named file. If file is omitted, the filename is taken from the File property of the object (which, if not changed, is the name of the last Load ed file).
If no file was loaded, and the File property doesn't contain a valid filename, the method returns undef, which is also returned on error. A true value is returned if everything was successful.
| Set |
$link->Set(path, arguments, workingdirectory, description, showcmd, hotkey, iconlocation, iconnumber) |
Sets all the properties of the shortcut object with a single command. This method is supplied for convenience only; you can also set these values by changing the values of the properties. For example:
$link->Set("C:\PERL5\BIN\PERL.EXE",
"-v",
"C:\PERL5\BIN",
"Prints out the version of Perl",
SW_SHOWMAXIMIZED,
hex('0x0337'),
"C:\WINDOWS\SYSTEM\COOL.DLL",
1);This is the same as:
$link->Path("C:\PERL5\BIN\PERL.EXE");
$link->Arguments("-v");
$link->WorkingDirectory("C:\PERL5\BIN");
$link->Description("Prints out the version of Perl");
$link->ShowCmd(SW_SHOWMAXIMIZED);
$link->Hotkey(hex('0x0337'));
$link->IconLocation("C:\WINDOWS\SYSTEM\COOL.DLL");
$link->IconNumber(1);</PRE>The properties of a shortcut object can be accessed as:
$link->{'property'}For example, assuming that you have created a shortcut object with:
$link=new Win32::Shortcut( );
you can see its description with:
print $link->{'Description'};You can, of course, also set it like this:
$link->{'Description'}="This is a description";The shortcut properties also have corresponding methods that can also set or read their values.
The properties of a shortcut reflect the content of the Shortcut Properties dialog box, which can be obtained by right-clicking on a shortcut file in the Windows 95 (or NT 4.0) Explorer and choosing "Properties." Shortcut properties are:
|
Value |
Meaning |
Constant |
|---|---|---|
|
1 |
Normal window |
SW_SHOWNORMAL |
|
3 |
Maximized |
SW_SHOWMAXIMIZED |
|
7 |
Minimized |
SW_SHOWMINNOACTIVE |
|  | |
| 22.17. Win32::Service |  | 22.19. Win32 Extensions |
Copyright © 2002 O'Reilly & Associates. All rights reserved.