home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 37 / hot37.iso / FICHEROS / 9TOOL / ADDZIP.ZIP / DELPHI / AUNZIP.PAS < prev    next >
Pascal/Delphi Source File  |  1998-02-01  |  6KB  |  137 lines
  1. unit AUNZIP;
  2.  
  3. interface
  4. uses
  5. {$IFDEF WIN32}
  6.   Windows;
  7. {$ELSE}
  8.   WinTypes, WinProcs;
  9. {$ENDIF}
  10.  
  11. {
  12. aunzip.pas
  13.  
  14. Borland Delphi interface unit for addUNZIP compression libraries
  15. Copyright ⌐ 1995,1997 Stephen Darlington. All rights reserved.
  16.  
  17. Borland Delphi interface unit created by Brad Clarke.
  18. }
  19.  
  20. function addUNZIP: Integer; {$ifdef Win32} stdcall; {$endif Win32}
  21.  
  22. function addUNZIP_ArchiveName(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  23.  
  24. function addUNZIP_Decrypt(lpPassword : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  25.  
  26. function addUNZIP_DisplayComment(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  27.  
  28. function addUNZIP_Exclude(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  29.  
  30. function addUNZIP_ExcludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  31.  
  32. function addUNZIP_ExtractTo(lpPath : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  33.  
  34. function addUNZIP_Freshen(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  35.  
  36. function addUNZIP_GetLastError: Integer; {$ifdef Win32} stdcall; {$endif Win32}
  37.  
  38. function addUNZIP_GetLastWarning: Integer; {$ifdef Win32} stdcall; {$endif Win32}
  39.  
  40. Procedure addUNZIP_GetVersion(var Major : Integer; var Minor : Integer); {$ifdef Win32} stdcall; {$endif Win32}
  41.  
  42. function addUNZIP_Include(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  43.  
  44. function addUNZIP_IncludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  45.  
  46. procedure addUNZIP_Initialise; {$ifdef Win32} stdcall; {$endif Win32}
  47.  
  48. function addUNZIP_InstallCallback(fCallBack: Pointer): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  49.  
  50. function addUNZIP_Overwrite(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  51.  
  52. function addUNZIP_Register(lpUserName : PChar; lCode : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  53.  
  54. function addUNZIP_RestoreAttributes(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  55.  
  56. function addUNZIP_RestoreStructure(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  57.  
  58. function addUNZIP_SaveConfiguration(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  59.  
  60. function addUNZIP_SetParentWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  61.  
  62. function addUNZIP_SetWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  63.  
  64. function addUNZIP_Test(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  65.  
  66. function addUNZIP_ToMemory(lpBuffer : PChar; lBufLen : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  67.  
  68. function addUNZIP_Update(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  69.  
  70. function addUNZIP_View(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  71.  
  72. {$IFDEF WIN32}
  73.   Const LIBNAME = 'AUNZIP32.DLL';
  74. {$ELSE}
  75.   Const LIBNAME = 'AUNZIP16';
  76. {$ENDIF}
  77.  
  78.  
  79. implementation
  80.  
  81. function addUNZIP: Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  82.  
  83. function addUNZIP_ArchiveName(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  84.  
  85. function addUNZIP_Decrypt(lpPassword : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  86.  
  87. function addUNZIP_DisplayComment(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  88.  
  89. function addUNZIP_Exclude(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  90.  
  91. function addUNZIP_ExcludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  92.  
  93. function addUNZIP_ExtractTo(lpPath : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  94.  
  95. function addUNZIP_Freshen(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  96.  
  97. function addUNZIP_GetLastError: Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  98.  
  99. function addUNZIP_GetLastWarning: Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  100.  
  101. Procedure addUNZIP_GetVersion(var Major : Integer; var Minor : Integer); {$ifdef Win32} stdcall; {$endif Win32}
  102.           external LIBNAME;
  103.  
  104. function addUNZIP_Include(lpFiles : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  105.  
  106. function addUNZIP_IncludeListFile(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  107.  
  108. procedure addUNZIP_Initialise; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  109.  
  110. function addUNZIP_InstallCallback(fCallBack: Pointer): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  111.  
  112. function addUNZIP_Overwrite(iFlag : Integer): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  113.  
  114. function addUNZIP_Register(lpUserName : PChar; lCode : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  115.          external LIBNAME;
  116.  
  117. function addUNZIP_RestoreAttributes(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  118.  
  119. function addUNZIP_RestoreStructure(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  120.  
  121. function addUNZIP_SaveConfiguration(lpFile : PChar): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  122.  
  123. function addUNZIP_SetParentWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  124.  
  125. function addUNZIP_SetWindowHandle(hWnd : THandle): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  126.  
  127. function addUNZIP_Test(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  128.  
  129. function addUNZIP_ToMemory(lpBuffer : PChar; lBufLen : LongInt): Integer; {$ifdef Win32} stdcall; {$endif Win32}
  130.          external LIBNAME;
  131.  
  132. function addUNZIP_Update(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  133.  
  134. function addUNZIP_View(bFlag : Boolean): Integer; {$ifdef Win32} stdcall; {$endif Win32} external LIBNAME;
  135.  
  136. end.
  137.