home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 37 / hot37.iso / FICHEROS / 9TOOL / ADDZIP.ZIP / DELPHI / AZIP.PAS < prev    next >
Pascal/Delphi Source File  |  1998-02-01  |  11KB  |  225 lines
  1. unit AZIP;
  2.  
  3. interface
  4.  
  5. uses
  6. {$IFDEF WIN32}
  7.   Windows;
  8. {$ELSE}
  9.   WinTypes, WinProcs;
  10. {$ENDIF}
  11.  
  12. {
  13. azip.pas
  14.  
  15. Borland Delphi interface unit for addZIP compression libraries
  16. Copyright ⌐ 1995,1997 Stephen Darlington. All rights reserved.
  17.  
  18. Borland Delphi interface unit created by Brad Clarke.
  19. }
  20.  
  21. function addZIP: Integer ; {$ifdef Win32} stdcall; {$endif Win32}
  22.  
  23. function addZIP_ArchiveName(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  24.  
  25. function addZIP_BuildSFX(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  26.  
  27. function addZIP_ClearAttributes(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  28.  
  29. function addZIP_Comment(lpComment : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  30.  
  31. function addZIP_Delete(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  32.  
  33. function addZIP_DeleteComment(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  34.  
  35. function addZIP_DisplayComment(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  36.  
  37. function addZIP_Encrypt(lpPassword : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  38.  
  39. function addZIP_Exclude(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  40.  
  41. function addZIP_ExcludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  42.  
  43. function addZIP_Freshen(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  44.  
  45. function addZIP_GetLastError: Integer; {$ifdef Win32} stdcall; {$endif Win32}
  46.  
  47. function addZIP_GetLastWarning: Integer; {$ifdef Win32} stdcall; {$endif Win32}
  48.  
  49. Procedure addZIP_GetVersion(var Major : Integer; var Minor : Integer); {$ifdef Win32} stdcall; {$endif Win32}
  50.  
  51. function addZIP_Include(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  52.  
  53. function addZIP_IncludeFilesNewer(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  54.  
  55. function addZIP_IncludeFilesOlder(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  56.  
  57. function addZIP_IncludeArchive(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  58.  
  59. function addZIP_IncludeDirectoryEntries(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  60.  
  61. function addZIP_IncludeHidden(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  62.  
  63. function addZIP_IncludeReadOnly(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  64.  
  65. function addZIP_IncludeSystem(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  66.  
  67. function addZIP_IncludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  68.  
  69. procedure addZIP_Initialise; {$ifdef Win32} stdcall; {$endif Win32}
  70.  
  71. function addZIP_InstallCallback(fCallback: Pointer): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  72.  
  73. function addZIP_Move(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  74.  
  75. function addZIP_Overwrite(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  76.  
  77. function addZIP_Recurse(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  78.  
  79. function addZIP_Register(lpUserName : PChar; lCode : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  80.  
  81. function addZIP_SaveAttributes(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  82.  
  83. function addZIP_SaveConfiguration(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  84.  
  85. function addZIP_SaveRelativeTo(lpPath : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  86.  
  87. function addZIP_SaveStructure(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  88.  
  89. function addZIP_SetArchiveDate(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  90.  
  91. function addZIP_SetCompressionLevel(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  92.  
  93. function addZIP_SetParentWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  94.  
  95. function addZIP_SetTempDrive(lpPath : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  96.  
  97. function addZIP_SetWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  98.  
  99. function addZIP_SFXAutoExecute(lpCommand, lpParameters : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  100.  
  101. function addZIP_SFXAutoPasswordPrompt(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  102.  
  103. function addZIP_Span(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  104.  
  105. function addZIP_SpanCreateImages(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  106.  
  107. function addZIP_SpanSizes(lFirst, lOther : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  108.  
  109. function addZIP_Store(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  110.  
  111. function addZIP_Update(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  112.  
  113. function addZIP_UseLFN(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  114.  
  115. function addZIP_View(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  116.  
  117. {$IFDEF WIN32}
  118.   Const LIBNAME = 'AZIP32.DLL';
  119. {$ELSE}
  120.   Const LIBNAME = 'AZIP16';
  121. {$ENDIF}
  122.  
  123. implementation
  124.  
  125. function addZIP: Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  126.  
  127. function addZIP_ArchiveName(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  128.  
  129. function addZIP_BuildSFX(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}  external LIBNAME;
  130.  
  131. function addZIP_ClearAttributes(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  132.  
  133. function addZIP_Comment(lpComment : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  134.  
  135. function addZIP_Delete(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  136.  
  137. function addZIP_DeleteComment(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  138.  
  139. function addZIP_DisplayComment(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  140.  
  141. function addZIP_Encrypt(lpPassword : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  142.  
  143. function addZIP_Exclude(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  144.  
  145. function addZIP_ExcludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  146.  
  147. function addZIP_Freshen(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  148.  
  149. function addZIP_GetLastError: Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  150.  
  151. function addZIP_GetLastWarning: Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  152.  
  153. Procedure addZIP_GetVersion(var Major : Integer; var Minor : Integer); {$ifdef Win32} stdcall; {$endif Win32}
  154.           external LIBNAME;
  155.  
  156. function addZIP_Include(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  157.  
  158. function addZIP_IncludeFilesNewer(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  159.  
  160. function addZIP_IncludeFilesOlder(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  161.  
  162. function addZIP_IncludeArchive(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  163.  
  164. function addZIP_IncludeDirectoryEntries(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  165.  
  166. function addZIP_IncludeHidden(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  167.  
  168. function addZIP_IncludeReadOnly(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  169.  
  170. function addZIP_IncludeSystem(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  171.  
  172. function addZIP_IncludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  173.  
  174. procedure addZIP_Initialise; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  175.  
  176. function addZIP_InstallCallback(fCallback: Pointer): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  177.  
  178. function addZIP_Move(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  179.  
  180. function addZIP_Overwrite(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  181.  
  182. function addZIP_Recurse(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  183.  
  184. function addZIP_Register(lpUserName : PChar; lCode : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  185.          external LIBNAME;
  186.  
  187. function addZIP_SaveAttributes(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  188.  
  189. function addZIP_SaveConfiguration(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  190.  
  191. function addZIP_SaveRelativeTo(lpPath : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  192.  
  193. function addZIP_SaveStructure(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  194.  
  195. function addZIP_SetArchiveDate(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}  external LIBNAME;
  196.  
  197. function addZIP_SetCompressionLevel(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  198.  
  199. function addZIP_SetParentWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  200.  
  201. function addZIP_SetTempDrive(lppath : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  202.  
  203. function addZIP_SetWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  204.  
  205. function addZIP_SFXAutoExecute(lpCommand, lpParameters : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  206.          external LIBNAME;
  207.  
  208. function addZIP_SFXAutoPasswordPrompt(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  209.  
  210. function addZIP_Span(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  211.  
  212. function addZIP_SpanCreateImages(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  213.  
  214. function addZIP_SpanSizes(lFirst, lOther : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  215.  
  216. function addZIP_Store(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  217.  
  218. function addZIP_Update(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  219.  
  220. function addZIP_UseLFN(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  221.  
  222. function addZIP_View(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  223.  
  224. end.
  225.