You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

30 lines
512 B

  1. type
  2. TPBHeader = packed record
  3. VersionMagic: UInt32;
  4. PtrSize: byte;
  5. ProgramName: ShortString;
  6. ProgramFileSize: Int64;
  7. end;
  8. TPBEventHeader = packed record
  9. ThreadID: UInt32;
  10. Timestamp: UInt64;
  11. Kind: byte;
  12. end;
  13. TPBEventEnterProc = packed record
  14. // H: TPBEventHeader;
  15. Func: PtrUInt;
  16. NameLen: Byte;
  17. end;
  18. TPBEventExitProc = packed record
  19. // H: TPBEventHeader;
  20. end;
  21. const
  22. HEADER_VER_MAGIC = $b5bd0002;
  23. PB_KIND_ENTER = $00;
  24. PB_KIND_EXIT = $01;