* *** *************************************************************** * *** test for DeletePort * *** *************************************************************** * *** BOOL DeletePort( * *** LPTSTR pName, // pointer to server name * *** HWND hWnd, // handle to window that displays dialog box * *** LPTSTR pPortName // pointer to port name * *** ) DECLARE INTEGER GetLastError IN kernel32 DECLARE INTEGER FindWindow ; IN user32.DLL ; STRING @, ; STRING @ DECLARE INTEGER DeletePort IN winspool.drv; STRING pName, ; INTEGER HWND, ; STRING pPortName IF TYPE("_SCREEN.Hwnd") <> "N" _SCREEN.ADDPROPERTY("Hwnd", FindWindow(0, _SCREEN.CAPTION)) ENDIF cServerName = "" cPortName = "\\Print01\Plan1" nResult = DeletePort(m.cServerName, _Screen.HWnd, m.cPortName) ErrCode = GetLastError() ?nResult IF nResult = 0 *ErrMsg = oToolBox.oGlobalStr.ApiErrorText(m.ErrCode) *MESSAGEBOX(TRANS(m.ErrCode) +", "+ m.ErrMsg) ?ErrCode ENDIF return