udll.pas

delphi的学习资料

unit 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.