[Back to WIN-OS2 SWAG index] [Back to Main SWAG index] [Original]

    {
    From: mav@dseg.ti.com (Michael Vincze)

    >Does anyone know how to use the decompression tool
    >incorporated into MS-Windows (lzexpand.dll) in BP7?

    Here's an example.  Note that you can only do decompression and not
    compression :^(
    }
      function CopyLZ (FileIn, FileOut: PChar): LongInt;
      var
        HandleIn  : Integer;
        HandleOut : Integer;
        StructIn  : TOFStruct;
        StructOut : TOFStruct;
        ReturnCode: LongInt;
      begin
      HandleIn := LZOpenFile (FileIn, StructIn, OF_READ);
      ReturnCode := LongInt (HandleIn);
      if (HandleIn > -1) then
        begin
        HandleOut := LZOpenFile (FileOut, StructOut, OF_CREATE or OF_WRITE);
        ReturnCode := LongInt (HandleOut);
        if (HandleOut > -1) then
          begin
          ReturnCode := LZCopy (HandleIn, HandleOut);
          LZClose (HandleOut);
          end;
        end;
      LZClose (HandleIn);
      CopyLZ := ReturnCode;
      end;

[Back to WIN-OS2 SWAG index] [Back to Main SWAG index] [Original]