memallocapi.pas

来自「停车场收费系统停车场收费系统停车场收费系统停车场收费系统」· PAS 代码 · 共 20 行

unit MemAllocAPI;

interface

type
  MEMHANDLE = LongWord;

function LoadDevice():LongWord;stdcall;
function CloseDevice(hVXD:LongWord):WordBool;stdcall;
function StaticMemAlloc(var BlockSize,PhysMemAddr,MemHandle,LineAddr:LongWord):wordBool;stdcall;


implementation

function LoadDevice; external 'MemAlloc.dll' name 'LoadDevice' ;
function CloseDevice; external 'MemAlloc.dll' name 'CloseDevice' ;
function StaticMemAlloc; external 'MemAlloc.dll' name 'StaticMemAlloc' ;

end.