obsidium.pas

一款优秀的壳

unit obsidium;

interface

function getRegInfo(dwInfoNr: LongWord; lpBuffer: PChar): Boolean; stdcall;
function getSystemID(lpBuffer: PChar): Boolean; stdcall;
function isRegistered: Boolean; stdcall;
procedure setExternalKey(lpKey: Pointer; dwSize: LongWord); stdcall;
procedure CallMark(dwMagic: LongWord); stdcall;
function setKeyfile(lpStr: PChar): Boolean; stdcall;
function getTrialRuns(): Integer; stdcall;
function getTrialDays(): Integer; stdcall;

implementation

const
 CALLMARK_REG_START      = $0DEFACED;
 CALLMARK_REG_END        = $DEADF00D;

function getRegInfo; external 'dummy.dll';
function getSystemID; external 'dummy.dll';
function isRegistered; external 'dummy.dll';
procedure setExternalKey; external 'dummy.dll';
procedure CallMark; external 'dummy.dll';
function setKeyfile; external 'dummy.dll';
function getTrialRuns; external 'dummy.dll';
function getTrialDays; external 'dummy.dll';

end.