interfaces.pas

来自「Delphi高级开发指南是开发程序的好帮手」· PAS 代码 · 共 32 行

unit Interfaces;

{ Declaration of specialized interfaces for use by both the components
  and the COM objects in the COM library.

  jfl
}

interface

uses
  ComObj, ActiveX, Windows, DropComponent;

const
  Class_DropTarget: TGUID = '{AC3EF5E0-0B33-11D1-AEEC-0080C7440B7E}';
  Class_ContextMenu: TGUID = '{0B67EC82-0B7E-11D1-AEEC-0080C7440B7E}';
  MK_ALT = $20;   // not defined in Delphi

type
  // Private initialization interface for TDropTarget
  IInitDropTarget = interface( IUnknown )
  ['{DB232EA2-E1C4-11D0-80B1-000021617139}']
    function AllowMultipleFiles( Value: Boolean ): HResult; stdcall;
    function Enabled( Value: Boolean ): HResult; stdcall;
    function SetDropTargetInstance(
      const DropTarget: TCustomDropComponent ): HResult; stdcall;
  end;

implementation

end.