home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tpw / reedll / reedll.pas next >
Encoding:
Pascal/Delphi Source File  |  1991-06-12  |  376 b   |  30 lines
  1. LIBRARY ReeDLL;
  2.  
  3. USES WinTypes, WinProcs;
  4.  
  5. VAR
  6.   Value: WORD;
  7.  
  8. FUNCTION GetValue: WORD; EXPORT;
  9. BEGIN
  10.   GetValue := Value;
  11. END;
  12.  
  13. PROCEDURE IncValue; EXPORT;
  14. BEGIN
  15.   INC(Value);
  16. END;
  17.  
  18. PROCEDURE SetValue (Val: WORD); EXPORT;
  19. BEGIN
  20.   Value := Val;
  21. END;
  22.  
  23. EXPORTS
  24.   GetValue  INDEX 1,
  25.   IncValue  INDEX 2,
  26.   SetValue  INDEX 3;
  27.  
  28. BEGIN
  29.   Value := 0;
  30. END.