unit1.cpp

有视频

//---------------------------------------------------------------------------
#include <vcl.h>
#include <lzexpand.h>

#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  WinExec("Compress demo.mdb demo.ddd",SW_HIDE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int sf,df;
  long nn;
  OFSTRUCT s_OFSTRUCT,d_OFSTRUCT;
  sf=LZOpenFile("demo.ddd",&s_OFSTRUCT,OF_READ);
  if(sf==-1)
    ShowMessage("源文件打开错误！");
  df=LZOpenFile("demo1.mdb",&d_OFSTRUCT,OF_CREATE);
  if(df==-1)
    ShowMessage("目标文件打开错误！");
  nn=LZCopy(sf,df);
  if(nn<0)
    ShowMessage("压缩文件复制错误！");
  LZClose(sf);
  LZClose(df);
  ShowMessage("压缩文件成功复制！");
}
//---------------------------------------------------------------------------