home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 11 / labnotes / getver < prev    next >
Text File  |  1992-05-19  |  617b  |  17 lines
  1. .286P                     ;use 286 instructions
  2. .Model Medium             ;medium memory model 
  3.  
  4. Extrn WinVer:Far          ;Windows Version API function 
  5. Public  GetVer            ;DLL routines must be public
  6. Include LabNotes.Inc      ;macros for prolog and epilog
  7.  
  8. .CODE                     ;simplified code segment
  9.  
  10. GetVer Proc Far           ;Far procedure
  11.         WinProlog         ;Windows Prolog Macro
  12.         Call WinVer       ;returns version in AX
  13.         WinEpilog         ;Windows Epilog Macro           
  14.         Ret               ;return to VB, no arguments to remove
  15. GetVer EndP
  16. END     
  17.