unit
Keystone;
interface
const
KS_ARCH_X86 =
1
;
KS_MODE_32 =
2
;
KS_ERR_OK =
0
;
type
PKS_ENGINE =
Pointer
;
PKS_ERR =
Integer
;
function
ks_open(arch:
Integer
; mode:
Integer
;
var
engine: PKS_ENGINE): PKS_ERR; stdcall; external
'keystone.dll'
;
function
ks_asm(engine: PKS_ENGINE; code:
PAnsiChar
; address: UInt64;
var
encode: PByte;
var
size: NativeUInt;
var
count: NativeUInt): PKS_ERR; stdcall; external
'keystone.dll'
;
procedure
ks_free(encode: PByte); stdcall; external
'keystone.dll'
;
procedure
ks_close(engine: PKS_ENGINE); stdcall; external
'keystone.dll'
;