|
|
|
| | | | | | | | |  |
| 
| Code source : unité LRJ_ShellUtils | |
| |
| | |
|
Description : contient des déclarations et l'importation dynamique d'un
certain nombre de fonctions de Shell32.dll. Contient toutes des valeurs connues de
CSIDL_xxx et de FOLDERID_xxx. Unité de base pour des développements
reposants sur les fonctionnalités du Shell.
Importe les fonctions suivantes :
|
|
CoTaskMemFree
ILClone
ILFree
IShellFolder.GetDisplayNameOf
SHGetDesktopFolder
SHGetFolderLocation
SHGetKnownFolderIDList
SHGetMalloc
SHGetPathFromIDList
SHGetSpecialFolderLocation
SHParseDisplayName
SHSimpleIDListFromPath
|
Utilise les unités : Windows, ActiveX, ShlObj, SysUtils et
LRJ_WindowsPlus.
Version : 1.3 du 03.05.2009
Auteur : Laurent Hède
Copyright : LorenJo
Nombre de lignes : 437
Réalisée sous : Delphi 6
Systèmes compatibles : NT4, 2000, XP, Vista, serveurs
Prix : 71.00 € H.T.
Déclarations publiques de l'unité :
interface
uses
Windows,
ActiveX,
ShlObj,
SysUtils,
LRJ_WindowsPlus;
// Méthodes mixant différentes méthodes pour obtenir le résultat ou non shell. Si rien n'est spécifié => toutes versions
function GetShellVersion: Extended;
function LRJ_GetPIDListFromPath(const APath : string): PItemIDList;
procedure LRJ_PIDListFreeAndNil(var Pidl : PItemIdList);
function LRJ_GetFileNameFromRelativePItemIDList(const AFolder: IShellFolder; const APidl: PItemIDList): string; //shell >=4
function LRJ_GetDisplayNameFromRelativePItemIDList(const AFolder: IShellFolder; const APidl: PItemIDList): string; //shell >=4
procedure LRJ_CoTaskMemFree(var APter: pointer);
//Méthodes Shell
function LRJ_SHGetFolderLocation (const hwndOwner: HWND; const nFolder: Integer; const hToken: THandle; var ppidl: PItemIDList): HResult; //shell >=5
// Nous n'avons pas testé LRJ_SHGetKnownFolderIDList pour le moment - 18.12.2008
function LRJ_SHGetKnownFolderIDList(const rfid: TGUID; const dwFlags: DWORD; const hToken: THandle; var ppidl: PItemIDList): HResult; // shell >=6.0.6000 (vista)
function LRJ_SHGetPathFromIDList(const lpidl : PItemIdList): string; //shell >=4
function LRJ_SHGetSpecialFolderLocation(const hwndOwner: HWND; const nFolder: Integer; var ppidl: PItemIDList): HResult; // 6.0.6000 >= shell >=4
function LRJ_SHParseDisplayName(const Name: string ; const pbc : IBindCtx; var ppidl : PItemIdList; const sfgaoIn : DWORD;
var psfgaoOut : DWORD) : HResult; //shell >=6
function LRJ_PIDListClone(const pidl : PItemIdList) : PItemIdList; //shell >=5
|
|
| |
 | |  |
|
|
