diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-01-14 20:44:59 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-01-14 20:44:59 +0000 |
| commit | 37cd6b7c8fa07e96389f335bad7b58be866d9108 (patch) | |
| tree | ffab83cf87808d8eb6f48d30708eb95a6c395900 /packages/winunits-base | |
| parent | 13ba393cfb3bb1ab182ac49a81294b27ec8cb27f (diff) | |
| download | fpc-37cd6b7c8fa07e96389f335bad7b58be866d9108.tar.gz | |
* ishellextinit
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14647 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/winunits-base')
| -rw-r--r-- | packages/winunits-base/src/shlobj.pp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/packages/winunits-base/src/shlobj.pp b/packages/winunits-base/src/shlobj.pp index 1c639a892b..f3568983c7 100644 --- a/packages/winunits-base/src/shlobj.pp +++ b/packages/winunits-base/src/shlobj.pp @@ -22,6 +22,7 @@ uses windows,activex,shellapi,commctrl; Const + IID_IShellExtInit ='{000214E8-0000-0000-C000-000000000046}'; IID_IShellFolder : TGUID ='{000214E6-0000-0000-C000-000000000046}'; IID_IEnumList : TGUID ='{000214F2-0000-0000-C000-000000000046}'; IID_IAutoComplete : TGUID ='{00bb2762-6a77-11d0-a535-00c04fd7d062}'; @@ -2121,6 +2122,12 @@ Type end; + + IShellExtInit = Interface(IUnknown) + [IID_IShellExtInit] + function Initialize(pidlfolder: LPCITEMIDLIST; pdtobj : IDataObject;hkeyProgID : HKEY):HResult; stdcall; + end; + function SHGetMalloc(out ppmalloc: IMalloc):HResult;StdCall; external 'shell32' name 'SHGetMalloc'; function SHGetDesktopFolder(out ppshf:IShellFolder):HResult;StdCall; external 'shell32' name 'SHGetDesktopFolder'; |