smsgh.inc 1.1 KB

1234567891011121314151617181920212223
  1. Type
  2. Pmsgbuf = ^msgbuf;
  3. msgbuf = record
  4. mtype : longint;
  5. mtext : array[0..0] of char;
  6. end;
  7. function msgctl(__msqid:longint; __cmd:longint; __buf:Pmsqid_ds):longint;cdecl;external clib name 'msgctl';
  8. function msgget(__key:key_t; __msgflg:longint):longint;cdecl;external clib name 'msgget';
  9. function msgrcv(__msqid:longint; __msgp:pointer; __msgsz:size_t; __msgtyp:longint; __msgflg:longint):longint;cdecl;external clib name 'msgrcv';
  10. function msgsnd(__msqid:longint; __msgp:pointer; __msgsz:size_t; __msgflg:longint):longint;cdecl;external clib name 'msgsnd';
  11. { ---------------------------------------------------------------------
  12. Borland compatibility types
  13. ---------------------------------------------------------------------}
  14. // Type
  15. function msgctl(__msqid:longint; __cmd:longint; const __buf:msqid_ds):longint;cdecl;external clib name 'msgctl';
  16. function msgrcv(__msqid:longint; var __msgp; __msgsz:size_t; __msgtyp:longint; __msgflg:longint):longint;cdecl;external clib name 'msgrcv';
  17. function msgsnd(__msqid:longint; const __msgp; __msgsz:size_t; __msgflg:longint):longint;cdecl;external clib name 'msgsnd';