怎样写这样的dll 函数

Question

本帖最后由 567567 于 2009-08-03 22:39:29 编辑

Answer 1

DLL代码：
library Dll;
uses
  SysUtils,
  Classes;{$R *.res}function HanShu(var AInput,AOutput: PChar): integer; stdcall;
begin
  Result := 0; //默认返回失败
  AOutput := '默认失败的原因';  if AInput = 'CSDN' then
  begin
    Result := 1;
    AOutput := '调用正确';
  end;
end;Exports
  HanShu;
end.
--------------------------------
调用方法：function HanShu(var AInput,AOutput: PChar): integer; stdcall; external 'dll.dll';var
 p1, p2: PChar;
begin
  p1 := 'CSDN';
  if Hanshu(p1,p2) = 1 then
    showmessage('成功: ' + string(p2))
  else 
    showmessage('失败: ' + string(p2));