⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 jwashlguid.pas

📁 比较全面的win32api开发包
💻 PAS
📖 第 1 页 / 共 3 页
字号:
{******************************************************************************}
{                                                       	               }
{ Shell GUID definitions API interface Unit for Object Pascal                  }
{                                                       	               }
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
{ Corporation. All Rights Reserved.                                            }
{ 								               }
{ The original file is: shlguid.h, released November 2002. The original Pascal }
{ code is: JwaShlGuid.pas, released April 2002. The initial developer of the   }
{ Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
{                                                                              }
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
{ Marcel van Brakel. All Rights Reserved.                                      }
{ 								               }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
{								               }
{ You may retrieve the latest version of this file at the Project JEDI home    }
{ page, located at http://delphi-jedi.org or my personal homepage located at   }
{ http://members.chello.nl/m.vanbrakel2                                        }
{								               }
{ The contents of this file are used with permission, subject to the Mozilla   }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at      }
{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
{                                                                              }
{ Software distributed under the License is distributed on an "AS IS" basis,   }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License.    }
{                                                                              }
{ Alternatively, the contents of this file may be used under the terms of the  }
{ GNU Lesser General Public License (the  "LGPL License"), in which case the   }
{ provisions of the LGPL License are applicable instead of those above.        }
{ If you wish to allow use of your version of this file only under the terms   }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting  the provisions above and  }
{ replace  them with the notice and other provisions required by the LGPL      }
{ License.  If you do not delete the provisions above, a recipient may use     }
{ your version of this file under either the MPL or the LGPL License.          }
{ 								               }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{ 								               }
{******************************************************************************}

unit JwaShlGuid;

{$WEAKPACKAGEUNIT}

{$HPPEMIT ''}
{$HPPEMIT '#include "shlguid.h"'}
{$HPPEMIT ''}

{$I WINDEFINES.INC}

interface

//#define DEFINE_SHLGUID(name, l, w1, w2) DEFINE_GUID(name, l, w1, w2, 0xC0,0,0,0,0,0,0,0x46)

const
  CLSID_ShellDesktop: TGUID = (D1:$00021400; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46)); // 00021400-0000-0000-C000-0000000000));
  {$EXTERNALSYM CLSID_ShellDesktop}
  CLSID_ShellLink: TGUID = (D1:$00021401; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46)); // 00021401-0000-0000-C000-0000000000));
  {$EXTERNALSYM CLSID_ShellLink}

  CLSID_NetworkPlaces: TGUID = (D1:$208D2C60; D2:$3AEA; D3:$1069; D4:($A2,$D7,$08,$00,$2B,$30,$30,$9D));//208D2C60-3AEA-1069-A2D7-08002B3030));
  {$EXTERNALSYM CLSID_NetworkPlaces}
  CLSID_NetworkDomain: TGUID = (D1:$46e06680; D2:$4bf0; D3:$11d1; D4:($83,$ee,$00,$a0,$c9,$0d,$c8,$49));//46e06680-4bf0-11d1-83ee-00a0c90dc8));
  {$EXTERNALSYM CLSID_NetworkDomain}
  CLSID_NetworkServer: TGUID = (D1:$c0542a90; D2:$4bf0; D3:$11d1; D4:($83,$ee,$00,$a0,$c9,$0d,$c8,$49));//c0542a90-4bf0-11d1-83ee-00a0c90dc8));
  {$EXTERNALSYM CLSID_NetworkServer}
  CLSID_NetworkShare: TGUID = (D1:$54a754c0; D2:$4bf0; D3:$11d1; D4:($83,$ee,$00,$a0,$c9,$0d,$c8,$49));//54a754c0-4bf1-11d1-83ee-00a0c90dc8));
  {$EXTERNALSYM CLSID_NetworkShare}
  CLSID_MyComputer: TGUID = (D1:$20D04FE0; D2:$3AEA; D3:$1069; D4:($A2,$D8,$08,$00,$2B,$30,$30,$9D));//20D04FE0-3AEA-1069-A2D8-08002B3030));
  {$EXTERNALSYM CLSID_MyComputer}
  CLSID_Internet: TGUID = (D1:$871C5380; D2:$42A0; D3:$1069; D4:($A2,$EA,$08,$00,$2B,$30,$30,$9D));//871C5380-42A0-1069-A2EA-08002B3030));
  {$EXTERNALSYM CLSID_Internet}
  CLSID_ShellFSFolder: TGUID = (D1:$F3364BA0; D2:$65B9; D3:$11CE; D4:($A9,$BA,$00,$AA,$00,$4A,$E8,$37));//F3364BA0-65B9-11CE-A9BA-00AA004AE8));
  {$EXTERNALSYM CLSID_ShellFSFolder}
  CLSID_RecycleBin: TGUID = (D1:$645FF040; D2:$5081; D3:$101B; D4:($9F,$08,$00,$AA,$00,$2F,$95,$4E));//645FF040-5081-101B-9F08-00AA002F95));
  {$EXTERNALSYM CLSID_RecycleBin}
  CLSID_ControlPanel: TGUID = (D1:$21EC2020; D2:$3AEA; D3:$1069; D4:($A2,$DD,$08,$00,$2B,$30,$30,$9D));//21EC2020-3AEA-1069-A2DD-08002B3030));
  {$EXTERNALSYM CLSID_ControlPanel}
  CLSID_Printers: TGUID = (D1:$2227A280; D2:$3AEA; D3:$1069; D4:($A2,$DE,$08,$00,$2B,$30,$30,$9D));
  {$EXTERNALSYM CLSID_Printers}
  CLSID_MyDocuments: TGUID = (D1:$450d8fba; D2:$ad25; D3:$11d0; D4:($98,$a8,$08,$00,$36,$1b,$11,$03));//450D8FBA-AD25-11D0-98A8-0800361B11));
  {$EXTERNALSYM CLSID_MyDocuments}

// string version of above CLSIDs
// useful for doing psfDesktop->ParseDisplayName( L"::" L STR_MYDOCS_CLSID, ...);

  STR_MYDOCS_CLSID = '{450D8FBA-AD25-11D0-98A8-0800361B1103}';
  {$EXTERNALSYM STR_MYDOCS_CLSID}

//#if (_WIN32_IE >= 0x0400)

  CATID_BrowsableShellExt: TGUID = (D1:$00021490; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CATID_BrowsableShellExt}
  CATID_BrowseInPlace: TGUID = (D1:$00021491; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CATID_BrowseInPlace}
  CATID_DeskBand: TGUID = (D1:$00021492; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CATID_DeskBand}
  CATID_InfoBand: TGUID = (D1:$00021493; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CATID_InfoBand}
  CATID_CommBand: TGUID = (D1:$00021494; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CATID_CommBand}

//#endif

  PSGUID_INTERNETSHORTCUT: TGUID = (D1:$000214A0; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM PSGUID_INTERNETSHORTCUT}
  FMTID_Intshcut: TGUID = (D1:$000214A0; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM FMTID_Intshcut}

  PSGUID_INTERNETSITE: TGUID = (D1:$000214A1; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM PSGUID_INTERNETSITE}
  FMTID_InternetSite: TGUID = (D1:$000214A1; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM FMTID_InternetSite}

  CGID_Explorer: TGUID = (D1:$000214D0; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CGID_Explorer}
  CGID_ShellDocView: TGUID = (D1:$000214D1; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CGID_ShellDocView}

//#if (_WIN32_IE >= 0x0400)

  CGID_ShellServiceObject: TGUID = (D1:$000214D2; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CGID_ShellServiceObject}
  CGID_ExplorerBarDoc: TGUID = (D1:$000214D3; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM CGID_ExplorerBarDoc}

//#endif

  IID_INewShortcutHookA: TGUID = (D1:$000214E1; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_INewShortcutHookA}
  IID_IShellBrowser: TGUID = (D1:$000214E2; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellBrowser}
  IID_IShellView: TGUID = (D1:$000214E3; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellView}
  IID_IContextMenu: TGUID = (D1:$000214E4; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IContextMenu}
  IID_IShellIcon: TGUID = (D1:$000214E5; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellIcon}
  IID_IShellFolder: TGUID = (D1:$000214E6; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellFolder}
  IID_IShellExtInit: TGUID = (D1:$000214E8; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellExtInit}
  IID_IShellPropSheetExt: TGUID = (D1:$000214E9; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellPropSheetExt}
  IID_IPersistFolder: TGUID = (D1:$000214EA; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IPersistFolder}
  IID_IExtractIconA: TGUID = (D1:$000214EB; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IExtractIconA}
  IID_IShellDetails: TGUID = (D1:$000214EC; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellDetails}
  IID_IDelayedRelease: TGUID = (D1:$000214ED; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IDelayedRelease}
  IID_IShellLinkA: TGUID = (D1:$000214EE; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellLinkA}
  IID_IShellCopyHookA: TGUID = (D1:$000214EF; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellCopyHookA}
  IID_IFileViewerA: TGUID = (D1:$000214F0; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IFileViewerA}
  IID_ICommDlgBrowser: TGUID = (D1:$000214F1; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_ICommDlgBrowser}
  IID_IEnumIDList: TGUID = (D1:$000214F2; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IEnumIDList}
  IID_IFileViewerSite: TGUID = (D1:$000214F3; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IFileViewerSite}
  IID_IContextMenu2: TGUID = (D1:$000214F4; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IContextMenu2}
  IID_IShellExecuteHookA: TGUID = (D1:$000214F5; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellExecuteHookA}
  IID_IPropSheetPage: TGUID = (D1:$000214F6; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IPropSheetPage}
  IID_INewShortcutHookW: TGUID = (D1:$000214F7; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_INewShortcutHookW}
  IID_IFileViewerW: TGUID = (D1:$000214F8; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IFileViewerW}
  IID_IShellLinkW: TGUID = (D1:$000214F9; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellLinkW}
  IID_IExtractIconW: TGUID = (D1:$000214FA; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IExtractIconW}
  IID_IShellExecuteHookW: TGUID = (D1:$000214FB; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellExecuteHookW}
  IID_IShellCopyHookW: TGUID = (D1:$000214FC; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IShellCopyHookW}

  IID_IRemoteComputer: TGUID = (D1:$000214FE; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IRemoteComputer}

//#define IID_ICopyHookA                  IID_IShellCopyHookA

  IID_ICopyHookA: TGUID = (D1:$000214EF; D2:$0000; D3:$0000; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_ICopyHookA}

//#define IID_ICopyHookW                  IID_IShellCopyHookW

  IID_ICopyHookW: TGUID = (D1:$000214FC; D2:$0000; D3:$0000; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_ICopyHookW}

//#define SID_LinkSite    IID_IShellLinkW     // IServiceProvider::QueryService() access the link object that is defering to you

  SID_LinkSite: TGUID = (D1:$000214F9; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM SID_LinkSite}


//#if (_WIN32_IE >= 0x0400)

  IID_IQueryInfo: TGUID = (D1:$00021500; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));
  {$EXTERNALSYM IID_IQueryInfo}

//#endif

  IID_IBriefcaseStg: TGUID = (D1:$8BCE1FA1; D2:$0921; D3:$101B; D4:($B1, $FF, $00, $DD, $01, $0C, $CC, $48));
  {$EXTERNALSYM IID_IBriefcaseStg}
  IID_IShellView2: TGUID = (D1:$88E39E80; D2:$3578; D3:$11CF; D4:($AE, $69, $08, $00, $2B, $2E, $12, $62));
  {$EXTERNALSYM IID_IShellView2}
  IID_IShellLinkDataList: TGUID = (D1:$45e2b4ae; D2:$b1c3; D3:$11d0; D4:($b9, $2f, $0, $a0, $c9, $3, $12, $e1));
  {$EXTERNALSYM IID_IShellLinkDataList}
//#if (_WIN32_IE >= 0x0500)
  IID_IResolveShellLink: TGUID = (D1:$5cd52983; D2:$9449; D3:$11d2; D4:($96, $3a, $00, $c0, $4f, $79, $ad, $f0));
  {$EXTERNALSYM IID_IResolveShellLink}
//#endif // _WIN32_IE >= 0x0500

//#if (_WIN32_IE >= 0x0400)

  IID_IURLSearchHook: TGUID = (D1:$AC60F6A0; D2:$0FD9; D3:$11D0; D4:($99, $CB, $00, $C0, $4F, $D6, $44, $97));
  {$EXTERNALSYM IID_IURLSearchHook}
  IID_ISearchContext: TGUID = (D1:$09F656A2; D2:$41AF; D3:$480C; D4:($88, $F7, $16, $CC, $0D, $16, $46, $15));
  {$EXTERNALSYM IID_ISearchContext}
  IID_IURLSearchHook2: TGUID = (D1:$5ee44da4; D2:$6d32; D3:$46e3; D4:($86, $bc, $07, $54, $0d, $ed, $d0, $e0));
  {$EXTERNALSYM IID_IURLSearchHook2}
  IID_IDelegateFolder: TGUID = (D1:$ADD8BA80; D2:$002B; D3:$11D0; D4:($8F, $0F, $00, $C0, $4F, $D7, $D0, $62));
  {$EXTERNALSYM IID_IDelegateFolder}

//#if (_WIN32_IE >= 0x0500)

// CLSID_FolderShortcut {0AFACED1-E828-11D1-9187-B532F1E9575D}

  CLSID_FolderShortcut: TGUID = (D1:$0AFACED1; D2:$E828; D3:$11D1; D4:($91, $87, $B5, $32, $F1, $E9, $57, $5D));
  {$EXTERNALSYM CLSID_FolderShortcut}

// CLSID_StorageFolder {E773F1AF-3A65-4866-857D-846FC9C4598A}

  CLSID_StgFolder: TGUID = (D1:$E773F1AF; D2:$3A65; D3:$4866; D4:($85, $7D, $84, $6F, $C9, $C4, $59, $8A));
  {$EXTERNALSYM CLSID_StgFolder}

//#endif

  IID_IInputObject: TGUID = (D1:$68284faa; D2:$6a48; D3:$11d0; D4:($8c, $78, $0, $c0, $4f, $d9, $18, $b4));
  {$EXTERNALSYM IID_IInputObject}
  IID_IInputObjectSite: TGUID = (D1:$f1db8392; D2:$7331; D3:$11d0; D4:($8c, $99, $0, $a0, $c9, $2d, $bf, $e8));
  {$EXTERNALSYM IID_IInputObjectSite}

  IID_IDockingWindowSite: TGUID = (D1:$2a342fc2; D2:$7b26; D3:$11d0; D4:($8c, $a9, $0, $a0, $c9, $2d, $bf, $e8));
  {$EXTERNALSYM IID_IDockingWindowSite}
  IID_IDockingWindowFrame: TGUID = (D1:$47d2657a; D2:$7b27; D3:$11d0; D4:($8c, $a9, $0, $a0, $c9, $2d, $bf, $e8));
  {$EXTERNALSYM IID_IDockingWindowFrame}

  IID_IShellIconOverlay: TGUID = (D1:$7D688A70; D2:$C613; D3:$11D0; D4:($99, $9B, $00, $C0, $4F, $D6, $55, $E1));
  {$EXTERNALSYM IID_IShellIconOverlay}
  IID_IShellIconOverlayIdentifier: TGUID = (D1:$0C6C4200; D2:$C589; D3:$11D0; D4:($99, $9A, $00, $C0, $4F, $D6, $55, $E1));
  {$EXTERNALSYM IID_IShellIconOverlayIdentifier}

// {10339516-2894-11d2-9039-00C04F8EEB3E}

  IID_ICommDlgBrowser2: TGUID = (D1:$10339516; D2:$2894; D3:$11d2; D4:($90, $39, $0, $c0, $4f, $8e, $eb, $3e));
  {$EXTERNALSYM IID_ICommDlgBrowser2}

// 2047E320-F2A9-11CE-AE65-08002B2E1262

  IID_IShellFolderViewCB: TGUID = (D1:$2047E320; D2:$F2A9; D3:$11CE; D4:($AE, $65, $08, $00, $2B, $2E, $12, $62));
  {$EXTERNALSYM IID_IShellFolderViewCB}

//#define SID_ShellFolderViewCB IID_IShellFolderViewCB

  SID_ShellFolderViewCB: TGUID = (D1:$2047E320; D2:$F2A9; D3:$11CE; D4:($AE, $65, $08, $00, $2B, $2E, $12, $62));
  {$EXTERNALSYM SID_ShellFolderViewCB}

// {CEF04FDF-FE72-11d2-87A5-00C04F6837CF}

  IID_IPersistFolder3: TGUID = (D1:$cef04fdf; D2:$fe72; D3:$11d2; D4:($87, $a5, $0, $c0, $4f, $68, $37, $cf));
  {$EXTERNALSYM IID_IPersistFolder3}

// {63B51F81-C868-11D0-999C-00C04FD655E1}

  CLSID_CFSIconOverlayManager: TGUID = (D1:$63B51F81; D2:$C868; D3:$11D0; D4:($99, $9C, $00, $C0, $4F, $D6, $55, $E1));
  {$EXTERNALSYM CLSID_CFSIconOverlayManager}

// {85788D00-6807-11d0-B810-00C04FD706EC}

  IID_IRunnableTask: TGUID = (D1:$85788d00; D2:$6807; D3:$11d0; D4:($b8, $10, $0, $c0, $4f, $d7, $6, $ec));
  {$EXTERNALSYM IID_IRunnableTask}

// {4ea39266-7211-409f-b622-f63dbd16c533}

  IID_IThumbnailCapture: TGUID = (D1:$4ea39266; D2:$7211; D3:$409f; D4:($b6, $22, $f6, $3d, $bd, $16, $c5, $33));
  {$EXTERNALSYM IID_IThumbnailCapture}

// {BCFCE0A0-EC17-11d0-8D10-00A0C90F2719}

  IID_IContextMenu3: TGUID = (D1:$bcfce0a0; D2:$ec17; D3:$11d0; D4:($8d, $10, $0, $a0, $c9, $f, $27, $19));
  {$EXTERNALSYM IID_IContextMenu3}

//#endif // _WIN32_IE >= 0x0400

//#define SID_SShellBrowser IID_IShellBrowser

  SID_SShellBrowser: TGUID = (D1:$000214E2; D2:$; D3:$; D4:($C0,0,0,0,0,0,0,$46));

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -