Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.0.0 ▾
|
{
This file is part of the Free Pascal run time library.
This unit contains the record definition for the Win32 API
Copyright (c) 1999-2002 by Marco van de Voort,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
************************************************************************}
{ leave out unused functions so the unit can be used on win2000 as well }
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
{$PACKRECORDS C}
{$calling stdcall}
{$mode objfpc}
{$ifdef FPC_OS_UNICODE}
{$define UNICODE}
{$endif}
Unit ShellApi;
//+-------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// File: shellapi.h
//
// Header translation by Marco van de Voort for Free Pascal Platform
// SDK dl'ed January 2002
//
//--------------------------------------------------------------------------
Interface
Uses Windows, ActiveX;
{
shellapi.h - SHELL.DLL functions, types, and definitions
Copyright (c) Microsoft Corporation. All rights reserved. }
const
shell32 = 'shell32.dll';
Const
SHGDN_NORMAL = $0000; // default (display purpose)
SHGDN_INFOLDER = $0001; // displayed under a folder (relative)
SHGDN_FOREDITING = $1000; // for in-place editing
SHGDN_FORADDRESSBAR = $4000; // UI friendly parsing name (remove ugly stuff)
SHGDN_FORPARSING = $8000; // parsing name for ParseDisplayName()
SHCONTF_FOLDERS = $0020; // only want folders enumerated (SFGAO_FOLDER)
SHCONTF_NONFOLDERS = $0040; // include non folders
SHCONTF_INCLUDEHIDDEN = $0080; // show items normally hidden
SHCONTF_INIT_ON_FIRST_NEXT = $0100; // allow EnumObject() to return before validating enum
SHCONTF_NETPRINTERSRCH = $0200; // hint that client is looking for printers
SHCONTF_SHAREABLE = $0400; // hint that client is looking sharable resources (remote shares)
SHCONTF_STORAGE = $0800; // include all items with accessible storage and their ancestors
SHCIDS_ALLFIELDS = $80000000;
SHCIDS_CANONICALONLY = $10000000;
SHCIDS_BITMASK = $FFFF0000;
SHCIDS_COLUMNMASK = $0000FFFF;
SFGAO_CANCOPY = DROPEFFECT_COPY; // Objects can be copied (= $1)
SFGAO_CANMOVE = DROPEFFECT_MOVE; // Objects can be moved (= $2)
SFGAO_CANLINK = DROPEFFECT_LINK; // Objects can be linked (= $4)
SFGAO_STORAGE = $00000008; // supports BindToObject(IID_IStorage)
SFGAO_CANRENAME = $00000010; // Objects can be renamed
SFGAO_CANDELETE = $00000020; // Objects can be deleted
SFGAO_HASPROPSHEET = $00000040; // Objects have property sheets
SFGAO_DROPTARGET = $00000100; // Objects are drop target
SFGAO_CAPABILITYMASK = $00000177;
SFGAO_ENCRYPTED = $00002000; // object is encrypted (use alt color)
SFGAO_ISSLOW = $00004000; // 'slow' object
SFGAO_GHOSTED = $00008000; // ghosted icon
SFGAO_LINK = $00010000; // Shortcut (link)
SFGAO_SHARE = $00020000; // shared
SFGAO_READONLY = $00040000; // read-only
SFGAO_HIDDEN = $00080000; // hidden object
SFGAO_DISPLAYATTRMASK = $000FC000;
SFGAO_FILESYSANCESTOR = $10000000; // may contain children with SFGAO_FILESYSTEM
SFGAO_FOLDER = $20000000; // support BindToObject(IID_IShellFolder)
SFGAO_FILESYSTEM = $40000000; // is a win32 file system object (file/folder/root)
SFGAO_HASSUBFOLDER = $80000000; // may contain children with SFGAO_FOLDER
SFGAO_CONTENTSMASK = $80000000;
SFGAO_VALIDATE = $01000000; // invalidate cached information
SFGAO_REMOVABLE = $02000000; // is this removeable media?
SFGAO_COMPRESSED = $04000000; // Object is compressed (use alt color)
SFGAO_BROWSABLE = $08000000; // supports IShellFolder, but only implements CreateViewObject() (non-folder view)
SFGAO_NONENUMERATED = $00100000; // is a non-enumerated object
SFGAO_NEWCONTENT = $00200000; // should show bold in explorer tree
SFGAO_CANMONIKER = $00400000; // defunct
SFGAO_HASSTORAGE = $00400000; // defunct
SFGAO_STREAM = $00400000; // supports BindToObject(IID_IStream)
SFGAO_STORAGEANCESTOR = $00800000; // may contain children with SFGAO_STORAGE or SFGAO_STREAM
SFGAO_STORAGECAPMASK = $70C50008; // for determining storage capabilities, ie for open/save semantics
SHCOLSTATE_TYPE_STR = $1;
SHCOLSTATE_TYPE_INT = $2;
SHCOLSTATE_TYPE_DATE = $3;
SHCOLSTATE_TYPEMASK = $f;
SHCOLSTATE_ONBYDEFAULT = $10;
SHCOLSTATE_SLOW = $20;
SHCOLSTATE_EXTENDED = $40;
SHCOLSTATE_SECONDARYUI = $80;
SHCOLSTATE_HIDDEN = $100;
SHCOLSTATE_PREFER_VARCMP = $200;
GIL_OPENICON = $0001; // allows containers to specify an "open" look
GIL_FORSHELL = $0002; // icon is to be displayed in a ShellFolder
GIL_ASYNC = $0020; // this is an async extract, return E_PENDING
GIL_DEFAULTICON = $0040; // get the default icon location if the final one takes too long to get
GIL_FORSHORTCUT = $0080; // the icon is for a shortcut to the object
// GetIconLocation() return flags
GIL_SIMULATEDOC = $0001; // simulate this document icon for this
GIL_PERINSTANCE = $0002; // icons from this class are per instance (each file has its own)
GIL_PERCLASS = $0004; // icons from this class per class (shared for all files of this type)
GIL_NOTFILENAME = $0008; // location is not a filename, must call ::ExtractIcon
GIL_DONTCACHE = $0010; // this icon should not be cached
// QueryContextMenu uFlags
CMF_NORMAL = $00000000;
CMF_DEFAULTONLY = $00000001;
CMF_VERBSONLY = $00000002;
CMF_EXPLORE = $00000004;
CMF_NOVERBS = $00000008;
CMF_CANRENAME = $00000010;
CMF_NODEFAULT = $00000020;
CMF_INCLUDESTATIC = $00000040;
CMF_EXTENDEDVERBS = $00000100; // rarely used verbs
CMF_RESERVED = $ffff0000; // View specific
// GetCommandString uFlags
GCS_VERBA = $00000000; // canonical verb
GCS_HELPTEXTA = $00000001; // help text (for status bar)
GCS_VALIDATEA = $00000002; // validate command exists
GCS_VERBW = $00000004; // canonical verb (unicode)
GCS_HELPTEXTW = $00000005; // help text (unicode version)
GCS_VALIDATEW = $00000006; // validate command exists (unicode)
GCS_UNICODE = $00000004; // for bit testing - Unicode string
{$ifdef UNICODE}
GCS_VERB = GCS_VERBW;
GCS_HELPTEXT = GCS_HELPTEXTW;
GCS_VALIDATE = GCS_VALIDATEW;
{$else}
GCS_VERB = GCS_VERBA;
GCS_HELPTEXT = GCS_HELPTEXTA;
GCS_VALIDATE = GCS_VALIDATEA;
{$endif}
SLDF_HAS_ID_LIST = $00000001; // Shell link saved with ID list
SLDF_HAS_LINK_INFO = $00000002; // Shell link saved with LinkInfo
SLDF_HAS_NAME = $00000004;
SLDF_HAS_RELPATH = $00000008;
SLDF_HAS_WORKINGDIR = $00000010;
SLDF_HAS_ARGS = $00000020;
SLDF_HAS_ICONLOCATION = $00000040;
SLDF_UNICODE = $00000080; // the strings are unicode
SLDF_FORCE_NO_LINKINFO = $00000100; // don't create a LINKINFO (make a dumb link)
SLDF_HAS_EXP_SZ = $00000200; // the link contains expandable env strings
SLDF_RUN_IN_SEPARATE = $00000400; // Run the 16-bit target exe in a separate VDM/WOW
SLDF_HAS_LOGO3ID = $00000800; // this link is a special Logo3/MSICD link
SLDF_HAS_DARWINID = $00001000; // this link is a special Darwin link
SLDF_RUNAS_USER = $00002000; // Run this link as a different user
SLDF_HAS_EXP_ICON_SZ = $00004000; // contains expandable env string for icon path
SLDF_NO_PIDL_ALIAS = $00008000; // don't ever resolve to a logical location
SLDF_FORCE_UNCNAME = $00010000; // make GetPath() prefer the UNC name to the local name
SLDF_RUN_WITH_SHIMLAYER = $00020000; // Launch the target of this link w/ shim layer active
SLDF_RESERVED = $80000000; // Reserved-- so we can use the low word as an index value in the future
// Define File View Show Info Flags.
FVSIF_RECT = $00000001; // The rect variable has valid data.
FVSIF_PINNED = $00000002; // We should Initialize pinned
FVSIF_NEWFAILED = $08000000; // The new file passed back failed
// to be viewed.
FVSIF_NEWFILE = dword($80000000); // A new file to view has been returned
FVSIF_CANVIEWIT = $40000000; // The viewer can view it.
FCIDM_SHVIEWFIRST = $0000;
FCIDM_SHVIEWLAST = $7fff;
FCIDM_BROWSERFIRST = $a000;
FCIDM_BROWSERLAST = $bf00;
FCIDM_GLOBALFIRST = $8000;
FCIDM_GLOBALLAST = $9fff;
//
// Global submenu IDs and separator IDs
//
FCIDM_MENU_FILE = (FCIDM_GLOBALFIRST+$0000);
FCIDM_MENU_EDIT = (FCIDM_GLOBALFIRST+$0040);
FCIDM_MENU_VIEW = (FCIDM_GLOBALFIRST+$0080);
FCIDM_MENU_VIEW_SEP_OPTIONS = (FCIDM_GLOBALFIRST+$0081);
FCIDM_MENU_TOOLS = (FCIDM_GLOBALFIRST+$00c0); // for Win9x compat
FCIDM_MENU_TOOLS_SEP_GOTO = (FCIDM_GLOBALFIRST+$00c1); // for Win9x compat
FCIDM_MENU_HELP = (FCIDM_GLOBALFIRST+$0100);
FCIDM_MENU_FIND = (FCIDM_GLOBALFIRST+$0140);
FCIDM_MENU_EXPLORE = (FCIDM_GLOBALFIRST+$0150);
FCIDM_MENU_FAVORITES = (FCIDM_GLOBALFIRST+$0170);
PANE_NONE = -1;
PANE_ZONE = 1;
PANE_OFFLINE = 2;
PANE_PRINTER = 3;
PANE_SSL = 4;
PANE_NAVIGATION = 5;
PANE_PROGRESS = 6;
PANE_PRIVACY = 7;
CDBOSC_SETFOCUS = $00000000;
CDBOSC_KILLFOCUS = $00000001;
CDBOSC_SELCHANGE = $00000002;
CDBOSC_RENAME = $00000003;
CDBOSC_STATECHANGE = $00000004;
CDB2N_CONTEXTMENU_DONE = $00000001;
CDB2N_CONTEXTMENU_START = $00000002;
//GetViewFlags
CDB2GVF_SHOWALLFILES = $00000001;
CSIDL_DESKTOP = $0000; // <desktop>
CSIDL_INTERNET = $0001; // Internet Explorer (icon on desktop)
CSIDL_PROGRAMS = $0002; // Start Menu\Programs
CSIDL_CONTROLS = $0003; // My Computer\Control Panel
CSIDL_PRINTERS = $0004; // My Computer\Printers
CSIDL_PERSONAL = $0005; // My Documents
CSIDL_FAVORITES = $0006; // <user name>\Favorites
CSIDL_STARTUP = $0007; // Start Menu\Programs\Startup
CSIDL_RECENT = $0008; // <user name>\Recent
CSIDL_SENDTO = $0009; // <user name>\SendTo
CSIDL_BITBUCKET = $000a; // <desktop>\Recycle Bin
CSIDL_STARTMENU = $000b; // <user name>\Start Menu
CSIDL_MYDOCUMENTS = $000c; // logical "My Documents" desktop icon
CSIDL_MYMUSIC = $000d; // "My Music" folder
CSIDL_MYVIDEO = $000e; // "My Videos" folder
CSIDL_DESKTOPDIRECTORY = $0010; // <user name>\Desktop
CSIDL_DRIVES = $0011; // My Computer
CSIDL_NETWORK = $0012; // Network Neighborhood (My Network Places)
CSIDL_NETHOOD = $0013; // <user name>\nethood
CSIDL_FONTS = $0014; // windows\fonts
CSIDL_TEMPLATES = $0015;
CSIDL_COMMON_STARTMENU = $0016; // All Users\Start Menu
CSIDL_COMMON_PROGRAMS = $0017; // All Users\Start Menu\Programs
CSIDL_COMMON_STARTUP = $0018; // All Users\Startup
CSIDL_COMMON_DESKTOPDIRECTORY = $0019; // All Users\Desktop
CSIDL_APPDATA = $001a; // <user name>\Application Data
CSIDL_PRINTHOOD = $001b; // <user name>\PrintHood
CSIDL_LOCAL_APPDATA = $001c; // <user name>\Local Settings\Applicaiton Data (non roaming)
CSIDL_ALTSTARTUP = $001d; // non localized startup
CSIDL_COMMON_ALTSTARTUP = $001e; // non localized common startup
CSIDL_COMMON_FAVORITES = $001f;
CSIDL_INTERNET_CACHE = $0020;
CSIDL_COOKIES = $0021;
CSIDL_HISTORY = $0022;
CSIDL_COMMON_APPDATA = $0023; // All Users\Application Data
CSIDL_WINDOWS = $0024; // GetWindowsDirectory()
CSIDL_SYSTEM = $0025; // GetSystemDirectory()
CSIDL_PROGRAM_FILES = $0026; // C:\Program Files
CSIDL_MYPICTURES = $0027; // C:\Program Files\My Pictures
CSIDL_PROFILE = $0028; // USERPROFILE
CSIDL_SYSTEMX86 = $0029; // x86 system directory on RISC
CSIDL_PROGRAM_FILESX86 = $002a; // x86 C:\Program Files on RISC
CSIDL_PROGRAM_FILES_COMMON = $002b; // C:\Program Files\Common
CSIDL_PROGRAM_FILES_COMMONX86 = $002c; // x86 Program Files\Common on RISC
CSIDL_COMMON_TEMPLATES = $002d; // All Users\Templates
CSIDL_COMMON_DOCUMENTS = $002e; // All Users\Documents
CSIDL_COMMON_ADMINTOOLS = $002f; // All Users\Start Menu\Programs\Administrative Tools
CSIDL_ADMINTOOLS = $0030; // <user name>\Start Menu\Programs\Administrative Tools
CSIDL_CONNECTIONS = $0031; // Network and Dial-up Connections
CSIDL_COMMON_MUSIC = $0035; // All Users\My Music
CSIDL_COMMON_PICTURES = $0036; // All Users\My Pictures
CSIDL_COMMON_VIDEO = $0037; // All Users\My Video
CSIDL_RESOURCES = $0038; // Resource Direcotry
CSIDL_RESOURCES_LOCALIZED = $0039; // Localized Resource Direcotry
CSIDL_COMMON_OEM_LINKS = $003a; // Links to All Users OEM specific apps
CSIDL_CDBURN_AREA = $003b; // USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning
// unused = $003c
CSIDL_COMPUTERSNEARME = $003d; // Computers Near Me (computered from Workgroup membership)
CSIDL_FLAG_CREATE = $8000; // combine with CSIDL_ value to force folder creation in SHGetFolderPath()
CSIDL_FLAG_DONT_VERIFY = $4000; // combine with CSIDL_ value to return an unverified folder path
CSIDL_FLAG_NO_ALIAS = $1000; // combine with CSIDL_ value to insure non-alias versions of the pidl
CSIDL_FLAG_PER_USER_INIT = $0800; // combine with CSIDL_ value to indicate per-user init (eg. upgrade)
CSIDL_FLAG_MASK = $FF00; // mask for all possible flag values
FCS_READ = $00000001;
FCS_FORCEWRITE = $00000002;
FCS_WRITE = (FCS_READ or FCS_FORCEWRITE);
FCS_FLAG_DRAGDROP = 2;
// Mask which values have been retreived or being set.
FCSM_VIEWID = $00000001;
FCSM_WEBVIEWTEMPLATE = $00000002;
FCSM_INFOTIP = $00000004;
FCSM_CLSID = $00000008;
FCSM_ICONFILE = $00000010;
FCSM_LOGO = $00000020;
FCSM_FLAGS = $00000040;
// Browsing for directory.
BIF_RETURNONLYFSDIRS = $0001; // For finding a folder to start document searching
BIF_DONTGOBELOWDOMAIN = $0002; // For starting the Find Computer
BIF_STATUSTEXT = $0004; // Top of the dialog has 2 lines of text for BROWSEINFO.lpszTitle and one line if
// this flag is set. Passing the message BFFM_SETSTATUSTEXTA to the hwnd can set the
// rest of the text. This is not used with BIF_USENEWUI and BROWSEINFO.lpszTitle gets
// all three lines of text.
BIF_RETURNFSANCESTORS = $0008;
BIF_EDITBOX = $0010; // Add an editbox to the dialog
BIF_VALIDATE = $0020; // insist on valid result (or CANCEL)
BIF_NEWDIALOGSTYLE = $0040; // Use the new dialog layout with the ability to resize
// Caller needs to call OleInitialize() before using this API
BIF_USENEWUI = (BIF_NEWDIALOGSTYLE or BIF_EDITBOX);
BIF_BROWSEINCLUDEURLS = $0080; // Allow URLs to be displayed or entered. (Requires BIF_USENEWUI)
BIF_UAHINT = $0100; // Add a UA hint to the dialog, in place of the edit box. May not be combined with BIF_EDITBOX
BIF_NONEWFOLDERBUTTON = $0200; // Do not add the "New Folder" button to the dialog. Only applicable with BIF_NEWDIALOGSTYLE.
BIF_NOTRANSLATETARGETS = $0400; // don't traverse target as shortcut
BIF_BROWSEFORCOMPUTER = $1000; // Browsing for Computers.
BIF_BROWSEFORPRINTER = $2000; // Browsing for Printers
BIF_BROWSEINCLUDEFILES = $4000; // Browsing for Everything
BIF_SHAREABLE = $8000; // sharable resources displayed (remote shares, requires BIF_USENEWUI)
// message from browser
BFFM_INITIALIZED = 1;
BFFM_SELCHANGED = 2;
BFFM_VALIDATEFAILEDA = 3; // lParam:szPath ret:1(cont),0(EndDialog)
BFFM_VALIDATEFAILEDW = 4; // lParam:wzPath ret:1(cont),0(EndDialog)
BFFM_IUNKNOWN = 5; // provides IUnknown to client. lParam: IUnknown*
// messages to browser
BFFM_SETSTATUSTEXTA = (WM_USER + 100);
BFFM_ENABLEOK = (WM_USER + 101);
BFFM_SETSELECTIONA = (WM_USER + 102);
BFFM_SETSELECTIONW = (WM_USER + 103);
BFFM_SETSTATUSTEXTW = (WM_USER + 104);
BFFM_SETOKTEXT = (WM_USER + 105); // Unicode only
BFFM_SETEXPANDED = (WM_USER + 106); // Unicode only
{$IFDEF UNICODE}
BFFM_SETSTATUSTEXT = BFFM_SETSTATUSTEXTW;
BFFM_SETSELECTION = BFFM_SETSELECTIONW;
{$ELSE}
BFFM_SETSTATUSTEXT = BFFM_SETSTATUSTEXTA;
BFFM_SETSELECTION = BFFM_SETSELECTIONA;
{$ENDIF}
ISHCUTCMDID_DOWNLOADICON = 0;
ISHCUTCMDID_INTSHORTCUTCREATE = 1;
ACLO_NONE = 0; // don't enumerate anything
ACLO_CURRENTDIR = 1; // enumerate current directory
ACLO_MYCOMPUTER = 2; // enumerate MyComputer
ACLO_DESKTOP = 4; // enumerate Desktop Folder
ACLO_FAVORITES = 8; // enumerate Favorites Folder
ACLO_FILESYSONLY = 16; // enumerate only the file system
ACLO_FILESYSDIRS = 32; // enumerate only the file system dirs, UNC shares, and UNC servers.
// Flags for IProgressDialog::StartProgressDialog() (dwFlags)
PROGDLG_NORMAL = $00000000; // default normal progress dlg behavior
PROGDLG_MODAL = $00000001; // the dialog is modal to its hwndParent (default is modeless)
PROGDLG_AUTOTIME = $00000002; // automatically updates the "Line3" text with the "time remaining" (you cant call SetLine3 if you passs this!)
PROGDLG_NOTIME = $00000004; // we dont show the "time remaining" if this is set. We need this if dwTotal < dwCompleted for sparse files
PROGDLG_NOMINIMIZE = $00000008; // Do not have a minimize button in the caption bar.
PROGDLG_NOPROGRESSBAR = $00000010; // Don't display the progress bar
// Time Actions (dwTimerAction)
PDTIMER_RESET = $00000001; // Reset the timer so the progress will be calculated from now until the first ::SetProgress() is called so
// those this time will correspond to the values passed to ::SetProgress(). Only do this before ::SetProgress() is called.
// flags for RemoveToolbar
DWFRF_NORMAL = $0000;
DWFRF_DELETECONFIGDATA = $0001;
// flags for AddToolbar
DWFAF_HIDDEN = $0001; // add hidden
// Convenient state values
IRTIR_TASK_NOT_RUNNING = 0;
IRTIR_TASK_RUNNING = 1;
IRTIR_TASK_SUSPENDED = 2;
IRTIR_TASK_PENDING = 3;
IRTIR_TASK_FINISHED = 4;
// Status() flags,
// wait for the current task to complete before deleting the scheduler
ITSSFLAG_COMPLETE_ON_DESTROY = $0000;
// kill the current task (if there is one) when the task scheduler is deleted
ITSSFLAG_KILL_ON_DESTROY = $0001;
ITSSFLAG_SUPPORTS_TERMINATE = $0002;
ITSSFLAG_FLAGS_MASK = $0003;
// set the timeout for killing the thread when the object is terminated.
// this timeout can be used to stop the object from blocking the system
// indefinitely.
ITSSFLAG_THREAD_TERMINATE_TIMEOUT = $0010;
// set the timeout for threads that are idle in the thread pool
ITSSFLAG_THREAD_POOL_TIMEOUT = $0020;
// The default timeout passed to release Status to determine how long the thread
// can be asleep before the thread is expired
ITSS_THREAD_DESTROY_DEFAULT_TIMEOUT = (60*1000);
// default, we won't kill it...
ITSS_THREAD_TERMINATE_TIMEOUT = (INFINITE);
// there is no change to the thread timeout
ITSS_THREAD_TIMEOUT_NO_CHANGE = (INFINITE - 1);
// the LPARAM allows task to be associated with items thus all tasks owned by a
// particular item can be accessed by passing a non default value for this parameter
ITSAT_DEFAULT_LPARAM = $ffffffff;
// Task priorities
// ---------------
// This depends on the cooperation of tasks currently under execution. New tasks will
// be inserted in the queue in priority order. If a task of a low priority is currently
// under execution when a higher priority task is added, the scheduler will attempt
// to suspend the task currently under execution. It will be resumed when the other tasks
// have been completed.
ITSAT_DEFAULT_PRIORITY = $10000000;
ITSAT_MAX_PRIORITY = $7fffffff;
ITSAT_MIN_PRIORITY = $00000000;
ITSSFLAG_TASK_PLACEINFRONT = $00000001;
ITSSFLAG_TASK_PLACEINBACK = $00000002;
SHIMSTCAPFLAG_LOCKABLE = $0001; // does the store require/support locking
SHIMSTCAPFLAG_PURGEABLE = $0002; // does the store require dead items purging externally ?
//// IShellFolderBand
// Field mask
ISFB_MASK_STATE = $00000001; // TRUE if dwStateMask and dwState is valid
ISFB_MASK_BKCOLOR = $00000002; // TRUE if crBkgnd field is valid
ISFB_MASK_VIEWMODE = $00000004; // TRUE if wViewMode field is valid
ISFB_MASK_SHELLFOLDER = $00000008;
ISFB_MASK_IDLIST = $00000010;
ISFB_MASK_COLORS = $00000020; // TRUE if crXXXX fields are valid (except bkgnd)
ISFB_STATE_DEFAULT = $00000000;
ISFB_STATE_DEBOSSED = $00000001;
ISFB_STATE_ALLOWRENAME = $00000002;
ISFB_STATE_NOSHOWTEXT = $00000004; // TRUE if _fNoShowText
ISFB_STATE_CHANNELBAR = $00000010; // TRUE if we want NavigateTarget support
ISFB_STATE_QLINKSMODE = $00000020; // TRUE if we want to turn off drag & drop onto content items
ISFB_STATE_FULLOPEN = $00000040; // TRUE if band should maximize when opened
ISFB_STATE_NONAMESORT = $00000080; // TRUE if band should _not_ sort icons by name
ISFB_STATE_BTNMINSIZE = $00000100; // TRUE if band should report min thickness of button
ISFBVIEWMODE_SMALLICONS = $0001;
ISFBVIEWMODE_LARGEICONS = $0002;
ISFBVIEWMODE_LOGOS = $0003;
DBC_GS_IDEAL = 0; // get the ideal size
DBC_GS_SIZEDOWN = 1; // clip the height of a rect to a multiple of the rebar's integral size
DBC_HIDE = 0; // Band is hidden (being destroyed)
DBC_SHOW = 1; // Band is visible
DBC_SHOWOBSCURE = 2; // Band is completely obscured
// iCompType values
COMP_TYPE_HTMLDOC = 0;
COMP_TYPE_PICTURE = 1;
COMP_TYPE_WEBSITE = 2;
COMP_TYPE_CONTROL = 3;
COMP_TYPE_CFHTML = 4;
COMP_TYPE_MAX = 4;
// Defines for dwCurItemState
IS_NORMAL = $00000001;
IS_FULLSCREEN = $00000002;
IS_SPLIT = $00000004;
IS_VALIDSIZESTATEBITS = (IS_NORMAL or IS_SPLIT or IS_FULLSCREEN); // The set of IS_* state bits which define the "size" of the component - these bits are mutually exclusive.
IS_VALIDSTATEBITS = (IS_NORMAL or IS_SPLIT or IS_FULLSCREEN or $80000000 or $40000000); // All of the currently defined IS_* bits.
////////////////////////////////////////////
// Flags for IActiveDesktop::ApplyChanges()
AD_APPLY_SAVE = $00000001;
AD_APPLY_HTMLGEN = $00000002;
AD_APPLY_REFRESH = $00000004;
AD_APPLY_ALL = (AD_APPLY_SAVE or AD_APPLY_HTMLGEN or AD_APPLY_REFRESH);
AD_APPLY_FORCE = $00000008;
AD_APPLY_BUFFERED_REFRESH = $00000010;
AD_APPLY_DYNAMICREFRESH = $00000020;
////////////////////////////////////////////
// Flags for IActiveDesktop::GetWallpaperOptions()
// IActiveDesktop::SetWallpaperOptions()
WPSTYLE_CENTER = 0;
WPSTYLE_TILE = 1;
WPSTYLE_STRETCH = 2;
WPSTYLE_MAX = 3;
////////////////////////////////////////////
// Flags for IActiveDesktop::ModifyComponent()
COMP_ELEM_TYPE = $00000001;
COMP_ELEM_CHECKED = $00000002;
COMP_ELEM_DIRTY = $00000004;
COMP_ELEM_NOSCROLL = $00000008;
COMP_ELEM_POS_LEFT = $00000010;
COMP_ELEM_POS_TOP = $00000020;
COMP_ELEM_SIZE_WIDTH = $00000040;
COMP_ELEM_SIZE_HEIGHT = $00000080;
COMP_ELEM_POS_ZINDEX = $00000100;
COMP_ELEM_SOURCE = $00000200;
COMP_ELEM_FRIENDLYNAME = $00000400;
COMP_ELEM_SUBSCRIBEDURL = $00000800;
COMP_ELEM_ORIGINAL_CSI = $00001000;
COMP_ELEM_RESTORED_CSI = $00002000;
COMP_ELEM_CURITEMSTATE = $00004000;
COMP_ELEM_ALL = (COMP_ELEM_TYPE or COMP_ELEM_CHECKED or COMP_ELEM_DIRTY or
COMP_ELEM_NOSCROLL or COMP_ELEM_POS_LEFT or COMP_ELEM_SIZE_WIDTH or
COMP_ELEM_SIZE_HEIGHT or COMP_ELEM_POS_ZINDEX or COMP_ELEM_SOURCE or
COMP_ELEM_FRIENDLYNAME or COMP_ELEM_POS_TOP or COMP_ELEM_SUBSCRIBEDURL or
COMP_ELEM_ORIGINAL_CSI or COMP_ELEM_RESTORED_CSI or COMP_ELEM_CURITEMSTATE);
////////////////////////////////////////////
// Flags for IActiveDesktop::AddDesktopItemWithUI()
DTI_ADDUI_DEFAULT = $00000000;
DTI_ADDUI_DISPSUBWIZARD = $00000001;
DTI_ADDUI_POSITIONITEM = $00000002;
////////////////////////////////////////////
// Flags for IActiveDesktop::AddUrl()
ADDURL_SILENT = $0001;
// Default positions for ADI
COMPONENT_DEFAULT_LEFT = $FFFF;
COMPONENT_DEFAULT_TOP = $FFFF;
// Flags for SetSafeMode
SSM_CLEAR = $0000;
SSM_SET = $0001;
SSM_REFRESH = $0002;
SSM_UPDATE = $0004;
// Flags for Set/GetScheme
SCHEME_DISPLAY = $0001;
SCHEME_EDIT = $0002;
SCHEME_LOCAL = $0004;
SCHEME_GLOBAL = $0008;
SCHEME_REFRESH = $0010;
SCHEME_UPDATE = $0020;
SCHEME_DONOTUSE = $0040; // used to be SCHEME_ENUMERATE; no longer supported
SCHEME_CREATE = $0080;
SHCDF_UPDATEITEM = $00000001; // this flag is a hint that the file has changed since the last call to GetItemData
DVASPECT_SHORTNAME = 2; // use for CF_HDROP to get short name version of file paths
DVASPECT_COPY = 3; // use to indicate format is a "Copy" of the data (FILECONTENTS, FILEDESCRIPTOR, etc)
DVASPECT_LINK = 4; // use to indicate format is a "Shortcut" to the data (FILECONTENTS, FILEDESCRIPTOR, etc)
FD_CLSID = $0001;
FD_SIZEPOINT = $0002;
FD_ATTRIBUTES = $0004;
FD_CREATETIME = $0008;
FD_ACCESSTIME = $0010;
FD_WRITESTIME = $0020;
FD_FILESIZE = $0040;
FD_PROGRESSUI = $4000; // Show Progress UI w/Drag and Drop
FD_LINKUI = $8000; // 'link' UI is prefered
SHCNE_RENAMEITEM = DWord($00000001);
SHCNE_CREATE = DWord($00000002);
SHCNE_DELETE = DWord($00000004);
SHCNE_MKDIR = DWord($00000008);
SHCNE_RMDIR = DWord($00000010);
SHCNE_MEDIAINSERTED = DWord($00000020);
SHCNE_MEDIAREMOVED = DWord($00000040);
SHCNE_DRIVEREMOVED = DWord($00000080);
SHCNE_DRIVEADD = DWord($00000100);
SHCNE_NETSHARE = DWord($00000200);
SHCNE_NETUNSHARE = DWord($00000400);
SHCNE_ATTRIBUTES = DWord($00000800);
SHCNE_UPDATEDIR = DWord($00001000);
SHCNE_UPDATEITEM = DWord($00002000);
SHCNE_SERVERDISCONNECT = DWord($00004000);
SHCNE_UPDATEIMAGE = DWord($00008000);
SHCNE_DRIVEADDGUI = DWord($00010000);
SHCNE_RENAMEFOLDER = DWord($00020000);
SHCNE_FREESPACE = DWord($00040000);
SHCNE_EXTENDED_EVENT = DWord($04000000);
SHCNE_ASSOCCHANGED = DWord($08000000);
SHCNE_DISKEVENTS = DWord($0002381F);
SHCNE_GLOBALEVENTS = DWord($0C0581E0); // Events that dont match pidls first
SHCNE_ALLEVENTS = DWord($7FFFFFFF);
SHCNE_INTERRUPT = DWord($80000000); // The presence of this flag indicates
// that the event was generated by an
// interrupt. It is stripped out before
// the clients of SHCNNotify_ see it.
//#if (_WIN32_IE >= $0400)
// SHCNE_EXTENDED_EVENT extended events. These events are ordinals.
// This is not a bitfield.
SHCNEE_ORDERCHANGED = 2; // pidl2 is the changed folder
SHCNEE_MSI_CHANGE = 4; // pidl2 is a SHChangeProductKeyAsIDList
SHCNEE_MSI_UNINSTALL = 5; // pidl2 is a SHChangeProductKeyAsIDList
//#endif
// Flags
// uFlags & SHCNF_TYPE is an ID which indicates what dwItem1 and dwItem2 mean
SHCNF_IDLIST = $0000; // LPITEMIDLIST
SHCNF_PATHA = $0001; // path name
SHCNF_PRINTERA = $0002; // printer friendly name
SHCNF_DWORD = $0003; // DWORD
SHCNF_PATHW = $0005; // path name
SHCNF_PRINTERW = $0006; // printer friendly name
SHCNF_TYPE = $00FF;
SHCNF_FLUSH = $1000;
SHCNF_FLUSHNOWAIT = $2000;
{$ifdef UNICODE}
SHCNF_PATH = SHCNF_PATHW;
SHCNF_PRINTER = SHCNF_PRINTERW;
{$else}
SHCNF_PATH = SHCNF_PATHA;
SHCNF_PRINTER = SHCNF_PRINTERA;
{$endif}
QITIPF_DEFAULT = $00000000;
QITIPF_USENAME = $00000001;
QITIPF_LINKNOTARGET = $00000002;
QITIPF_LINKUSETARGET = $00000004;
QITIPF_USESLOWTIP = $00000008; // Flag says it's OK to take a long time generating tip
QIF_CACHED = $00000001;
QIF_DONTEXPANDFOLDER = $00000002;
//
// SHAddToRecentDocs
//
SHARD_PIDL = DWord($00000001);
SHARD_PATHA = DWord($00000002);
SHARD_PATHW = DWord($00000003);
{$ifdef UNICODE}
SHARD_PATH = SHARD_PATHW;
{$else}
SHARD_PATH = SHARD_PATHA;
{$endif}
//
// SHGetDataFromIDListA/W
//
// SHGetDataFromIDList nFormat values TCHAR
SHGDFIL_FINDDATA = 1;
SHGDFIL_NETRESOURCE = 2;
SHGDFIL_DESCRIPTIONID = 3;
SHDID_ROOT_REGITEM = 1 ;
SHDID_FS_FILE = 2 ;
SHDID_FS_DIRECTORY = 3 ;
SHDID_FS_OTHER = 4 ;
SHDID_COMPUTER_DRIVE35 = 5 ;
SHDID_COMPUTER_DRIVE525 = 6 ;
SHDID_COMPUTER_REMOVABLE = 7 ;
SHDID_COMPUTER_FIXED = 8 ;
SHDID_COMPUTER_NETDRIVE = 9 ;
SHDID_COMPUTER_CDROM = 10;
SHDID_COMPUTER_RAMDISK = 11;
SHDID_COMPUTER_OTHER = 12;
SHDID_NET_DOMAIN = 13;
SHDID_NET_SERVER = 14;
SHDID_NET_SHARE = 15;
SHDID_NET_RESTOFNET = 16;
SHDID_NET_OTHER = 17;
SHDID_COMPUTER_IMAGING = 18;
SHDID_COMPUTER_AUDIO = 19;
SHDID_COMPUTER_SHAREDDOCS = 20;
// PathResolve flags
PRF_VERIFYEXISTS = $0001;
PRF_TRYPROGRAMEXTENSIONS = ($0002 or PRF_VERIFYEXISTS);
PRF_FIRSTDIRDEF = $0004;
PRF_DONTFINDLNK = $0008; // if PRF_TRYPROGRAMEXTENSIONS is specified
PCS_FATAL = $80000000;
PCS_REPLACEDCHAR = $00000001;
PCS_REMOVEDCHAR = $00000002;
PCS_TRUNCATED = $00000004;
PCS_PATHTOOLONG = $00000008; // Always combined with FATA);
MM_ADDSEPARATOR = DWord($00000001);
MM_SUBMENUSHAVEIDS = DWord($00000002);
MM_DONTREMOVESEPS = DWord($00000004);
SHOP_PRINTERNAME = $00000001; // lpObject points to a printer friendly name
SHOP_FILEPATH = $00000002; // lpObject points to a fully qualified path+file name
SHOP_VOLUMEGUID = $00000004; // lpObject points to a Volume GUID
SHFMT_ID_DEFAULT = $FFFF;
//
// Option bits for options parameter
//
SHFMT_OPT_FULL = $0001;
SHFMT_OPT_SYSONLY = $0002;
//
// Special return values. PLEASE NOTE that these are DWORD values.
//
SHFMT_ERROR = DWord($FFFFFFFF); // Error on last format, drive may be formatable
SHFMT_CANCEL = DWord($FFFFFFFE); // Last format was canceled
SHFMT_NOFORMAT = DWord($FFFFFFFD); // Drive is not formatable
REST_NONE = $00000000;
REST_NORUN = $00000001;
REST_NOCLOSE = $00000002;
REST_NOSAVESET = $00000004;
REST_NOFILEMENU = $00000008;
REST_NOSETFOLDERS = $00000010;
REST_NOSETTASKBAR = $00000020;
REST_NODESKTOP = $00000040;
REST_NOFIND = $00000080;
REST_NODRIVES = $00000100;
REST_NODRIVEAUTORUN = $00000200;
REST_NODRIVETYPEAUTORUN = $00000400;
REST_NONETHOOD = $00000800;
REST_STARTBANNER = $00001000;
REST_RESTRICTRUN = $00002000;
REST_NOPRINTERTABS = $00004000;
REST_NOPRINTERDELETE = $00008000;
REST_NOPRINTERADD = $00010000;
REST_NOSTARTMENUSUBFOLDERS = $00020000;
REST_MYDOCSONNET = $00040000;
REST_NOEXITTODOS = $00080000;
REST_ENFORCESHELLEXTSECURITY = $00100000;
REST_LINKRESOLVEIGNORELINKINFO = $00200000;
REST_NOCOMMONGROUPS = $00400000;
REST_SEPARATEDESKTOPPROCESS = $00800000;
REST_NOWEB = $01000000;
REST_NOTRAYCONTEXTMENU = $02000000;
REST_NOVIEWCONTEXTMENU = $04000000;
REST_NONETCONNECTDISCONNECT = $08000000;
REST_STARTMENULOGOFF = $10000000;
REST_NOSETTINGSASSIST = $20000000;
REST_NOINTERNETICON = $40000001;
REST_NORECENTDOCSHISTORY = $40000002;
REST_NORECENTDOCSMENU = $40000003;
REST_NOACTIVEDESKTOP = $40000004;
REST_NOACTIVEDESKTOPCHANGES = $40000005;
REST_NOFAVORITESMENU = $40000006;
REST_CLEARRECENTDOCSONEXIT = $40000007;
REST_CLASSICSHELL = $40000008;
REST_NOCUSTOMIZEWEBVIEW = $40000009;
REST_NOHTMLWALLPAPER = $40000010;
REST_NOCHANGINGWALLPAPER = $40000011;
REST_NODESKCOMP = $40000012;
REST_NOADDDESKCOMP = $40000013;
REST_NODELDESKCOMP = $40000014;
REST_NOCLOSEDESKCOMP = $40000015;
REST_NOCLOSE_DRAGDROPBAND = $40000016; // Disable Close and Drag & Drop on ALL Bands
REST_NOMOVINGBAND = $40000017; // Disable Moving ALL Bands
REST_NOEDITDESKCOMP = $40000018;
REST_NORESOLVESEARCH = $40000019;
REST_NORESOLVETRACK = $4000001A;
REST_FORCECOPYACLWITHFILE = $4000001B;
REST_NOLOGO3CHANNELNOTIFY = $4000001C;
REST_NOFORGETSOFTWAREUPDATE = $4000001D;
REST_NOSETACTIVEDESKTOP = $4000001E; // No Active desktop on Settings Menu
REST_NOUPDATEWINDOWS = $4000001F; // No Windows Update on Settings Menu
REST_NOCHANGESTARMENU = $40000020; // No Context menu or Drag and Drop on Start menu
REST_NOFOLDEROPTIONS = $40000021; // No Folder Options on Settings Menu
REST_HASFINDCOMPUTERS = $40000022; // Show Start/Search/Computers
REST_INTELLIMENUS = $40000023;
REST_RUNDLGMEMCHECKBOX = $40000024;
REST_ARP_ShowPostSetup = $40000025; // ARP: Show Post-Setup page
REST_NOCSC = $40000026; // Disable the ClientSide caching on SM
REST_NOCONTROLPANEL = $40000027; // Remove the Control Panel only from SM or Settings
REST_ENUMWORKGROUP = $40000028; // Enumerate workgroup in root of nethood
REST_ARP_NOARP = $40000029; // ARP: Don't Allow ARP to come up at all
REST_ARP_NOREMOVEPAGE = $4000002A; // ARP: Don't allow Remove page
REST_ARP_NOADDPAGE = $4000002B; // ARP: Don't allow Add page
REST_ARP_NOWINSETUPPAGE = $4000002C; // ARP: Don't allow opt components page
REST_GREYMSIADS = $4000002D; // SM: Allow the greying of Darwin Ads in SM
REST_NOCHANGEMAPPEDDRIVELABEL = $4000002E; // Don't enable the UI which allows users to rename mapped drive labels
REST_NOCHANGEMAPPEDDRIVECOMMENT = $4000002F; // Don't enable the UI which allows users to change mapped drive comments
REST_MaxRecentDocs = $40000030;
REST_NONETWORKCONNECTIONS = $40000031; // No Start Menu or Settings or Network Connections
REST_FORCESTARTMENULOGOFF = $40000032; // Force logoff on the Start Menu
REST_NOWEBVIEW = $40000033; // Disable Web View
REST_NOCUSTOMIZETHISFOLDER = $40000034; // Disable Customize This Folder
REST_NOENCRYPTION = $40000035; // Don't allow file encryption
// Do NOT use me = $40000036;
REST_DONTSHOWSUPERHIDDEN = $40000037; // don't show super hidden files
REST_NOSHELLSEARCHBUTTON = $40000038;
REST_NOHARDWARETAB = $40000039; // No Hardware tab on Drives or in control panel
REST_NORUNASINSTALLPROMPT = $4000003A; // Don't bring up "Run As" prompt for install programs
REST_PROMPTRUNASINSTALLNETPATH = $4000003B; // Force the "Run As" prompt for install programs on unc/network shares
REST_NOMANAGEMYCOMPUTERVERB = $4000003C; // No Manage verb on My Computer
REST_NORECENTDOCSNETHOOD = $4000003D; // dont add the recent docs shares to nethood
REST_DISALLOWRUN = $4000003E; // don't allow certain apps to be run
REST_NOWELCOMESCREEN = $4000003F; // don't allow the welcome screen to be displayed.
REST_RESTRICTCPL = $40000040; // only allow certain cpls to be run
REST_DISALLOWCPL = $40000041; // don't allow certain cpls to be run
REST_NOSMBALLOONTIP = $40000042; // No Start Menu Balloon Tip
REST_NOSMHELP = $40000043; // No Help on the Start Menu
REST_NOWINKEYS = $40000044; // No Windows-X Hot keys
REST_NOENCRYPTONMOVE = $40000045; // Don't automatically try to encrypt files that are moved to encryped directories
REST_NOLOCALMACHINERUN = $40000046; // ignore HKLM\sw\ms\win\cv\Run and all of it's sub keys
REST_NOCURRENTUSERRUN = $40000047; // ignore HKCU\sw\ms\win\cv\Run and all of it's sub keys
REST_NOLOCALMACHINERUNONCE = $40000048; // ignore HKLM\sw\ms\win\cv\RunOnce and all of it's sub keys
REST_NOCURRENTUSERRUNONCE = $40000049; // ignore HKCU\sw\ms\win\cv\RunOnce and all of it's sub keys
REST_FORCEACTIVEDESKTOPON = $4000004A; // Force ActiveDesktop to be turned ON all the time.
REST_NOCOMPUTERSNEARME = $4000004B; // removes the "Computers near me" link
REST_NOVIEWONDRIVE = $4000004C; // disallows CreateViewObject() on specified drives (CFSFolder only)
REST_NONETCRAWL = $4000004D; // disables the crawling of the WNet namespace.
REST_NOSHAREDDOCUMENTS = $4000004E; // don't auto share the Shared Documents/create link
REST_NOSMMYDOCS = $4000004F; // Don't show the My Documents item on the Start Menu.
REST_NOSMMYPICS = $40000050; // Don't show the My Pictures item on the Start Menu
REST_ALLOWBITBUCKDRIVES = $40000051; // Bit mask indicating which which drives have bit bucket support
REST_NONLEGACYSHELLMODE = $40000052; // new consumer shell modes
REST_NOCONTROLPANELBARRICADE = $40000053; // The webview barricade in Control Panel
REST_NOSTARTPAGE = $40000054; // Whistler Start Page on desktop.
REST_NOAUTOTRAYNOTIFY = $40000055; // Whistler auto-tray notify feature
REST_NOTASKGROUPING = $40000056; // Whistler taskbar button grouping feature
REST_NOCDBURNING = $40000057; // whistler cd burning feature
REST_MYCOMPNOPROP = $40000058; // disables Properties on My Computer's context menu
REST_MYDOCSNOPROP = $40000059; // disables Properties on My Documents' context menu
REST_NOSTARTPANEL = $4000005A; // Windows start panel (New start menu) for Whistler.
REST_NODISPLAYAPPEARANCEPAGE = $4000005B; // disable Themes and Appearance tabs in the Display Control Panel.
REST_NOTHEMESTAB = $4000005C; // disable the Themes tab in the Display Control Panel.
REST_NOVISUALSTYLECHOICE = $4000005D; // disable the visual style drop down in the Appearance tab of the Display Control Panel.
REST_NOSIZECHOICE = $4000005E; // disable the size drop down in the Appearance tab of the Display Control Panel.
REST_NOCOLORCHOICE = $4000005F; // disable the color drop down in the Appearance tab of the Display Control Panel.
REST_SETVISUALSTYLE = $40000060; // Load the specified file as the visual style.
REST_STARTRUNNOHOMEPATH = $40000061; // dont use the %HOMEPATH% env var for the Start-Run dialog
REST_NOUSERNAMEINSTARTPANEL = $40000062; // don't show the username is the startpanel.
REST_NOMYCOMPUTERICON = $40000063; // don't show my computer anywhere, hide its contents
REST_NOSMNETWORKPLACES = $40000064; // don't show network places in startpanel.
REST_NOSMPINNEDLIST = $40000065; // don't show the pinned list in startpanel.
REST_NOSMMYMUSIC = $40000066; // don't show MyMusic folder in startpanel
REST_NOSMEJECTPC = $40000067; // don't show "Undoc PC" command in startmenu
REST_NOSMMOREPROGRAMS = $40000068; // don't show "More Programs" button in StartPanel.
REST_NOSMMFUPROGRAMS = $40000069; // don't show the MFU programs list in StartPanel.
REST_NOTRAYITEMSDISPLAY = $4000006A; // disables the display of the system tray
REST_NOTOOLBARSONTASKBAR = $4000006B; // disables toolbar display on the taskbar
REST_NOSMCONFIGUREPROGRAMS = $4000006F; // No Configure Programs on Settings Menu
REST_HIDECLOCK = $40000070; // don't show the clock
REST_NOLOWDISKSPACECHECKS = $40000071; // disable the low disk space checking
REST_NOENTIRENETWORK = $40000072; // removes the "Entire Network" link (i.e. from "My Network Places")
REST_NODESKTOPCLEANUP = $40000073; // disable the desktop cleanup wizard
REST_BITBUCKNUKEONDELETE = $40000074; // disables recycling of files
REST_BITBUCKCONFIRMDELETE = $40000075; // always show the delete confirmation dialog when deleting files
REST_BITBUCKNOPROP = $40000076; // disables Properties on Recycle Bin's context menu
REST_NODISPBACKGROUND = $40000077; // disables the Desktop tab in the Display CP);
REST_NODISPSCREENSAVEPG = $40000078; // disables the Screen Saver tab in the Display CP);
REST_NODISPSETTINGSPG = $40000079; // disables the Settings tab in the Display CP);
REST_NODISPSCREENSAVEPREVIEW = $4000007A; // disables the screen saver on the Screen Saver tab in the Display CP);
REST_NODISPLAYCPL = $4000007B; // disables the Display CPL
REST_HIDERUNASVERB = $4000007C; // hides the "Run As..." context menu item
REST_NOTHUMBNAILCACHE = $4000007D; // disables use of the thumbnail cache
REST_NOSTRCMPLOGICAL = $4000007E; // dont use StrCmpLogical() instead use default CompareString()
REST_NOPUBLISHWIZARD = $4000007F; // disables publishing wizard (WPW)
REST_NOONLINEPRINTSWIZARD = $40000080; // disables online prints wizard (OPW)
REST_NOWEBSERVICES = $40000081; // disables the web specified services for both OPW and WPW
REST_ALLOWUNHASHEDWEBVIEW = $40000082; // allow the user to be promted to accept web view templates that don't already have an md5 hash in the registry
REST_ALLOWLEGACYWEBVIEW = $40000083; // allow legacy webview template to be shown.
REST_REVERTWEBVIEWSECURITY = $40000084; // disable added webview security measures (revert to w2k functionality).
REST_INHERITCONSOLEHANDLES = $40000086; // ShellExec() will check for the current process and target process being console processes to inherit handles
REST_SORTMAXITEMCOUNT = $40000087; // Do not sort views with more items than this key. Useful for viewing big amount of files in one folder.
REST_NOREMOTERECURSIVEEVENTS = $40000089; // Dont register network change events recursively to avoid network traffic
REST_NOREMOTECHANGENOTIFY = $40000091; // Do not register for remote change notifies
REST_NOSIMPLENETIDLIST = $40000092; // No simple network IDLists
REST_NOENUMENTIRENETWORK = $40000093; // Don't enumerate entire network if we happen to get to it (in conjunction with REST_NOENTIRENETWORK)
REST_NODETAILSTHUMBNAILONNETWORK= $40000094; // Disable Thumbnail for Network files in DUI Details pane
REST_NOINTERNETOPENWITH = $40000095; // dont allow looking on the internet for file associations
REST_ALLOWLEGACYLMZBEHAVIOR = $4000009A; // allowable LMZ behavior for ActiveX objects changed in XPSP2, this policy gets the pre-XPSP2 behavior
REST_DONTRETRYBADNETNAME = $4000009B; // In Network Places: if provider returns ERROR_BAD_NET_NAME, give up
REST_ALLOWFILECLSIDJUNCTIONS = $4000009C; // re-enable legacy support for file.{guid} junctions in FileSystem Folder
REST_NOUPNPINSTALL = $4000009D; // disable "install UPnP" task in My Net Places
REST_NODISCONNECT = $41000001; // No Disconnect option in Start menu
REST_NOSECURITY = $41000002; // No Security option in start menu
REST_NOFILEASSOCIATE = $41000003; // Do not allow user to change file association
REST_ALLOWCOMMENTTOGGLE = $41000004; // Allow the user to toggle the positions of the Comment and the Computer Name
REST_USEDESKTOPINICACHE = $41000005; // Cache desktop.ini entries from network folders
//
// Path processing function
//
PPCF_ADDQUOTES = $00000001; // return a quoted name if required
PPCF_ADDARGUMENTS = $00000003; // appends arguments (and wraps in quotes if required)
PPCF_NODIRECTORIES = $00000010; // don't match to directories
PPCF_FORCEQUALIFY = $00000040; // qualify even non-relative names
PPCF_LONGESTPOSSIBLE = $00000080; // always find the longest possible name
VALIDATEUNC_NOUI = $0002; // don't bring up UI
VALIDATEUNC_CONNECT = $0001; // connect a drive letter
VALIDATEUNC_PRINT = $0004; // validate as print share instead of disk share
VALIDATEUNC_VALID = $0007; // valid flags
OPENPROPS_NONE = $0000;
OPENPROPS_INHIBITPIF = $8000;
GETPROPS_NONE = $0000;
SETPROPS_NONE = $0000;
CLOSEPROPS_NONE = $0000;
CLOSEPROPS_DISCARD = $0001;
PIFNAMESIZE = 30;
PIFSTARTLOCSIZE = 63;
PIFDEFPATHSIZE = 64;
PIFPARAMSSIZE = 64;
PIFSHPROGSIZE = 64;
PIFSHDATASIZE = 64;
PIFDEFFILESIZE = 80;
PIFMAXFILEPATH = 260;
TBIF_APPEND = 0;
TBIF_PREPEND = 1;
TBIF_REPLACE = 2;
TBIF_DEFAULT = $00000000;
TBIF_INTERNETBAR = $00010000;
TBIF_STANDARDTOOLBAR = $00020000;
TBIF_NOTOOLBAR = $00030000;
// uMsg wParam lParam
SFVM_MERGEMENU = 1; // - LPQCMINFO
SFVM_INVOKECOMMAND = 2; // idCmd -
SFVM_GETHELPTEXT = 3; // idCmd,cchMax pszText
SFVM_GETTOOLTIPTEXT = 4; // idCmd,cchMax pszText
SFVM_GETBUTTONINFO = 5; // - LPTBINFO
SFVM_GETBUTTONS = 6; // idCmdFirst,cbtnMax LPTBBUTTON
SFVM_INITMENUPOPUP = 7; // idCmdFirst,nIndex hmenu
SFVM_FSNOTIFY = 14; // LPCITEMIDLIST* lEvent
SFVM_WINDOWCREATED = 15; // hwnd -
SFVM_GETDETAILSOF = 23; // iColumn DETAILSINFO*
SFVM_COLUMNCLICK = 24; // iColumn -
SFVM_QUERYFSNOTIFY = 25; // - SHChangeNotifyEntry *
SFVM_DEFITEMCOUNT = 26; // - UINT*
SFVM_DEFVIEWMODE = 27; // - FOLDERVIEWMODE*
SFVM_UNMERGEMENU = 28; // - hmenu
SFVM_UPDATESTATUSBAR = 31; // fInitialize -
SFVM_BACKGROUNDENUM = 32; // - -
SFVM_DIDDRAGDROP = 36; // dwEffect IDataObject *
SFVM_SETISFV = 39; // - IShellFolderView*
SFVM_THISIDLIST = 41; // - LPITMIDLIST*
SFVM_ADDPROPERTYPAGES = 47; // - SFVM_PROPPAGE_DATA *
SFVM_BACKGROUNDENUMDONE = 48; // - -
SFVM_GETNOTIFY = 49; // LPITEMIDLIST* LONG*
SFVM_GETSORTDEFAULTS = 53; // iDirection iParamSort
SFVM_SIZE = 57; // - -
SFVM_GETZONE = 58; // - DWORD*
SFVM_GETPANE = 59; // Pane ID DWORD*
SFVM_GETHELPTOPIC = 63; // - SFVM_HELPTOPIC_DATA *
SFVM_GETANIMATION = 68; // HINSTANCE * WCHAR *
// uMsg wParam lParam
DFM_MERGECONTEXTMENU = 1; // uFlags LPQCMINFO
DFM_INVOKECOMMAND = 2; // idCmd pszArgs
DFM_GETDEFSTATICID = 14; // idCmd * 0
// Commands from DFM_INVOKECOMMAND when strings are passed in
DFM_CMD_PROPERTIES = dword(-5);
SFVM_REARRANGE = $00000001;
SFVM_ADDOBJECT = $00000003;
SFVM_REMOVEOBJECT = $00000006;
SFVM_UPDATEOBJECT = $00000007;
SFVM_GETSELECTEDOBJECTS = $00000009;
SFVM_SETITEMPOS = $0000000e;
SFVM_SETCLIPBOARD = $00000010;
SFVM_SETPOINTS = $00000017;
PID_IS_URL = 2;
PID_IS_NAME = 4;
PID_IS_WORKINGDIR = 5;
PID_IS_HOTKEY = 6;
PID_IS_SHOWCMD = 7;
PID_IS_ICONINDEX = 8;
PID_IS_ICONFILE = 9;
PID_IS_WHATSNEW = 10;
PID_IS_AUTHOR = 11;
PID_IS_DESCRIPTION = 12;
PID_IS_COMMENT = 13;
PID_INTSITE_WHATSNEW = 2;
PID_INTSITE_AUTHOR = 3;
PID_INTSITE_LASTVISIT = 4;
PID_INTSITE_LASTMOD = 5;
PID_INTSITE_VISITCOUNT = 6;
PID_INTSITE_DESCRIPTION = 7;
PID_INTSITE_COMMENT = 8;
PID_INTSITE_FLAGS = 9;
PID_INTSITE_CONTENTLEN = 10;
PID_INTSITE_CONTENTCODE = 11;
PID_INTSITE_RECURSE = 12;
PID_INTSITE_WATCH = 13;
PID_INTSITE_SUBSCRIPTION = 14;
PID_INTSITE_URL = 15;
PID_INTSITE_TITLE = 16;
PID_INTSITE_CODEPAGE = 18;
PID_INTSITE_TRACKING = 19;
PID_INTSITE_ICONINDEX = 20;
PID_INTSITE_ICONFILE = 21;
// Flags for PID_IS_FLAGS
PIDISF_RECENTLYCHANGED = $00000001;
PIDISF_CACHEDSTICKY = $00000002;
PIDISF_CACHEIMAGES = $00000010;
PIDISF_FOLLOWALLLINKS = $00000020;
// Values for PID_INTSITE_WATCH
PIDISM_GLOBAL = 0; // Monitor based on global setting
PIDISM_WATCH = 1; // User says watch
PIDISM_DONTWATCH = 2; // User says don't watch
SSF_SHOWALLOBJECTS = $00000001;
SSF_SHOWEXTENSIONS = $00000002;
SSF_HIDDENFILEEXTS = $00000004;
SSF_SERVERADMINUI = $00000004;
SSF_SHOWCOMPCOLOR = $00000008;
SSF_SORTCOLUMNS = $00000010;
SSF_SHOWSYSFILES = $00000020;
SSF_DOUBLECLICKINWEBVIEW = $00000080;
SSF_SHOWATTRIBCOL = $00000100;
SSF_DESKTOPHTML = $00000200;
SSF_WIN95CLASSIC = $00000400;
SSF_DONTPRETTYPATH = $00000800;
SSF_SHOWINFOTIP = $00002000;
SSF_MAPNETDRVBUTTON = $00001000;
SSF_NOCONFIRMRECYCLE = $00008000;
SSF_HIDEICONS = $00004000;
SSF_FILTER = $00010000;
SSF_WEBVIEW = $00020000;
SSF_SHOWSUPERHIDDEN = $00040000;
SSF_SEPPROCESS = $00080000;
SSF_NONETCRAWLING = $00100000;
SSF_STARTPANELON = $00200000;
SSF_SHOWSTARTPAGE = $00400000;
SHPPFW_NONE = $00000000;
SHPPFW_DIRCREATE = $00000001; // Create the directory if it doesn't exist without asking the user.
SHPPFW_DEFAULT = SHPPFW_DIRCREATE; // May change
SHPPFW_ASKDIRCREATE = $00000002; // Create the directory if it doesn't exist after asking the user.
SHPPFW_IGNOREFILENAME = $00000004; // Ignore the last item in pszPath because it's a file. Example: pszPath="C:\DirA\DirB", only use "C:\DirA".
SHPPFW_NOWRITECHECK = $00000008; // Caller only needs to read from the drive, so don't check if it's READ ONLY.
SHPPFW_MEDIACHECKONLY = $00000010; // do the retrys on the media (or net path), return errors if the file can't be found
Type
HDROP = THandle;
PHIcon = ^HIcon;
STARTUPINFOW = record // a guess. Omission should get fixed in Windows.
cb : DWORD;
lpReserved : LPTSTR;
lpDesktop : LPTSTR;
lpTitle : LPTSTR;
dwX : DWORD;
dwY : DWORD;
dwXSize : DWORD;
dwYSize : DWORD;
dwXCountChars : DWORD;
dwYCountChars : DWORD;
dwFillAttribute : DWORD;
dwFlags : DWORD;
wShowWindow : WORD;
cbReserved2 : WORD;
lpReserved2 : LPBYTE;
hStdInput : HANDLE;
hStdOutput : HANDLE;
hStdError : HANDLE;
end;
LPSTARTUPINFOW = ^STARTUPINFOW;
_STARTUPINFOW = STARTUPINFOW;
TSTARTUPINFOW = STARTUPINFOW;
PSTARTUPINFOW = ^STARTUPINFOW;
{unicode}
Function DragQueryFileA(arg1 : HDROP; arg2 : UINT;arg3 : LPSTR ; arg4 : UINT):UINT;external shell32 name 'DragQueryFileA';
Function DragQueryFileW(arg1 : HDROP; arg2 : UINT;arg3 : LPWSTR; arg4 : UINT):UINT;external shell32 name 'DragQueryFileW';
Function DragQueryFile(arg1 : HDROP; arg2 : UINT;arg3 : LPSTR ; arg4 : UINT):UINT;external shell32 name 'DragQueryFileA';
Function DragQueryFile(arg1 : HDROP; arg2 : UINT;arg3 : LPWSTR; arg4 : UINT):UINT;external shell32 name 'DragQueryFileW';
Function DragQueryPoint(arg1 : HDROP; arg2 :LPPOINT):BOOL; external shell32 name 'DragQueryPoint';
Procedure DragFinish(arg1 : HDROP); external shell32 name 'DragFinish';
Procedure DragAcceptFiles(hwnd : HWND;arg2: BOOL); external shell32 name 'DragAcceptFiles';
Function ShellExecuteA(HWND: hwnd;lpOperation : LPCSTR ; lpFile : LPCSTR ; lpParameters : LPCSTR; lpDirectory: LPCSTR; nShowCmd:LONGINT):HInst; external shell32 name 'ShellExecuteA';
Function ShellExecuteW(hwnd: HWND;lpOperation : LPCWSTR ; lpFile : LPCWSTR ; lpParameters : LPCWSTR; lpDirectory: LPCWSTR; nShowCmd:LONGINT):HInst; external shell32 name 'ShellExecuteW';
Function ShellExecute(HWND: hwnd;lpOperation : LPCSTR ; lpFile : LPCSTR ; lpParameters : LPCSTR; lpDirectory: LPCSTR; nShowCmd:LONGINT):HInst; external shell32 name 'ShellExecuteA';
Function ShellExecute(hwnd: HWND;lpOperation : LPCWSTR ; lpFile : LPCWSTR ; lpParameters : LPCWSTR; lpDirectory: LPCWSTR; nShowCmd:LONGINT):HInst; external shell32 name 'ShellExecuteW';
Function FindExecutableA(lpFile : LPCSTR ;lpDirectory : LPCSTR ; lpResult : LPSTR):HInst;external shell32 name 'FindExecutableA';
Function FindExecutableW(lpFile : LPCWSTR;lpDirectory : LPCWSTR; lpResult : LPWSTR):HInst;external shell32 name 'FindExecutableW';
Function FindExecutable(lpFile : LPCSTR ;lpDirectory : LPCSTR ; lpResult : LPSTR):HInst;external shell32 name 'FindExecutableA';
Function FindExecutable(lpFile : LPCWSTR;lpDirectory : LPCWSTR; lpResult : LPWSTR):HInst;external shell32 name 'FindExecutableW';
Function CommandLineToArgvW(lpCmdLine : LPCWSTR;pNumArgs : plongint):pLPWSTR;external shell32 name 'CommandLineToArgvW';
Function ShellAboutA(HWND: hWnd; szApp : LPCSTR; szOtherStuff : LPCSTR; HICON : hIcon):Longint; external shell32 name 'ShellAboutA';
Function ShellAboutW(HWND: hWnd; szApp : LPCWSTR; szOtherStuff : LPCWSTR; HICON : hIcon):Longint; external shell32 name 'ShellAboutW';
Function ShellAbout(HWND: hWnd; szApp : LPCSTR; szOtherStuff : LPCSTR; HICON : hIcon):Longint; external shell32 name 'ShellAboutA';
Function ShellAbout(HWND: hWnd; szApp : LPCWSTR; szOtherStuff : LPCWSTR; HICON : hIcon):Longint; external shell32 name 'ShellAboutW';
Function DuplicateIcon(hinst : HINST; HICON: hIcon):HIcon; external shell32 name 'DuplicateIcon';
Function ExtractAssociatedIconA(hInst : HINST; lpIconPath : LPSTR; lpiIcon : LPWORD):HICON;external shell32 name 'ExtractAssociatedIconA';
Function ExtractAssociatedIconW(hInst : HINST; lpIconPath : LPWSTR; lpiIcon : LPWORD):HICON;external shell32 name 'ExtractAssociatedIconW';
Function ExtractAssociatedIcon(hInst : HINST; lpIconPath : LPSTR; lpiIcon : LPWORD):HICON;external shell32 name 'ExtractAssociatedIconA';
Function ExtractAssociatedIcon(hInst : HINST; lpIconPath : LPWSTR; lpiIcon : LPWORD):HICON;external shell32 name 'ExtractAssociatedIconW';
Function ExtractIconA(hInst: HINST; lpszExeFileName :LPCSTR ; nIconIndex : UINT):HICON;external shell32 name 'ExtractIconA';
Function ExtractIconW(hInst: HINST; lpszExeFileName :LPCWSTR ; nIconIndex : UINT):HICON;external shell32 name 'ExtractIconW';
Function ExtractIcon(hInst: HINST; lpszExeFileName :LPCSTR ; nIconIndex : UINT):HICON;external shell32 name 'ExtractIconA';
Function ExtractIcon(hInst: HINST; lpszExeFileName :LPCWSTR ; nIconIndex : UINT):HICON;external shell32 name 'ExtractIconW';
// if(WINVER >= 0x0400)
Type
{ init with sizeof(DRAGINFO) }
_DRAGINFOA = Record
uSize : UINT;
pt : POINT;
fNC : BOOL;
lpFileList : LPSTR;
grfKeyState : DWORD;
end;
DRAGINFOA = _DRAGINFOA;
TDRAGINFOA = _DRAGINFOA;
LPDRAGINFOA = ^_DRAGINFOA;
{ init with sizeof(DRAGINFO) }
_DRAGINFOW = Record
uSize : UINT;
pt : POINT;
fNC : BOOL;
lpFileList : LPWSTR;
grfKeyState : DWORD;
end;
DRAGINFOW = _DRAGINFOW;
TDRAGINFOW = _DRAGINFOW;
LPDRAGINFOW = ^_DRAGINFOW;
{$ifdef UNICODE}
DRAGINFO = DRAGINFOW;
TDRAGINFO = DRAGINFOW;
LPDRAGINFO = LPDRAGINFOW;
{$else}
DRAGINFO = DRAGINFOA;
TDRAGINFO = DRAGINFOW;
LPDRAGINFO = LPDRAGINFOA;
{$endif}
Const
ABM_NEW = $00000000;
ABM_REMOVE = $00000001;
ABM_QUERYPOS = $00000002;
ABM_SETPOS = $00000003;
ABM_GETSTATE = $00000004;
ABM_GETTASKBARPOS = $00000005;
ABM_ACTIVATE = $00000006; { lParam == TRUE/FALSE means activate/deactivate }
ABM_GETAUTOHIDEBAR = $00000007;
ABM_SETAUTOHIDEBAR = $00000008; { this can fail at any time. MUST check the result }
{ lParam = TRUE/FALSE Set/Unset }
{ uEdge = what edge }
ABM_WINDOWPOSCHANGED = $0000009;
ABM_SETSTATE = $0000000a;
ABN_STATECHANGE = $0000000; { these are put in the wparam of callback messages }
ABN_POSCHANGED = $0000001;
ABN_FULLSCREENAPP = $0000002;
ABN_WINDOWARRANGE = $0000003; { lParam == TRUE means hide }
{ flags for get state }
ABS_AUTOHIDE = $0000001;
ABS_ALWAYSONTOP = $0000002;
ABE_LEFT = 0;
ABE_TOP = 1;
ABE_RIGHT = 2;
ABE_BOTTOM = 3;
Type
_AppBarData = Record
cbSize : DWORD;
hWnd : HWND;
uCallbackMessage : UINT;
uEdge : UINT;
rc : RECT;
lParam : LPARAM; { message specific }
end;
APPBARDATA = _AppBarData;
TAPPBARDATA = _AppBarData;
PAPPBARDATA = ^_AppBarData;
Function SHAppBarMessage(dwMessage : DWORD; pData : pAPPBARDATA):UINT_PTR;external shell32 name 'SHAppBarMessage';
//
// EndAppBar
//
Function DoEnvironmentSubstA(szString: LPSTR; cchString:UINT):DWORD;external shell32 name 'DoEnvironmentSubstA';
Function DoEnvironmentSubstW(szString: LPWSTR; cchString:UINT):DWORD;external shell32 name 'DoEnvironmentSubstW';
Function DoEnvironmentSubst(szString: LPSTR; cchString:UINT):DWORD;external shell32 name 'DoEnvironmentSubstA';
Function DoEnvironmentSubst(szString: LPWSTR; cchString:UINT):DWORD;external shell32 name 'DoEnvironmentSubstW';
{Macro}
function EIRESID(x : longint) : longint;
Function ExtractIconExA(lpszFile : LPCSTR; nIconIndex:Longint; phiconLarge:pHICON; phiconSmall:pHIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExA';
Function ExtractIconExW(lpszFile : LPCWSTR; nIconIndex:Longint; phiconLarge:pHICON; phiconSmall:pHIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExW';
Function ExtractIconExA(lpszFile : LPCSTR; nIconIndex:Longint; var phiconLarge:HICON;var phiconSmall:HIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExA';
Function ExtractIconExW(lpszFile : LPCWSTR; nIconIndex:Longint; var phiconLarge:HICON;var phiconSmall:HIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExW';
Function ExtractIconEx (lpszFile : LPCSTR; nIconIndex:Longint; phiconLarge:pHICON; phiconSmall:pHIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExA';
Function ExtractIconEx (lpszFile : LPCWSTR; nIconIndex:Longint; phiconLarge:pHICON; phiconSmall:pHIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExW';
Function ExtractIconEx (lpszFile : LPCSTR; nIconIndex:Longint; var phiconLarge:HICON;var phiconSmall:HIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExA';
Function ExtractIconEx (lpszFile : LPCWSTR; nIconIndex:Longint; var phiconLarge:HICON;var phiconSmall:HIcon; nIcons:UINT):UINT; external shell32 name 'ExtractIconExW';
//
// Shell File Operations
//
//ifndef FO_MOVE //these need to be kept in sync with the ones in shlobj.h}
Const
FO_MOVE = $0001;
FO_COPY = $0002;
FO_DELETE = $0003;
FO_RENAME = $0004;
FOF_MULTIDESTFILES = $0001;
FOF_CONFIRMMOUSE = $0002;
FOF_SILENT = $0004; { don't create progress/report }
FOF_RENAMEONCOLLISION = $0008;
FOF_NOCONFIRMATION = $0010; { Don't prompt the user. }
FOF_WANTMAPPINGHANDLE = $0020; { Fill in SHFILEOPSTRUCT.hNameMappings }
FOF_ALLOWUNDO = $0040; { Must be freed using SHFreeNameMappings }
FOF_FILESONLY = $0080; { on *.*, do only files }
FOF_SIMPLEPROGRESS = $0100; { means don't show names of files }
FOF_NOCONFIRMMKDIR = $0200; { don't confirm making any needed dirs }
FOF_NOERRORUI = $0400; { don't put up error UI }
FOF_NOCOPYSECURITYATTRIBS= $0800; { dont copy NT file Security Attributes }
FOF_NORECURSION = $1000; { don't recurse into directories. }
//if (_WIN32_IE >= 0x0500)
FOF_NO_CONNECTED_ELEMENTS= $2000; { don't operate on connected elements. }
FOF_WANTNUKEWARNING = $4000; { during delete operation, warn if nuking instead of recycling (partially overrides FOF_NOCONFIRMATION) }
//endif
//if (_WIN32_WINNT >= 0x0501)
FOF_NORECURSEREPARSE = $8000; { treat reparse points as objects, not containers }
//endif
Type
FILEOP_FLAGS = WORD;
Const
PO_DELETE = $0013; { printer is being deleted }
PO_RENAME = $0014; { printer is being renamed }
PO_PORTCHANGE = $0020; { port this printer connected to is being changed }
{ if this id is set, the strings received by }
{ the copyhook are a doubly-null terminated }
{ list of strings. The first is the printer }
{ name and the second is the printer port. }
PO_REN_PORT = $0034; { PO_RENAME and PO_PORTCHANGE at same time. }
{ no POF_ flags currently defined }
Type
PRINTEROP_FLAGS = WORD;
//endif}
{ FO_MOVE }
{ implicit parameters are: }
{ if pFrom or pTo are unqualified names the current directories are }
{ taken from the global current drive/directory settings managed }
{ by Get/SetCurrentDrive/Directory }
{ }
{ the global confirmation settings }
{ only used if FOF_SIMPLEPROGRESS }
Type
_SHFILEOPSTRUCTA = Record
wnd : HWND;
wFunc : UINT;
pFrom : LPCSTR;
pTo : LPCSTR;
fFlags : FILEOP_FLAGS;
fAnyOperationsAborted : BOOL;
hNameMappings : LPVOID;
lpszProgressTitle : LPCSTR; { only used if FOF_SIMPLEPROGRESS }
end;
SHFILEOPSTRUCTA = _SHFILEOPSTRUCTA;
TSHFILEOPSTRUCTA = _SHFILEOPSTRUCTA;
LPSHFILEOPSTRUCTA = ^_SHFILEOPSTRUCTA;
_SHFILEOPSTRUCTW = record
wnd : HWND;
wFunc : UINT;
pFrom : LPCWSTR;
pTo : LPCWSTR;
fFlags : FILEOP_FLAGS;
fAnyOperationsAborted : BOOL;
hNameMappings : LPVOID;
lpszProgressTitle : LPCWSTR;
end;
SHFILEOPSTRUCTW = _SHFILEOPSTRUCTW;
TSHFILEOPSTRUCTW = _SHFILEOPSTRUCTW;
LPSHFILEOPSTRUCTW = ^_SHFILEOPSTRUCTW;
{$ifdef UNICODE}
SHFILEOPSTRUCT = SHFILEOPSTRUCTW;
TSHFILEOPSTRUCT = SHFILEOPSTRUCTW;
LPSHFILEOPSTRUCT = LPSHFILEOPSTRUCTW;
{$else}
SHFILEOPSTRUCT = SHFILEOPSTRUCTA;
TSHFILEOPSTRUCT = SHFILEOPSTRUCTA;
LPSHFILEOPSTRUCT = LPSHFILEOPSTRUCTA;
{$endif}
Function SHFileOperationA(lpFileOp:LPSHFILEOPSTRUCTA ):Longint;external shell32 name 'SHFileOperationA';
Function SHFileOperationW(lpFileOp:LPSHFILEOPSTRUCTW ):Longint;external shell32 name 'SHFileOperationW';
Function SHFileOperation(lpFileOp:LPSHFILEOPSTRUCTA ):Longint;external shell32 name 'SHFileOperationA';
Function SHFileOperation(var lpFileOp:SHFILEOPSTRUCTA ):Longint;external shell32 name 'SHFileOperationA';
Function SHFileOperation(lpFileOp:LPSHFILEOPSTRUCTW ):Longint;external shell32 name 'SHFileOperationW';
Procedure SHFreeNameMappings(hNameMappings : THandle);external shell32 name 'SHFreeNameMappings';
Type
_SHNAMEMAPPINGA = Record
pszOldPath : LPSTR;
pszNewPath : LPSTR;
cchOldPath : longint;
cchNewPath : longint;
end;
SHNAMEMAPPINGA = _SHNAMEMAPPINGA;
TSHNAMEMAPPINGA = _SHNAMEMAPPINGA;
LPSHNAMEMAPPINGA = ^_SHNAMEMAPPINGA;
_SHNAMEMAPPINGW = Record
pszOldPath : LPWSTR;
pszNewPath : LPWSTR;
cchOldPath : longint;
cchNewPath : longint;
end;
SHNAMEMAPPINGW = _SHNAMEMAPPINGW;
TSHNAMEMAPPINGW = _SHNAMEMAPPINGW;
LPSHNAMEMAPPINGW = ^_SHNAMEMAPPINGW;
{$ifndef UNICODE}
SHNAMEMAPPING = SHNAMEMAPPINGW;
TSHNAMEMAPPING = SHNAMEMAPPINGW;
LPSHNAMEMAPPING = LPSHNAMEMAPPINGW;
{$else}
SHNAMEMAPPING = SHNAMEMAPPINGA;
TSHNAMEMAPPING = SHNAMEMAPPINGA;
LPSHNAMEMAPPING = LPSHNAMEMAPPINGA;
{$endif}
//
// End Shell File Operations
//
//
// Begin ShellExecuteEx and family
//
{ ShellExecute() and ShellExecuteEx() error codes }
{ regular WinExec() codes }
const
SE_ERR_FNF = 2; { file not found }
SE_ERR_PNF = 3; { path not found }
SE_ERR_ACCESSDENIED = 5; { access denied }
SE_ERR_OOM = 8; { out of memory }
SE_ERR_DLLNOTFOUND = 32;
// endif WINVER >= 0x0400
{ error values for ShellExecute() beyond the regular WinExec() codes }
SE_ERR_SHARE = 26;
SE_ERR_ASSOCINCOMPLETE = 27;
SE_ERR_DDETIMEOUT = 28;
SE_ERR_DDEFAIL = 29;
SE_ERR_DDEBUSY = 30;
SE_ERR_NOASSOC = 31;
//if(WINVER >= 0x0400)}
{ Note CLASSKEY overrides CLASSNAME }
SEE_MASK_CLASSNAME = $00000001;
SEE_MASK_CLASSKEY = $00000003;
{ Note INVOKEIDLIST overrides IDLIST }
SEE_MASK_IDLIST = $00000004;
SEE_MASK_INVOKEIDLIST = $0000000c;
SEE_MASK_ICON = $00000010;
SEE_MASK_HOTKEY = $00000020;
SEE_MASK_NOCLOSEPROCESS = $00000040;
SEE_MASK_CONNECTNETDRV = $00000080;
SEE_MASK_FLAG_DDEWAIT = $00000100;
SEE_MASK_DOENVSUBST = $00000200;
SEE_MASK_FLAG_NO_UI = $00000400;
SEE_MASK_UNICODE = $00004000;
SEE_MASK_NO_CONSOLE = $00008000;
SEE_MASK_ASYNCOK = $00100000;
SEE_MASK_HMONITOR = $00200000;
//if (_WIN32_IE >= 0x0500)
SEE_MASK_NOQUERYCLASSSTORE= $01000000;
SEE_MASK_WAITFORINPUTIDLE= $02000000;
//endif (_WIN32_IE >= 0x500)
//if (_WIN32_IE >= 0x0560)
SEE_MASK_FLAG_LOG_USAGE = $04000000;
//endif
{ (_WIN32_IE >= 0x560) }
type
_SHELLEXECUTEINFOA = record
cbSize : DWORD;
fMask : ULONG;
wnd : HWND;
lpVerb : LPCSTR;
lpFile : LPCSTR;
lpParameters : LPCSTR;
lpDirectory : LPCSTR;
nShow : longint;
hInstApp : HINST;
lpIDList : LPVOID;
lpClass : LPCSTR;
hkeyClass : HKEY;
dwHotKey : DWORD;
DUMMYUNIONNAME : record
case longint of
0 : ( hIcon : HANDLE );
1 : ( hMonitor : HANDLE );
end;
hProcess : HANDLE;
end;
SHELLEXECUTEINFOA = _SHELLEXECUTEINFOA;
TSHELLEXECUTEINFOA = _SHELLEXECUTEINFOA;
LPSHELLEXECUTEINFOA = ^_SHELLEXECUTEINFOA;
_SHELLEXECUTEINFOW = record
cbSize : DWORD;
fMask : ULONG;
wnd : HWND;
lpVerb : lpcwstr;
lpFile : lpcwstr;
lpParameters : lpcwstr;
lpDirectory : lpcwstr;
nShow : longint;
hInstApp : HINST;
lpIDList : LPVOID;
lpClass : LPCWSTR;
hkeyClass : HKEY;
dwHotKey : DWORD;
DUMMYUNIONNAME : record
case longint of
0 : ( hIcon : HANDLE );
1 : ( hMonitor : HANDLE );
end;
hProcess : HANDLE;
end;
SHELLEXECUTEINFOW = _SHELLEXECUTEINFOW;
TSHELLEXECUTEINFOW = _SHELLEXECUTEINFOW;
LPSHELLEXECUTEINFOW = ^_SHELLEXECUTEINFOW;
{$ifdef UNICODE}
SHELLEXECUTEINFO = SHELLEXECUTEINFOW;
TSHELLEXECUTEINFO = SHELLEXECUTEINFOW;
LPSHELLEXECUTEINFO = LPSHELLEXECUTEINFOW;
{$else}
SHELLEXECUTEINFO = SHELLEXECUTEINFOA;
TSHELLEXECUTEINFO = SHELLEXECUTEINFOA;
LPSHELLEXECUTEINFO = LPSHELLEXECUTEINFOA;
{$endif}
Function ShellExecuteExA(lpExecInfo: LPSHELLEXECUTEINFOA):Bool;external shell32 name 'ShellExecuteExA';
Function ShellExecuteExW(lpExecInfo: LPSHELLEXECUTEINFOW):Bool;external shell32 name 'ShellExecuteExW';
Function ShellExecuteEx(lpExecInfo: LPSHELLEXECUTEINFOA):Bool;external shell32 name 'ShellExecuteExA';
Function ShellExecuteEx(lpExecInfo: LPSHELLEXECUTEINFOW):Bool;external shell32 name 'ShellExecuteExW';
Procedure WinExecErrorA(HWND : hwnd; error : Longint;lpstrFileName:LPCSTR; lpstrTitle:LPCSTR); external shell32 name 'WinExecErrorA';
Procedure WinExecErrorW(HWND : hwnd; error : Longint;lpstrFileName:LPCWSTR; lpstrTitle:LPCWSTR); external shell32 name 'WinExecErrorW';
Procedure WinExecError(HWND : hwnd; error : Longint;lpstrFileName:LPCSTR; lpstrTitle:LPCSTR); external shell32 name 'WinExecErrorA';
Procedure WinExecError(HWND : hwnd; error : Longint;lpstrFileName:LPCWSTR; lpstrTitle:LPCWSTR); external shell32 name 'WinExecErrorW';
type
_SHCREATEPROCESSINFOW = record
cbSize : DWORD;
fMask : ULONG;
hwnd : HWND;
pszFile : LPCWSTR;
pszParameters : LPCWSTR;
pszCurrentDirectory : LPCWSTR;
{in} hUserToken : HANDLE;
{in} lpProcessAttributes : LPSECURITY_ATTRIBUTES;
{in} lpThreadAttributes : LPSECURITY_ATTRIBUTES;
{in} bInheritHandles : BOOL;
{in} dwCreationFlags : DWORD;
{in} lpStartupInfo : LPSTARTUPINFOW;
{out} lpProcessInformation : LPPROCESS_INFORMATION;
end;
SHCREATEPROCESSINFOW = _SHCREATEPROCESSINFOW;
TSHCREATEPROCESSINFOW = _SHCREATEPROCESSINFOW;
PSHCREATEPROCESSINFOW = ^_SHCREATEPROCESSINFOW;
Function SHCreateProcessAsUserW(pscpi : PSHCREATEPROCESSINFOW):Bool;external shell32 name 'SHCreateProcessAsUserW';
//
// End ShellExecuteEx and family }
//
//
// RecycleBin
//
{ struct for query recycle bin info }
Type
_SHQUERYRBINFO = record
cbSize : DWORD;
i64Size : int64;
i64NumItems : int64;
end;
SHQUERYRBINFO = _SHQUERYRBINFO;
TSHQUERYRBINFO = _SHQUERYRBINFO;
LPSHQUERYRBINFO = ^_SHQUERYRBINFO;
{ flags for SHEmptyRecycleBin }
const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;
function SHQueryRecycleBinA(pszRootPath:LPCSTR; pSHQueryRBInfo:LPSHQUERYRBINFO):HRESULT;external shell32 name 'SHQueryRecycleBinA';
function SHQueryRecycleBinW(pszRootPath:LPCWSTR; pSHQueryRBInfo:LPSHQUERYRBINFO):HRESULT;external shell32 name 'SHQueryRecycleBinW';
function SHQueryRecycleBin(pszRootPath:LPCSTR; pSHQueryRBInfo:LPSHQUERYRBINFO):HRESULT;external shell32 name 'SHQueryRecycleBinA';
function SHQueryRecycleBin(pszRootPath:LPCWSTR; pSHQueryRBInfo:LPSHQUERYRBINFO):HRESULT;external shell32 name 'SHQueryRecycleBinW';
function SHEmptyRecycleBinA(hwnd:HWND; pszRootPath:LPCSTR; dwFlags:DWORD):HRESULT;external shell32 name 'SHEmptyRecycleBinA';
function SHEmptyRecycleBinW(hwnd:HWND; pszRootPath:LPCWSTR; dwFlags:DWORD):HRESULT;external shell32 name 'SHEmptyRecycleBinW';
function SHEmptyRecycleBin(hwnd:HWND; pszRootPath:LPCSTR; dwFlags:DWORD):HRESULT;external shell32 name 'SHEmptyRecycleBinA';
function SHEmptyRecycleBin(hwnd:HWND; pszRootPath:LPCWSTR; dwFlags:DWORD):HRESULT;external shell32 name 'SHEmptyRecycleBinW';
//
// end of RecycleBin
//
//
// Tray notification definitions
//
Type
_NOTIFYICONDATAA = record
cbSize : DWORD;
hWnd : HWND;
uID : UINT;
uFlags : UINT;
uCallbackMessage : UINT;
hIcon : HICON;
{$ifdef IELower5}
szTip : array[0..63] of CHAR;
{$else}
szTip : array[0..127] of CHAR;
{$endif}
{$ifdef IEhigherEqual5}
dwState : DWORD;
dwStateMask : DWORD;
szInfo : array[0..255] of CHAR;
DUMMYUNIONNAME : record
case longint of
0 : ( uTimeout : UINT );
1 : ( uVersion : UINT );
end;
szInfoTitle : array[0..63] of CHAR;
dwInfoFlags : DWORD;
{$endif}
{$ifdef IEHighEq6}
guidItem : GUID;
{$endif}
end;
NOTIFYICONDATAA = _NOTIFYICONDATAA;
TNOTIFYICONDATAA = _NOTIFYICONDATAA;
PNOTIFYICONDATAA = ^_NOTIFYICONDATAA;
_NOTIFYICONDATAW = record
cbSize : DWORD;
hWnd : HWND;
uID : UINT;
uFlags : UINT;
uCallbackMessage : UINT;
hIcon : HICON;
{$ifdef IELower5}
szTip : array[0..63] of WCHAR;
{$else}
szTip : array[0..127] of WCHAR;
{$endif}
{$ifdef IEhigherEqual5}
dwState : DWORD;
dwStateMask : DWORD;
szInfo : array[0..255] of WCHAR;
DUMMYUNIONNAME : record
case longint of
0 : ( uTimeout : UINT );
1 : ( uVersion : UINT );
end;
szInfoTitle : array[0..63] of CHAR;
dwInfoFlags : DWORD;
{$endif}
{$ifdef IEHighEq6}
guidItem : GUID;
{$endif}
end;
NOTIFYICONDATAW = _NOTIFYICONDATAW;
TNOTIFYICONDATAW = _NOTIFYICONDATAW;
PNOTIFYICONDATAW = ^_NOTIFYICONDATAW;
{$ifdef UNICODE}
NOTIFYICONDATA = NOTIFYICONDATAW;
TNOTIFYICONDATA = NOTIFYICONDATAW;
PNOTIFYICONDATA = PNOTIFYICONDATAW;
{$else}
NOTIFYICONDATA = NOTIFYICONDATAA;
TNOTIFYICONDATA = NOTIFYICONDATAA;
PNOTIFYICONDATA = PNOTIFYICONDATAA;
{$endif}
{ UNICODE }
{
#define NOTIFYICONDATAA_V1_SIZE FIELD_OFFSET(NOTIFYICONDATAA, szTip[64])
#define NOTIFYICONDATAW_V1_SIZE FIELD_OFFSET(NOTIFYICONDATAW, szTip[64])
#ifdef UNICODE
#define NOTIFYICONDATA_V1_SIZE NOTIFYICONDATAW_V1_SIZE
#else
#define NOTIFYICONDATA_V1_SIZE NOTIFYICONDATAA_V1_SIZE
#endif
#define NOTIFYICONDATAA_V2_SIZE FIELD_OFFSET(NOTIFYICONDATAA, guidItem)
#define NOTIFYICONDATAW_V2_SIZE FIELD_OFFSET(NOTIFYICONDATAW, guidItem)
#ifdef UNICODE
#define NOTIFYICONDATA_V2_SIZE NOTIFYICONDATAW_V2_SIZE
#else
#define NOTIFYICONDATA_V2_SIZE NOTIFYICONDATAA_V2_SIZE
#endif
}
const
NIN_SELECT = WM_USER + 0;
NINF_KEY = $1;
NIN_KEYSELECT = NIN_SELECT or NINF_KEY;
// if (_WIN32_IE >= 0x0501)}
NIN_BALLOONSHOW = WM_USER + 2;
NIN_BALLOONHIDE = WM_USER + 3;
NIN_BALLOONTIMEOUT = WM_USER + 4;
NIN_BALLOONUSERCLICK = WM_USER + 5;
NIM_ADD = $00000000;
NIM_MODIFY = $00000001;
NIM_DELETE = $00000002;
//if (_WIN32_IE >= 0x0500)}
NIM_SETFOCUS = $00000003;
NIM_SETVERSION = $00000004;
NOTIFYICON_VERSION = 3;
NIF_MESSAGE = $00000001;
NIF_ICON = $00000002;
NIF_TIP = $00000004;
// if (_WIN32_IE >= 0x0500)}
NIF_STATE = $00000008;
NIF_INFO = $00000010;
//if (_WIN32_IE >= 0x600)}
NIF_GUID = $00000020;
//if (_WIN32_IE >= 0x0500)}
NIS_HIDDEN = $00000001;
NIS_SHAREDICON = $00000002;
{ says this is the source of a shared icon }
{ Notify Icon Infotip flags }
NIIF_NONE = $00000000;
{ icon flags are mutually exclusive }
{ and take only the lowest 2 bits }
NIIF_INFO = $00000001;
NIIF_WARNING = $00000002;
NIIF_ERROR = $00000003;
NIIF_ICON_MASK = $0000000F;
//if (_WIN32_IE >= 0x0501)}
NIIF_NOSOUND = $00000010;
Function Shell_NotifyIconA( dwMessage: Dword;lpData: PNOTIFYICONDATAA):Bool;external shell32 name 'Shell_NotifyIconA';
Function Shell_NotifyIconW( dwMessage: Dword;lpData: PNOTIFYICONDATAW):Bool;external shell32 name 'Shell_NotifyIconW';
Function Shell_NotifyIcon( dwMessage: Dword;lpData: PNOTIFYICONDATAA):Bool;external shell32 name 'Shell_NotifyIconA';
Function Shell_NotifyIcon( dwMessage: Dword;lpData: PNOTIFYICONDATAW):Bool;external shell32 name 'Shell_NotifyIconW';
//
// End Tray Notification Icons
//
//
// Begin SHGetFileInfo
//
{
The SHGetFileInfo API provides an easy way to get attributes
for a file given a pathname.
PARAMETERS
pszPath file name to get info about
dwFileAttributes file attribs, only used with SHGFI_USEFILEATTRIBUTES
psfi place to return file info
cbFileInfo size of structure
uFlags flags
RETURN
TRUE if things worked
}
{ out: icon }
{ out: icon index }
{ out: SFGAO_ flags }
{ out: display name (or path) }
{ out: type name }
type
_SHFILEINFOA = record
hIcon : HICON; { out: icon }
iIcon : longint; { out: icon index }
dwAttributes : DWORD; { out: SFGAO_ flags }
szDisplayName : array[0..(MAX_PATH)-1] of CHAR; { out: display name (or path) }
szTypeName : array[0..79] of CHAR; { out: type name }
end;
SHFILEINFOA = _SHFILEINFOA;
TSHFILEINFOA = _SHFILEINFOA;
pSHFILEINFOA = ^_SHFILEINFOA;
_SHFILEINFOW = record
hIcon : HICON; { out: icon }
iIcon : longint; { out: icon index }
dwAttributes : DWORD; { out: SFGAO_ flags }
szDisplayName : array[0..(MAX_PATH)-1] of WCHAR;{ out: display name (or path) }
szTypeName : array[0..79] of WCHAR; { out: type name }
end;
SHFILEINFOW = _SHFILEINFOW;
TSHFILEINFOW = _SHFILEINFOW;
pSHFILEINFOW = ^_SHFILEINFOW;
{$ifdef UNICODE}
SHFILEINFO = SHFILEINFOW;
TSHFILEINFO = SHFILEINFOW;
pFILEINFO = SHFILEINFOW;
{$else}
SHFILEINFO = SHFILEINFOA;
TSHFILEINFO = SHFILEINFOA;
pFILEINFO = SHFILEINFOA;
{$endif}
{ NOTE: This is also in shlwapi.h. Please keep in synch. }
const
SHGFI_ICON = $000000100; { get Icon}
SHGFI_DISPLAYNAME = $000000200; { get display name }
SHGFI_TYPENAME = $000000400; { get type name }
SHGFI_ATTRIBUTES = $000000800; { get attributes }
SHGFI_ICONLOCATION = $000001000; { get icon location}
SHGFI_EXETYPE = $000002000; { return exe type }
SHGFI_SYSICONINDEX = $000004000; { get system icon index }
SHGFI_LINKOVERLAY = $000008000; { put a link overlay on icon }
SHGFI_SELECTED = $000010000; { show icon in selected state }
SHGFI_ATTR_SPECIFIED = $000020000; { get only specified attributes }
SHGFI_LARGEICON = $000000000; { get large icon }
SHGFI_SMALLICON = $000000001; { get small icon }
SHGFI_OPENICON = $000000002; { get open icon }
SHGFI_SHELLICONSIZE = $000000004; { get shell size icon }
SHGFI_PIDL = $000000008; { pszPath is a pidl }
SHGFI_USEFILEATTRIBUTES = $000000010; { use passed dwFileAttribute }
//if (_WIN32_IE >= 0x0500)}
SHGFI_ADDOVERLAYS = $000000020; { apply the appropriate overlays }
SHGFI_OVERLAYINDEX = $000000040; { Get the index of the overlay }
{ in the upper 8 bits of the iIcon }
Function SHGetFileInfoA(pszPath: LPCSTR; dwFileAttributes : DWORD; psfi: pSHFILEINFOA; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoA';
Function SHGetFileInfoW(pszPath: LPCWSTR; dwFileAttributes : DWORD; psfi: pSHFILEINFOW; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoW';
Function SHGetFileInfo(pszPath: LPCSTR; dwFileAttributes : DWORD; psfi: pSHFILEINFOA; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoA';
Function SHGetFileInfoA(pszPath: LPCSTR; dwFileAttributes : DWORD; var psfi: TSHFILEINFOA; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoA';
Function SHGetFileInfoW(pszPath: LPCWSTR; dwFileAttributes : DWORD; var psfi: TSHFILEINFOW; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoW';
Function SHGetFileInfo(pszPath: LPCSTR; dwFileAttributes : DWORD; var psfi: TSHFILEINFOA; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoA';
Function SHGetFileInfo(pszPath: LPCWSTR; dwFileAttributes : DWORD; var psfi: TSHFILEINFOW; cbFileInfo,UFlags: UINT):DWORD_PTR;external shell32 name 'SHGetFileInfoW';
Function SHGetDiskFreeSpaceExA( pszDirectoryName : LPCSTR; pulFreeBytesAvailableToCaller : pULARGE_INTEGER; pulTotalNumberOfBytes : pULARGE_INTEGER;pulTotalNumberOfFreeBytes: pULARGE_INTEGER):Bool;external shell32 name 'SHGetDiskFreeSpaceExA';
Function SHGetDiskFreeSpaceExW( pszDirectoryName : LPCWSTR; pulFreeBytesAvailableToCaller : pULARGE_INTEGER; pulTotalNumberOfBytes : pULARGE_INTEGER;pulTotalNumberOfFreeBytes: pULARGE_INTEGER):Bool;external shell32 name 'SHGetDiskFreeSpaceExW';
Function SHGetDiskFreeSpaceEx( pszDirectoryName : LPCSTR; pulFreeBytesAvailableToCaller : pULARGE_INTEGER; pulTotalNumberOfBytes : pULARGE_INTEGER;pulTotalNumberOfFreeBytes: pULARGE_INTEGER):Bool;external shell32 name 'SHGetDiskFreeSpaceExA';
Function SHGetDiskFreeSpace( pszDirectoryName : LPCSTR; pulFreeBytesAvailableToCaller : pULARGE_INTEGER; pulTotalNumberOfBytes : pULARGE_INTEGER;pulTotalNumberOfFreeBytes: pULARGE_INTEGER):Bool;external shell32 name 'SHGetDiskFreeSpaceExA';
Function SHGetDiskFreeSpaceEx( pszDirectoryName : LPCWSTR; pulFreeBytesAvailableToCaller : pULARGE_INTEGER; pulTotalNumberOfBytes : pULARGE_INTEGER;pulTotalNumberOfFreeBytes: pULARGE_INTEGER):Bool;external shell32 name 'SHGetDiskFreeSpaceExW';
Function SHGetDiskFreeSpace( pszDirectoryName : LPCWSTR; pulFreeBytesAvailableToCaller : pULARGE_INTEGER; pulTotalNumberOfBytes : pULARGE_INTEGER;pulTotalNumberOfFreeBytes: pULARGE_INTEGER):Bool;external shell32 name 'SHGetDiskFreeSpaceExW';
Function SHGetNewLinkInfoA(pszLinkTo:LPCSTR;pszDir:LPCSTR; pszName:LPSTR; pfMustCopy: pBool; uFlags:UINT):Bool;external shell32 name 'SHGetNewLinkInfoA';
Function SHGetNewLinkInfoW(pszLinkTo:LPCWSTR;pszDir:LPCWSTR; pszName:LPWSTR; pfMustCopy: pBool; uFlags:UINT):Bool;external shell32 name 'SHGetNewLinkInfoW';
Function SHGetNewLinkInfo (pszLinkTo:LPCSTR;pszDir:LPCSTR; pszName:LPSTR; pfMustCopy: pBool; uFlags:UINT):Bool;external shell32 name 'SHGetNewLinkInfoA';
Function SHGetNewLinkInfo (pszLinkTo:LPCWSTR;pszDir:LPCWSTR; pszName:LPWSTR; pfMustCopy: pBool; uFlags:UINT):Bool;external shell32 name 'SHGetNewLinkInfoW';
const
SHGNLI_PIDL = $000000001; { pszLinkTo is a pidl }
SHGNLI_PREFIXNAME = $000000002; { Make name "Shortcut to xxx" }
SHGNLI_NOUNIQUE = $000000004; { don't do the unique name generation }
// {if (_WIN32_IE >= 0x0501)}
SHGNLI_NOLNK = $000000008; { don't add ".lnk" extension }
// {$endif}
{ _WIN2_IE >= 0x0501 }
//
// End SHGetFileInfo
//
{ Printer stuff }
PRINTACTION_OPEN = 0;
PRINTACTION_PROPERTIES = 1;
PRINTACTION_NETINSTALL = 2;
PRINTACTION_NETINSTALLLINK = 3;
PRINTACTION_TESTPAGE = 4;
PRINTACTION_OPENNETPRN = 5;
{$ifdef WINNT}
PRINTACTION_DOCUMENTDEFAULTS = 6;
PRINTACTION_SERVERPROPERTIES = 7;
{$endif}
Function SHInvokePrinterCommandA(HWND: hwnd; uAction:UINT; lpBuf1: LPCSTR; lpBuf2: LPCSTR; fModal:Bool):Bool;external shell32 name 'SHInvokePrinterCommandA';
Function SHInvokePrinterCommandW(HWND: hwnd; uAction:UINT; lpBuf1: LPCWSTR; lpBuf2: LPCWSTR; fModal:Bool):Bool;external shell32 name 'SHInvokePrinterCommandW';
Function SHInvokePrinterCommand(HWND: hwnd; uAction:UINT; lpBuf1: LPCSTR; lpBuf2: LPCSTR; fModal:Bool):Bool;external shell32 name 'SHInvokePrinterCommandA';
Function SHInvokePrinterCommand(HWND: hwnd; uAction:UINT; lpBuf1: LPCWSTR; lpBuf2: LPCWSTR; fModal:Bool):Bool;external shell32 name 'SHInvokePrinterCommandW';
// WINVER >= 0x0400
//if (_WIN32_WINNT >= 0x0500) || (_WIN32_WINDOWS >= 0x0500)
//
// The SHLoadNonloadedIconOverlayIdentifiers API causes the shell's
// icon overlay manager to load any registered icon overlay
// identifers that are not currently loaded. This is useful if an
// overlay identifier did not load at shell startup but is needed
// and can be loaded at a later time. Identifiers already loaded
// are not affected. Overlay identifiers implement the
// IShellIconOverlayIdentifier interface.
//
// Returns:
// S_OK
//
function SHLoadNonloadedIconOverlayIdentifiers:HResult; external shell32 name 'SHLoadNonloadedIconOverlayIdentifiers';
//
// The SHIsFileAvailableOffline API determines whether a file
// or folder is available for offline use.
//
// Parameters:
// pwszPath file name to get info about
// pdwStatus (optional) OFFLINE_STATUS_* flags returned here
//
// Returns:
// S_OK File/directory is available offline, unless
// OFFLINE_STATUS_INCOMPLETE is returned.
// E_INVALIDARG Path is invalid, or not a net path
// E_FAIL File/directory is not available offline
//
// Notes:
// OFFLINE_STATUS_INCOMPLETE is never returned for directories.
// Both OFFLINE_STATUS_LOCAL and OFFLINE_STATUS_REMOTE may be returned,
// indicating "open in both places." This is common when the server is online.
//
function SHIsFileAvailableOffline(pwszPath:LPCWSTR; pdwStatus:LPDWORD):HRESULT; external shell32 name 'SHIsFileAvailableOffline';
const
OFFLINE_STATUS_LOCAL = $0001; { If open, it's open locally }
OFFLINE_STATUS_REMOTE = $0002; { If open, it's open remotely }
OFFLINE_STATUS_INCOMPLETE = $0004; { The local copy is currently incomplete. }
{ The file will not be available offline }
{ until it has been synchronized. }
{ sets the specified path to use the string resource }
{ as the UI instead of the file system name }
function SHSetLocalizedName(pszPath:LPWSTR; pszResModule:LPCWSTR; idsRes:longint):HRESULT;external shell32 name 'SHSetLocalizedName';
//if _WIN32_IE >= 0x0600}
function SHEnumerateUnreadMailAccountsA(hKeyUser:HKEY; dwIndex:DWORD; pszMailAddress:LPSTR; cchMailAddress:longint):HRESULT;external shell32 name 'SHEnumerateUnreadMailAccountsA';
function SHEnumerateUnreadMailAccountsW(hKeyUser:HKEY; dwIndex:DWORD; pszMailAddress:LPWSTR; cchMailAddress:longint):HRESULT;external shell32 name 'SHEnumerateUnreadMailAccountsW';
function SHEnumerateUnreadMailAccounts(hKeyUser:HKEY; dwIndex:DWORD; pszMailAddress:LPWSTR; cchMailAddress:longint):HRESULT;external shell32 name 'SHEnumerateUnreadMailAccountsW';
function SHGetUnreadMailCountA(hKeyUser:HKEY; pszMailAddress:LPCSTR; pdwCount:PDWORD; pFileTime:PFILETIME; pszShellExecuteCommand:LPSTR;cchShellExecuteCommand:longint):HRESULT;external shell32 name 'SHGetUnreadMailCountA';
function SHGetUnreadMailCountW(hKeyUser:HKEY; pszMailAddress:LPCWSTR; pdwCount:PDWORD; pFileTime:PFILETIME; pszShellExecuteCommand:LPWSTR;cchShellExecuteCommand:longint):HRESULT;external shell32 name 'SHGetUnreadMailCountW';
function SHGetUnreadMailCount(hKeyUser:HKEY; pszMailAddress:LPCSTR; pdwCount:PDWORD; pFileTime:PFILETIME; pszShellExecuteCommand:LPSTR;cchShellExecuteCommand:longint):HRESULT;external shell32 name 'SHGetUnreadMailCountA';
function SHGetUnreadMailCount(hKeyUser:HKEY; pszMailAddress:LPCWSTR; pdwCount:PDWORD; pFileTime:PFILETIME; pszShellExecuteCommand:LPWSTR;cchShellExecuteCommand:longint):HRESULT;external shell32 name 'SHGetUnreadMailCountW';
function SHSetUnreadMailCountA(pszMailAddress:LPCSTR; dwCount:DWORD; pszShellExecuteCommand:LPCSTR):HRESULT;external shell32 name 'SHSetUnreadMailCountA';
function SHSetUnreadMailCountW(pszMailAddress:LPCWSTR; dwCount:DWORD; pszShellExecuteCommand:LPCWSTR):HRESULT;external shell32 name 'SHSetUnreadMailCountW';
function SHSetUnreadMailCount(pszMailAddress:LPCSTR; dwCount:DWORD; pszShellExecuteCommand:LPCSTR):HRESULT;external shell32 name 'SHSetUnreadMailCountA';
function SHSetUnreadMailCount(pszMailAddress:LPCWSTR; dwCount:DWORD; pszShellExecuteCommand:LPCWSTR):HRESULT;external shell32 name 'SHSetUnreadMailCountW';
// _WIN32_IE >= 0x0600 }
// if _WIN32_IE >= 0x0600}
function SHGetImageList(iImageList:longint;CONST riid:TIID; ppvObj:Ppointer):HRESULT;external shell32 name 'SHGetImageList';
Const
SHIL_LARGE = 0; { normally 32x32 }
SHIL_SMALL = 1; { normally 16x16 }
SHIL_EXTRALARGE = 2;
SHIL_SYSSMALL = 3; { like SHIL_SMALL, but tracks system small icon metric correctly }
SHIL_LAST = SHIL_SYSSMALL;
{ Function call types for ntshrui folder sharing helpers }
//typedef HRESULT (STDMETHODCALLTYPE *PFNSHOWSHAREFOLDERUIW)(IN HWND hwndParent, IN LPCSTR pszPath);
//typedef HRESULT (STDMETHODCALLTYPE *PFNSHOWSHAREFOLDERUIW)(IN HWND hwndParent, IN LPCWSTR pszPath);
implementation
function EIRESID(x : longint) : longint;
Begin
EIRESID:=-x;
End;
end.