home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / LZEXPAND.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-28  |  3KB  |  61 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Run-time Library                         }
  5. {       Windows 32bit API Interface Unit                }
  6. {                                                       }
  7. {       Copyright (c) 1996 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit LZExpand;
  12.  
  13. interface
  14.  
  15. uses Windows;
  16.  
  17. { Error Return Codes }
  18.  
  19. const
  20.   LZERROR_BADINHANDLE = -1;         { invalid input handle }
  21.   LZERROR_BADOUTHANDLE = -2;        { invalid output handle }
  22.   LZERROR_READ = -3;                { corrupt compressed file format }
  23.   LZERROR_WRITE = -4;               { out of space for output file }
  24.   LZERROR_GLOBALLOC = -5;           { insufficient memory for LZFile struct }
  25.   LZERROR_GLOBLOCK = -6;            { bad global handle }
  26.   LZERROR_BADVALUE = -7;            { input parameter out of acceptable range }
  27.   LZERROR_UNKNOWNALG = -8;          { compression algorithm not recognized }
  28.  
  29. { Prototypes }
  30.  
  31. function LZCopy(Source, Dest: Integer): Longint; stdcall;
  32. function LZInit(Source: Integer): Integer; stdcall;
  33. function GetExpandedNameA(Source, Buffer: PAnsiChar): Integer; stdcall;
  34. function GetExpandedNameW(Source, Buffer: PWideChar): Integer; stdcall;
  35. function GetExpandedName(Source, Buffer: PChar): Integer; stdcall;
  36. function LZOpenFileA(Filename: PAnsiChar; var ReOpenBuff: TOFStruct; Style: Word): Integer; stdcall;
  37. function LZOpenFileW(Filename: PWideChar; var ReOpenBuff: TOFStruct; Style: Word): Integer; stdcall;
  38. function LZOpenFile(Filename: PChar; var ReOpenBuff: TOFStruct; Style: Word): Integer; stdcall;
  39. function LZSeek(hFile: Integer; Offset: Longint; Origin: Integer): Longint; stdcall;
  40. function LZRead(hFile: Integer; Buffer: LPSTR; Count: Integer): Integer; stdcall;
  41. procedure LZClose(hFile: Integer); stdcall;
  42.  
  43. implementation
  44.  
  45. const
  46.   lz32 = 'LZ32.DLL';
  47.  
  48. function GetExpandedNameA;    external lz32 name 'GetExpandedNameA';
  49. function GetExpandedNameW;    external lz32 name 'GetExpandedNameW';
  50. function GetExpandedName;    external lz32 name 'GetExpandedNameA';
  51. procedure LZClose;              external lz32 name 'LZClose';
  52. function LZCopy;                external lz32 name 'LZCopy';
  53. function LZInit;                external lz32 name 'LZInit';
  54. function LZOpenFileA;         external lz32 name 'LZOpenFileA';
  55. function LZOpenFileW;         external lz32 name 'LZOpenFileW';
  56. function LZOpenFile;         external lz32 name 'LZOpenFileA';
  57. function LZRead;                external lz32 name 'LZRead';
  58. function LZSeek;                external lz32 name 'LZSeek';
  59.  
  60. end.
  61.