发放我的一个 DLL 文件，有一个用来压缩的函数，用 vclzip 做成。顺便提及个问题

Question

函数 zip用法：
  Zip(压缩文件，解压目录，压缩模式，压缩包大小, DoProcessMessages)参数：
  ZipFile 为压缩目标文件名（或解压的压缩文件）
  压缩时，SrcZips 可以为单个文件或多个文件（用 ';' 隔开），还可以为目录
  解压时，SrcZips 必须为目录
  PWD: 压缩密码
  ZipMode为0：压缩；为1：解压缩　
  PackSize为0则不分包；否则为分包的大小
  bPM：是否后台处理  1 是 0 否返回值：
  布尔值，成功为 true 失败为 false

Answer 1

下载地址：http://upserver3.ys168.com/ys168up/D1/YY.aspx?f=04L50D8E1E6E2E4D5H3A01I7F8G6G6D6AVI7AVI5F8G5D9E4D9E2D6E7A24D9D8E1D9E6E7C3

Answer 2

奇怪的问题：函数中的参数，在 dll 中使用的是 pchar ，引用的接口中使用的是：string
发现竟然可以用哦，
不是说参数类型和顺序必须一样么？

Answer 3

发现竟然可以用哦，??Delphi 帮你转换了，

Answer 4

如果这样的话，那不是说我们可以很方便的使用么在 Dll 中实现的时候我们就使用 pchar 
接口里面用 string 来说明那那个什么  sharemem 的问题不成了多此一举么？

Answer 5

2004-11-17 增加两个函数function ProcTask(hApplication: THandle; sStatus: PChar; Proc:TProc):integer; stdcall;
说明:
  利用线程来执行参数 proc 指定的过程，执行的同时显示一个 "请等待..." 窗口参数：
  hApplication: 调用者的应用程序句柄
  sStatus: 等待时显示的窗口信息
  proc: 一个有 integer 型返回值得函数返回值：
  返回 proc 的返回值function GetSeaDllLastErrors:PChar; stdcall;返回 SeaDll 发生的任何错误信息