function Get16BitMD5(const sMessage:string;const sType: boolean = false): string;StdCall;
调用之前要先在
implementation
{$R *.dfm}
之后加上
function Get16BitMD5(const sMessage:string;const sType: boolean = false): string;StdCall;External 'MD5.dll';
并且MD5.dll文件要在你的程序相同目录下
调用的例子
procedure TFrm_Main.B_TestClick(Sender: TObject);
begin
Edit1.Text:=Get16BitMD5(Edit1.Text);
End;
这样，每点击一次B_Test按钮，Edit1文本框内容就会变成上一次文本框中文字的MD5 16位加密的码文
