1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
interface
procedure crt_memset(p: Pointer; b: Byte; count: Integer); cdecl;
procedure crt_memcpy(dest, source: Pointer; count: Integer); cdecl;
function crt_malloc(Size: Integer): Pointer; cdecl;
procedure crt_free(Block: Pointer); cdecl;
implementation;
const
msvcrt = 'msvcrt.dll';
procedure crt_memset; external msvcrt name 'memset';
procedure crt_memcpy; external msvcrt name 'memcpy';
procedure crt_malloc; external msvcrt name 'malloc';
procedure crt_free; external msvcrt name 'free'; |
Partager