e27_udll.pas

来自「delphi的学习资料」· PAS 代码 · 共 18 行

unit E27_uDLL;

interface
uses Graphics;

function Reduce(sz: word; k: single): word;
function Enlarge(sz: word; k: single): word;
function VarColor(cr: TColor): TColor;


implementation

function Reduce; external 'DLL_E27';
function Enlarge; external 'DLL_E27';
function VarColor;  external 'DLL_E27';

end.