home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / w3_prog / tpwin31.arj / WINMEM32.PAS < prev   
Pascal/Delphi Source File  |  1992-04-06  |  2KB  |  53 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Turbo Pascal for Windows Run-time Library       }
  4. {       Windows 3.1 API Interface Unit                  }
  5. {                                                       }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. Unit WinMem32;
  12.  
  13. interface
  14.  
  15. Uses WinTypes;
  16.  
  17. function GetWinMem32Version: Word;
  18. function Global32Alloc(dwSize: Longint; lpSelector: PWord;
  19.   dwMaxSize, wFlags :Word): Word;
  20. function Global32Realloc(wSelector: Word; swNewSize: Longint;
  21.   wFlags: Word): Word;
  22. function Global32Free(wSelector, wFlags: Word): Word;
  23. function Global16PointerAlloc(Selector: Word; dwOffset: Longint;
  24.   lpBuffer: PLongint; dwSize: Longint; wFlags: Word): Word;
  25. function Global16PointerFree(wSelector: Word; dwAlias: Longint;
  26.   wFlags: Word): Word;
  27. function Global32CodeAlias(wSelector: Word; lpAlias: PLongint;
  28. wFlags: Word): Word;
  29. function Global32CodeAliasFree(wSelector, wAlias, wFlags: Word): Word;
  30.  
  31.  
  32. { Error Codes }
  33.  
  34. const
  35.   wm32_Invalid_Func   = $01;
  36.   wm32_Invalid_Flags  = $02;
  37.   wm32_Invalid_Arg    = $03;
  38.   wm32_Insufficient_Sels  = $04;
  39.   wm32_Insufficient_Mem   = $05;
  40.  
  41. implementation
  42.  
  43. function GetWinMem32Version;                 external 'WINMEM32' index 1;
  44. function Global32Alloc;                      external 'WINMEM32' index 2;
  45. function Global32Realloc;                    external 'WINMEM32' index 3;
  46. function Global32Free;                       external 'WINMEM32' index 4;
  47. function Global16PointerAlloc;               external 'WINMEM32' index 5;
  48. function Global16PointerFree;                external 'WINMEM32' index 6;
  49. function Global32CodeAlias;                  external 'WINMEM32' index 7;
  50. function Global32CodeAliasFree;              external 'WINMEM32' index 8;
  51.  
  52. end.
  53.