Главная страница | назад





Article #15729: Using the LzExpand functions in your applications

 Question and Answer Database
FAQ729D.txt Using the LzExpand functions in your applications
Category :Windows API
Platform :All
Product :All 32 bit
Question:
How do I use the LzExpand functions in my application?
Answer:
Here is an example that will decompress a file that was compressed
using the Microsoft compress.exe utility utilizing the -r (rename)
command line switch. Note: If you already know the expanded name of
the file, or it was not compressed with the -r command line switch,
then simply omit the code associated with the GetExpandedName
function, and directly hard code the file name as needed.
uses LzExpand;
{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}
procedure TForm1.Button1Click(Sender: TObject);
var lpDstFileName : PChar;
SrcFile : integer;
DstFile : integer;
SrcOs : TOFSTRUCT;
DstOs : TOFSTRUCT;
begin
GetMem(lpDstFileName, MAX_PATH);
GetExpandedName('C:\TestFile.bi_', lpDstFileName);
SrcFile := LZOpenFile('C:\TestFile.bi_', SrcOs, OF_READ);
DstFile := LZOpenFile(lpDstFileName, DstOs, OF_CREATE);
LZCopy(SrcFile, DstFile);
LZClose(SrcFile);
LZClose(DstFile);
FreeMem(lpDstFileName, MAX_PATH);
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99