function ftok(__pathname:Pchar; __proj_id:longint):key_t;cdecl;external clib name 'ftok';


{ ---------------------------------------------------------------------
    Borland compatibility types
  ---------------------------------------------------------------------}

// Type