
ѹ̬ӿZip.dllʹ
----------------------------------------------------------------

1ѹ̬ӿZip.dllѰʽ汾֣Ѱ汾
ʹá

2ְ汾֮ĲѰ"Ѱ"ϵϢ
Ѱ治ؽ壬ʽ汾иҪѡ
ܾʽ汾ͬ

3ʽ汾ʹȨ޹ʹã
ϢҲļУýѹ̬ӿZip.dllн
תúۣһ֣ȡֶηԸûĺ汾
ڷɵΧ׷ӦķΡ

4ӭûѰãϵۼ۽50Ԫҡ
ϵE-mailϵ"EastSoft@126.com" 

5ʹг⻶ӭϵʱ֪飬ллΪʹý
⣬QQʵʱȡϵQQ9562512

-----------------------------------------------------------------

	ESM
	ϵˣ¹
	E-mailEastSoft@126.com

*****************************************************************

ѹ̬ӿZip.dllʹ˵ʾ

*****************************************************************

    ΪԱԼĳмļĽ/ѹܣֵԪ
֮,رƳʵõĽ/ѹ̬ӿZip.dll V1.0.2.2档Ŀǰ
ѾԺܷıеĿԽеá̬û
ǷĿ¼ṹǷѹĿ¼ļǷʾѹȽ
ѡϸʹ˵ο˵ĵ,ʹκE-mail
(EastSoft@126.com)ϵ

    Zip.dllV1.0.0.0,յ˺ܴԱѵ,
ϣܹзĵ,ڲͬĿߵ
֮ͣںܴĲ죬ΪʹõĿߵԭ,Ŀǰ
ûгҵһַԽ,ֲIniļΪн,Ŀǰ
ڸезĵá

   delphi/VBʾ
   

***************************Delphiʾ****************************

ڵǰȸѹ/ѹļԼزzip.iniļ
áɺ󼴿ɲο´еá

Delphiʾ˵̬zip.dllļzip.iniDelphi
ĿִļͬһĿ¼Ҳʱдzip.dll·
̬zip.dllļzip.iniͬһĿ¼

procedure TForm1.Button2Click(Sender: TObject);
var
  MyHandle2: THandle;
  CompressFile: function : Boolean;
begin
  try
    MyHandle2 := LoadLibrary('zip.dll');
    if MyHandle2 < 32 then
      raise Exception.Create('̬ӿʧܣǣ' + Inttostr(Getlasterror));
  except
  end;

  if Myhandle2 = 0 then
  begin
    ShowMessage('δ');
    exit;
  end;
  CompressFile := GetProcAddress(MyHandle2, 'CompressFile');
  if Assigned(CompressFile) then
  begin
    if CompressFile then
      ShowMessage('ѹɹ')
    else
      ShowMessage('ѹʧ');
  end;

  try
    Freelibrary(Myhandle2); // жDLL
    Myhandle2 := 0;
  except
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  ExtractFileToDir:function : Boolean;
  MyHandle3: THandle;
begin
  try
    MyHandle3 := LoadLibrary('zip.dll');
    if MyHandle3 < 32 then
      raise Exception.Create('̬ӿʧܣǣ' + Inttostr(Getlasterror));
  except
  end;

  if Myhandle3 = 0 then
  begin
    ShowMessage('δ');
    exit;
  end;

  ExtractFileToDir := GetProcAddress(MyHandle3, 'ExtractFileToDir');
  if Assigned(ExtractFileToDir) then
  begin
    if ExtractFileToDir then
      ShowMessage('ѹɹ')
    else
      ShowMessage('ѹʧ');
  end;

  try
    Freelibrary(Myhandle3); // жDLL
    Myhandle3 := 0;
  except
  end;
end;



******************************VBʾ*****************************
ڵǰȸѹ/ѹļԼزzip.iniļ
áɺ󼴿ɲο´еá

VBʾ˵̬zip.dllļzip.iniVBĿ
ִļͬһĿ¼Ҳʱдzip.dll·̬zip.dll
ļzip.iniͬһĿ¼

Private Declare Function CompressFile Lib "zip.dll" () As Boolean
Private Declare Function ExtractFileToDir Lib "zip.dll" () As Boolean

Private Sub Command1_Click()
    If CompressFile Then
       MsgBox "OK"
    Else: MsgBox "F"
    End If
End Sub

Private Sub Command2_Click()
    If ExtractFileToDir Then
       MsgBox "OK"
    Else: MsgBox "F"
    End If
End Sub
