// Opens the specified file and initializes an object from the file contents.PersistFile.Load(PWChar(WideString(lpShellLinkInfoStruct^.FullPathAndNameOfLinkFile)), 0);with ShellLink do
begin// Retrieves the path and file name of a Shell link object.GetPath(lpShellLinkInfoStruct^.FullPathAndNameOfFileToExecute,
SizeOf(lpShellLinkInfoStruct^.FullPathAndNameOfLinkFile),
lpShellLinkInfoStruct^.FindData,
SLGP_UNCPRIORITY);

// Retrieves the name of the working directory for a Shell link object.GetWorkingDirectory(lpShellLinkInfoStruct^.FullPathAndNameOfWorkingDirectroy,
SizeOf(lpShellLinkInfoStruct^.FullPathAndNameOfWorkingDirectroy));

// Retrieves the location (path and index) of the icon for a Shell link object.GetIconLocation(lpShellLinkInfoStruct^.FullPathAndNameOfFileContiningIcon,
SizeOf(lpShellLinkInfoStruct^.FullPathAndNameOfFileContiningIcon),
lpShellLinkInfoStruct^.IconIndex);

// Retrieves the hot key for a Shell link object.GetHotKey(lpShellLinkInfoStruct^.HotKey);

// Retrieves the show (SW_) command for a Shell link object.GetShowCmd(lpShellLinkInfoStruct^.ShowCommand);end;end;