33 lines
893 B
ObjectPascal
33 lines
893 B
ObjectPascal
|
unit dwCustomDestinationList;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows,
|
||
|
|
dwObjectArray;
|
||
|
|
|
||
|
|
const
|
||
|
|
CLSID_CustomDestinationList: TGUID = '{77f10cf0-3db5-4966-b520-b7c54fd35ed6}';
|
||
|
|
|
||
|
|
const
|
||
|
|
KDC_FREQUENT = $01;
|
||
|
|
KDC_RECENT = $02;
|
||
|
|
|
||
|
|
type
|
||
|
|
ICustomDestinationList = interface
|
||
|
|
['{6332debf-87b5-4670-90c0-5e57b408a49e}']
|
||
|
|
procedure SetAppID(pszAppID: LPWSTR); safecall;
|
||
|
|
function BeginList(out pcMaxSlots: UINT; riid: PGUID): IObjectArray; safecall;
|
||
|
|
procedure AppendCategory(pszCategory: LPWSTR; poa: IObjectArray); safecall;
|
||
|
|
procedure AppendKnownCategory(Category: Integer); safecall;
|
||
|
|
procedure AddUserTasks(poa: IUnknown); safecall;
|
||
|
|
procedure CommitList(); safecall;
|
||
|
|
function GetRemovedDestinations(riid: PGUID): IUnknown; safecall;
|
||
|
|
procedure DeleteList(pszAppID:LPWSTR); safecall;
|
||
|
|
procedure AbortList(); safecall;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|