--- mstools/samples/ole/clidemo/clidemo.c	2018/08/09 18:20:49	1.1.1.1
+++ mstools/samples/ole/clidemo/clidemo.c	2018/08/09 18:21:52	1.1.1.2
@@ -77,6 +77,9 @@ CHAR              szAppName[CBMESSAGEMAX
 INT               iObjects = 0;        //* object count
 INT               iObjectNumber = 0;   //* object number for object name
 CHAR              szFileName[CBPATHMAX];
+
+extern INT giXppli ;
+extern INT giYppli ;
                                        //* ClipBoard formats:
 OLECLIPFORMAT     vcfLink;             //* "ObjectLink" 
 OLECLIPFORMAT     vcfNative;           //* "Native"
@@ -87,7 +90,7 @@ OLECLIPFORMAT     vcfOwnerLink;        /
  * WinMain() - Main Windows routine
  ***************************************************************************/
 
-int WinMain(
+int APIENTRY WinMain(
    HANDLE hInstance,
    HANDLE hPrevInst,
    LPSTR  lpCmdLine,
@@ -171,6 +174,7 @@ static BOOL InitApplication(           /
 static BOOL InitInstance(              //* ENTRY:
    HANDLE         hInst                //* instance handel
 ){
+	HDC hDC ;
    
    hAccTable = LoadAccelerators(hInst, MAKEINTRESOURCE(ID_APPLICATION));
 
@@ -190,6 +194,12 @@ static BOOL InitInstance(              /
    LoadString(hInst, IDS_APPNAME, szAppName, CBMESSAGEMAX);
    DragAcceptFiles(hwndFrame, TRUE);   //* allow dragged and dropped files
 
+   hDC    = GetDC (NULL);       // Get the hDC of the desktop window
+   giXppli = GetDeviceCaps (hDC, LOGPIXELSX);
+   giYppli = GetDeviceCaps (hDC, LOGPIXELSY);
+   ReleaseDC (NULL, hDC);
+	
+
        
    return TRUE;                        //* SUCCESS return