WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(;

    HWND hwndOwner, 	
    int nFolder, 	
    LPITEMIDLIST *ppidl	
   );	
 

Parameters

hwndOwner

Handle of the owner window that the client should specify if it displays a dialog box or message box.

nFolder

Value specifying the folder to retrieve the location of. This parameter can be one of the following values:

CSIDL_BITBUCKET	Recycle bin ѕ file system directory containing file objects in the user's recycle bin. The location of this directory is not in the registry; it is marked with the hidden and system attributes to prevent the user from moving or deleting it.
CSIDL_CONTROLS	Control Panel ѕ virtual folder containing icons for the control panel applications.
CSIDL_DESKTOP	Windows desktop ѕ virtual folder at the root of the name space.
CSIDL_DESKTOPDIRECTORY	File system directory used to physically store file objects on the desktop (not to be confused with the desktop folder itself).
CSIDL_DRIVES	My Computer ѕ virtual folder containing everything on the local computer: storage devices, printers, and Control Panel. The folder may also contain mapped network drives.
CSIDL_FONTS	Virtual folder containing fonts.
CSIDL_NETHOOD	File system directory containing objects that appear in the network neighborhood.
CSIDL_NETWORK	Network Neighborhood ѕ virtual folder representing the top level of the network hierarchy.
CSIDL_PERSONAL	File system directory that serves as a common respository for documents.
CSIDL_PRINTERS	Printers folder ѕ virtual folder containing installed printers.
CSIDL_PROGRAMS	File system directory that contains the user's program groups (which are also file system directories).
CSIDL_RECENT	File system directory that contains the user's most recently used documents.
CSIDL_SENDTO	File system directory that contains Send To menu items.
CSIDL_STARTMENU	File system directory containing Start menu items.
CSIDL_STARTUP	File system directory that corresponds to the user's Startup program group.
CSIDL_TEMPLATES	File system directory that serves as a common repository for document templates.
 

ppidl

Address that receives a pointer to an item identifier list specifying the folder's location relative to the root of the name space (the desktop).

 

Return Values

Returns NOERROR if successful or an OLE-defined error result otherwise.

Получаем информацию о ярлыке 
--------------------------------------------------------------------------------
 uses  
  ShlObj, 
  ComObj, 
  ActiveX, 
  CommCtrl; 

 type  
  PShellLinkInfoStruct = ^TShellLinkInfoStruct; 
  TShellLinkInfoStruct =  record  
    FullPathAndNameOfLinkFile:  array [ 0 ..MAX_PATH]  of  Char; 
    FullPathAndNameOfFileToExecute:  array [ 0 ..MAX_PATH]  of  Char; 
    ParamStringsOfFileToExecute:  array [ 0 ..MAX_PATH]  of  Char; 
    FullPathAndNameOfWorkingDirectroy:  array [ 0 ..MAX_PATH]  of  Char; 
    Description:  array [ 0 ..MAX_PATH]  of  Char; 
    FullPathAndNameOfFileContiningIcon:  array [ 0 ..MAX_PATH]  of  Char; 
    IconIndex: Integer; 
    HotKey: Word; 
    ShowCommand: Integer; 
    FindData: TWIN32FINDDATA; 
   end ; 

 procedure  GetLinkInfo(lpShellLinkInfoStruct: PShellLinkInfoStruct); 
 var  
  ShellLink: IShellLink; 
  PersistFile: IPersistFile; 
  AnObj: IUnknown; 
 begin  
   // access to the two interfaces of the object  
  AnObj       := CreateComObject(CLSID_ShellLink); 
  ShellLink   := AnObj  as  IShellLink; 
  PersistFile := AnObj  as  IPersistFile; 

   // 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 description string for a Shell link object.  
    GetDescription(lpShellLinkInfoStruct^.Description, 
      SizeOf(lpShellLinkInfoStruct^.Description)); 

     // Retrieves the command-line arguments associated with a Shell link object.  
    GetArguments(lpShellLinkInfoStruct^.ParamStringsOfFileToExecute, 
      SizeOf(lpShellLinkInfoStruct^.ParamStringsOfFileToExecute)); 

     // 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 ; 

 procedure  TForm1.Button1Click(Sender: TObject); 
 const  
  br = # 13 # 10 ; 
 var  
  LinkInfo: TShellLinkInfoStruct; 
  s:  string ; 
 begin  
  FillChar(LinkInfo, SizeOf(LinkInfo), # 0 ); 
  LinkInfo.FullPathAndNameOfLinkFile := 'C:\WINNT\Profiles\user\Desktop\FileName.lnk'; 
  GetLinkInfo(@LinkInfo); 
   with  LinkInfo  do  
    s := FullPathAndNameOfLinkFile + br + 
      FullPathAndNameOfFileToExecute + br + 
      ParamStringsOfFileToExecute + br + 
      FullPathAndNameOfWorkingDirectroy + br + 
      Description + br + 
      FullPathAndNameOfFileContiningIcon + br + 
      IntToStr(IconIndex) + br + 
      IntToStr(LoByte(HotKey)) + br + 
      IntToStr(HiByte(HotKey)) + br + 
      IntToStr(ShowCommand) + br + 
      FindData.cFileName + br + 
      FindData.cAlternateFileName; 
  Memo1.Lines.Add(s); 
 end ;