哪个大哥给写个DLL的例子，要D7写的！在线等，解决就给分！

Question

最简单的就可以，一定要D7下可以调通的，
有输入输出参数，是字符串，要有引用的代码，
在线等，解决就给分！
发到信箱也可以
[email protected]

Answer 1

邮件已发, 你查收, 我给你的, 已经超出你要的, 是一个用 动态与静态调用 dll ,验证密码的例子, 有包含加密后返回加密的字符串!!

Answer 2

給一段代碼吧,公司不可以外發郵件
只能給
代碼了
library GetYMD;{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }uses
  SysUtils,
  Windows,dialogs,DateUtils,System,
  Classes;{$R *.res}         FUNCTION  get_ymd(C_NOW:Tdatetime):STRING;stdcall;
VAR
   YEAR_MONTH,DAY_MONTH:INTEGER;
   YN,DM:STRING;
   YEAR_NOW:STRING;
BEGIN
   YEAR_MONTH:=MonthOfTheYear(C_NOW);
   DAY_MONTH:=DayOfTheMonth(C_NOW);
   YEAR_NOW:=COPY(INTTOSTR(YEAROF(C_NOW)),LENGTH(INTTOSTR(YEAROF(C_NOW))),1);
   CASE YEAR_MONTH OF
     10: YN:='A';
     11: YN:='B';
     12: YN:='C';
     ELSE YN:=INTTOSTR(YEAR_MONTH);
   END;
   CASE DAY_MONTH OF
     10: DM:='A';
     11: DM:='B';
     12: DM:='C';
     13: DM:='D';
     14: DM:='E';
     15: DM:='F';
     16: DM:='G';
     17: DM:='H';
     18: DM:='I';
     19: DM:='J';
     20: DM:='K';
     21: DM:='L';
     22: DM:='M';
     23: DM:='N';
     24: DM:='O';
     25: DM:='P';
     26: DM:='Q';
     27: DM:='R';
     28: DM:='S';
     29: DM:='T';
     30: DM:='U';
     31: DM:='V';
     ELSE DM:=INTTOSTR(DAY_MONTH);
   END;
   RESULT:=YEAR_NOW+YN+DM;
END;exports
    get_ymd;
begin
end.