home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / Clipboard.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  873 b   |  56 lines
  1. unit Clipboard;
  2.  
  3. INTERFACE
  4. uses Exec;
  5.  
  6.  
  7. type
  8.     pSatisfyMsg = ^tSatisfyMsg;
  9.     tSatisfyMsg = record
  10.         sm_Msg: tMessage;
  11.         sm_Unit: word;
  12.         sm_ClipID: longint;
  13.         end;
  14.  
  15.     pClipboardUnitPartial = ^tClipboardUnitPartial;
  16.     tClipboardUnitPartial = record
  17.         cu_Node: tNode;
  18.         cu_UnitNum: long;
  19.         end;
  20.  
  21.     pIOClipReq = ^tIOClipReq;
  22.     tIOClipReq = record
  23.         io_Message: tMessage;
  24.         io_Device: pDevice;
  25.         io_Unit: pClipboardUnitPartial;
  26.         io_Command: word;
  27.         io_Flags: byte;
  28.         io_Error: shortint;
  29.         io_Actual: long;
  30.         io_Length: long;
  31.         io_Data: STRPTR;
  32.         io_Offset: long;
  33.         io_ClipID: longint;
  34.         end;
  35.  
  36.     pClipHookMsg = ^tClipHookMsg;
  37.     tClipHookMsg = record
  38.         chm_Type: long;
  39.         chm_ChangeCmd: longint;
  40.         chm_ClipID: longint;
  41.         end;
  42.  
  43.  
  44.  
  45. const
  46.     CBD_CHANGEHOOK = $C;
  47.     CBD_POST = 9;
  48.     PRIMARY_CLIP = 0;
  49.     CBD_CURRENTREADID = $A;
  50.     CBD_CURRENTWRITEID = $B;
  51.     CBERR_OBSOLETEID = 1;
  52.  
  53.  
  54. IMPLEMENTATION
  55. end.
  56.