Return to utsamp16.c CVS log

Up to [WindowsNT SDKs] / mstools / win32s / ut / samples / utsample

Annotation of mstools/win32s/ut/samples/utsample/utsamp16.c, revision 1.1.1.1

1.1       root        1: /*++
                      2: 
                      3: Copyright (c) 1985-93, Microsoft Corporation
                      4: 
                      5: Module Name:
                      6: 
                      7:     utsamp16.c
                      8: 
                      9: Abstract:
                     10: 
                     11:     Win32s sample code of Universal Thunk (UT) -
                     12:     This is the main source file of utsamp16.DLL.
                     13: 
                     14: --*/
                     15: #ifndef APIENTRY
                     16: #define APIENTRY
                     17: #endif
                     18: #define W32SUT_16
                     19: 
                     20: #include <windows.h>
                     21: #include <w32sut.h>
                     22: #include "utsamp.h"
                     23: 
                     24: int FAR PASCAL WEP (int bSystemExit)
                     25:  {
                     26:   return (1);
                     27:  } // WEP()
                     28: 
                     29: int FAR PASCAL LibMain (HANDLE hLibInst, WORD wDataSeg,
                     30:                         WORD cbHeapSize, LPSTR lpszCmdLine)
                     31:  {
                     32:   return (1);
                     33:  } // LibMain()
                     34: 
                     35: DWORD FAR PASCAL
                     36: UTInit( UT16CBPROC lpfnUT16CallBack,
                     37:         LPVOID lpBuf )
                     38:  {
                     39:   return(1); // Return Success
                     40:  } // UTInit()
                     41: 
                     42: 
                     43: /*
                     44:  * Call the appropriate Win16 API based on the dwFunc parameter.  Extract any
                     45:  * necessary parameters from the lpBuf buffer.
                     46:  *
                     47:  * This function must be exported.
                     48:  *
                     49:  */
                     50: 
                     51: DWORD FAR PASCAL
                     52: UTProc( LPVOID lpBuf,
                     53:         DWORD dwFunc)
                     54:  {
                     55: 
                     56:   /*
                     57:    * Call appropriate 16 bit API based on the dwFunc.  Extract any necessary
                     58:    * parameters from lpBuf.
                     59:    *
                     60:    */
                     61: 
                     62:   switch (dwFunc)
                     63:    {
                     64: 
                     65:     case MYGETFREESPACE:
                     66: 
                     67:       return( GetFreeSpace( (UINT) 0 ) );
                     68: 
                     69:     case MYWNETGETUSER:
                     70:      {
                     71:        // Windows for Workgroups supports multiple networks.
                     72:        // to get WNetGetUser to function properly on that
                     73:        // NOS, we must call MNetSetNextTarget passing the
                     74:        // handle returned from MNetGetLastTarget
                     75: 
                     76:       HINSTANCE hWfwNet = 0;
                     77:       FARPROC   pMNetSetNextTarget = NULL;
                     78:       FARPROC  pMNetGetLastTarget = NULL;
                     79:       DWORD    Temp;
                     80: 
                     81:       SetErrorMode(SEM_NOOPENFILEERRORBOX);
                     82: 
                     83:       hWfwNet = LoadLibrary( "WFWNET.DRV" );
                     84: 
                     85:       SetErrorMode( 0 );
                     86: 
                     87:       if (hWfwNet > HINSTANCE_ERROR)
                     88:        {
                     89:         pMNetGetLastTarget = GetProcAddress( hWfwNet, "MNetGetLastTarget" );
                     90:         pMNetSetNextTarget = GetProcAddress( hWfwNet, "MNetSetNextTarget" );
                     91: 
                     92:         if ( pMNetGetLastTarget && pMNetSetNextTarget )
                     93:           (*pMNetSetNextTarget) ( (HANDLE)(*pMNetGetLastTarget) () );
                     94: 
                     95:        } // if (hWfwNet > HINSTANCE_ERROR)
                     96:       else
                     97:        hWfwNet = 0;
                     98: 
                     99:       Temp = WNetGetUser( (LPSTR)  ((LPDWORD)lpBuf) [0],
                    100:                          (LPWORD) ((LPDWORD)lpBuf) [1] );
                    101: 
                    102:       if (hWfwNet)
                    103:         FreeLibrary( hWfwNet );
                    104: 
                    105:       return( Temp );
                    106: 
                    107:     } // case MYWNETGETUSER:
                    108: 
                    109:    } // switch (dwFunc)
                    110: 
                    111:   return( (DWORD)-1L ); // We should never get here.
                    112: 
                    113:  } // UTProc()

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.