home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 10 / Chip_Hitware_Vol_10.iso / chiphit / multmedi / 95licht / install.dll / 1001 / 1 / LGDUTI.PAS < prev    next >
Pascal/Delphi Source File  |  1997-02-02  |  6KB  |  191 lines
  1. { import library for LGDUTI32.DLL
  2.   this DLL contains some special function and some exported functions
  3.   from SYSUTILS - to avoid the overhead of having SYSUTILS in every DLL ...
  4. }
  5.  
  6. unit LgdUti;
  7.  
  8. {$H-}
  9.  
  10. interface
  11.  
  12. uses Windows;
  13.  
  14. const
  15.  
  16. { File open modes }
  17.  
  18.   fmOpenRead       = $0000;
  19.   fmOpenWrite      = $0001;
  20.   fmOpenReadWrite  = $0002;
  21.   fmShareCompat    = $0000;
  22.   fmShareExclusive = $0010;
  23.   fmShareDenyWrite = $0020;
  24.   fmShareDenyRead  = $0030;
  25.   fmShareDenyNone  = $0040;
  26.  
  27. { File attribute constants }
  28.  
  29.   faReadOnly  = $00000001;
  30.   faHidden    = $00000002;
  31.   faSysFile   = $00000004;
  32.   faVolumeID  = $00000008;
  33.   faDirectory = $00000010;
  34.   faArchive   = $00000020;
  35.   faAnyFile   = $0000003F;
  36.  
  37. { File mode magic numbers }
  38.  
  39.   fmClosed = $D7B0;
  40.   fmInput  = $D7B1;
  41.   fmOutput = $D7B2;
  42.   fmInOut  = $D7B3;
  43.  
  44. { Seconds and milliseconds per day }
  45.  
  46.   SecsPerDay = 24 * 60 * 60;
  47.   MSecsPerDay = SecsPerDay * 1000;
  48.  
  49. { Days between 1/1/0001 and 12/31/1899 }
  50.  
  51.   DateDelta = 693594;
  52.  
  53. { Generic filename type }
  54.  
  55. type
  56.   TFileName = string;
  57.  
  58. { Search record used by FindFirst, FindNext, and FindClose }
  59.  
  60.   TSearchRec = record
  61.     Time: Integer;
  62.     Size: Integer;
  63.     Attr: Integer;
  64.     Name: TFileName;
  65.     ExcludeAttr: Integer;
  66.     FindHandle: THandle;
  67.     FindData: TWin32FindData;
  68.   end;
  69.  
  70.  
  71. function StrCopy(Dest, Source: PChar): PChar; stdcall;
  72.  
  73. Function LgdAboutBox (window:hwnd; icon: hicon; pchName: PChar; pchCR: PChar;
  74.                         fFullVersion: boolean; iFactor: integer): integer;
  75. stdcall;
  76.  
  77. function FindFirst({const} Path: PChar; Attr: Integer;
  78.   var F: TSearchRec): Integer; stdcall;
  79.  
  80. function FindNext(var F: TSearchRec): Integer; stdcall;
  81.  
  82. procedure FindClose(var F: TSearchRec); stdcall;
  83.  
  84. Function LgdUti32Version: integer; stdcall;
  85.  
  86. Function StrPas (pchSource: PChar): string; stdcall;
  87.  
  88. Function StrLen (pchSource: PChar): integer; stdcall;
  89.  
  90. Procedure StrLCopy (dest, source: PChar; cLen: integer); stdcall;
  91.  
  92. Procedure StrPCopy (dest: PChar; s:string); stdcall;
  93.  
  94. Procedure LgdModuleName (hInst: integer; var achDir, achName, achExt: string); stdcall;
  95.  
  96. Procedure LgdSleep (var lLgdSleep: LongInt; lSleep: LongInt); stdcall;
  97.  
  98. Procedure LgdRegOpenKey (var p: pointer; achOwner, achSaver: string); stdcall;
  99. Procedure LgdRegCloseKey (var p: pointer); stdcall;
  100. Procedure LgdRegGetString (var p: pointer; achTopic, achItem, achDefault: string; var achValue: string); stdcall;
  101. Procedure LgdRegSetString (var p: pointer; achTopic, achItem, achValue: string); stdcall;
  102. Procedure LgdRegGetInteger (var p: pointer; achTopic, achItem, achDefault: string; var iValue: integer); stdcall;
  103. Procedure LgdRegSetInteger (var p: pointer; achTopic, achItem: string; iValue: integer); stdcall;
  104. Procedure LgdRegGetDouble (var p: pointer; achTopic, achItem, achDefault: string; var dbValue: double); stdcall;
  105. Procedure LgdRegSetDouble (var p: pointer; achTopic, achItem: string; dbValue: double); stdcall;
  106.  
  107. Function MyGetTickCount: integer; stdcall;
  108.  
  109. Function GetWin32Version: LongInt; stdcall;
  110.  
  111. Procedure GetMem (var P; iSize: integer);
  112. Procedure FreeMem (var P);
  113.  
  114. implementation
  115.  
  116. const LgdUtiDll = 'LGDUTI32.DLL';
  117.  
  118. Procedure GetMem (var P; iSize: integer);
  119. begin
  120.   Pointer (p) := GlobalAllocPtr (GHND, iSize);
  121. end;
  122.  
  123. Procedure FreeMem (var P);
  124. begin
  125.   GlobalFreePtr (Pointer (p));
  126.   Pointer (p) := nil;
  127. end;
  128.  
  129.  
  130. function StrCopy(Dest, Source: PChar): PChar;
  131. external LgdUtiDll index 1;
  132.  
  133. Function LgdAboutBox (window:hwnd; icon: hicon; pchName: PChar; pchCR: PChar;
  134.                         fFullVersion: boolean; iFactor: integer): integer;
  135. external LgdUtiDll index 2;
  136.  
  137. function FindFirst({const} Path: PChar; Attr: Integer;
  138.   var F: TSearchRec): Integer; stdcall;
  139. external LgdUtiDll index 3;
  140.  
  141. function FindNext(var F: TSearchRec): Integer; stdcall;
  142. external LgdUtiDll index 4;
  143.  
  144. procedure FindClose(var F: TSearchRec); stdcall;
  145. external LgdUtiDll index 5;
  146.  
  147. Function LgdUti32Version: integer; stdcall;
  148. external LgdUtiDll index 6;
  149.  
  150. Function StrPas (pchSource: PChar): string; stdcall;
  151. external LgdUtiDll index 7;
  152.  
  153. Function StrLen (pchSource: PChar): integer; stdcall;
  154. external LgdUtiDll index 8;
  155.  
  156. Procedure StrLCopy (dest, source: PChar; cLen: integer); stdcall;
  157. external LgdUtiDll index 9;
  158.  
  159. Procedure StrPCopy (dest: PChar; s:string); stdcall;
  160. external LgdUtiDll index 10;
  161.  
  162. Procedure LgdModuleName (hInst: integer; var achDir, achName, achExt: string); stdcall;
  163. external LgdUtiDll index 11;
  164.  
  165. Procedure LgdSleep (var lLgdSleep: LongInt; lSleep: LongInt); stdcall;
  166. external LgdUtiDll index 12;
  167.  
  168. Procedure LgdRegOpenKey (var p: pointer; achOwner, achSaver: string); stdcall;
  169. external LgdUtiDll index 13;
  170. Procedure LgdRegCloseKey (var p: pointer); stdcall;
  171. external LgdUtiDll index 14;
  172. Procedure LgdRegGetString (var p: pointer; achTopic, achItem, achDefault: string; var achValue: string); stdcall;
  173. external LgdUtiDll index 15;
  174. Procedure LgdRegSetString (var p: pointer; achTopic, achItem, achValue: string); stdcall;
  175. external LgdUtiDll index 16;
  176. Procedure LgdRegGetInteger (var p: pointer; achTopic, achItem, achDefault: string; var iValue: integer); stdcall;
  177. external LgdUtiDll index 17;
  178. Procedure LgdRegSetInteger (var p: pointer; achTopic, achItem: string; iValue: integer); stdcall;
  179. external LgdUtiDll index 18;
  180. Procedure LgdRegGetDouble (var p: pointer; achTopic, achItem, achDefault: string; var dbValue: double); stdcall;
  181. external LgdUtiDll index 19;
  182. Procedure LgdRegSetDouble (var p: pointer; achTopic, achItem: string; dbValue: double); stdcall;
  183. external LgdUtiDll index 20;
  184. Function MyGetTickCount: integer; stdcall;
  185. external LgdUtiDll index 21;
  186.  
  187. Function GetWin32Version: LongInt; stdcall;
  188. external LgdUtiDll index 22;
  189.  
  190. end.
  191.