Changeset 828 for trunk/dll/datamin.c

Timestamp:

Sep 3, 2007, 4:02:12 AM (18 years ago)

Author:

Gregg Young

Message:

Add DosQuerySysState as option for getting process info for kill process and Datamin

File:

• trunk/dll/datamin.c (modified) (3 diffs)

trunk/dll/datamin.c

@@ -20 +20 @@
   30 Mar 07 GKY Remove GetPString for window class names
   20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
+  02 Sep 07 GKY Replaced DosQProcStatus with DosQuerySysState to fix trap in thunk code
 
 ***********************************************************************/
@@ -796 +797 @@
   case UM_SETUP5:                       // Process status
     {
-      CHAR s[134], tm[38], szQty[38];
-
-      if (fUseQProcStat && !noqproc) {
+     CHAR s[134], tm[38], szQty[38];
+
+     if (fUseQProcStat && !noqproc) {
 
         PROCESSINFO *ppi;
@@ -837 +838 @@
         }
       }
+      else if (fUseQSysState && !noqproc) {
+
+        QSPREC *ppi;
+        QSPTRREC *pbh = NULL;
+        QSLREC *pmi;
+        ULONG numprocs = 0, numthreads = 0;
+        APIRET rc;
+
+        rc = DosAllocMem((PVOID) & pbh, USHRT_MAX + 4096,
+                         PAG_COMMIT | OBJ_TILE | PAG_READ | PAG_WRITE);
+        if (rc)
+          Dos_Error(MB_CANCEL, rc, hwnd, pszSrcFile, __LINE__,
+                    GetPString(IDS_OUTOFMEMORY));
+        else { //2 Sep 07 GKY 0x05 = process & Mod data only
+          if (DosQuerySysState(QS_PROCESS | QS_MTE, 0, 0, 0, pbh, USHRT_MAX))
+            noqproc = TRUE;
+          else {
+            ppi = pbh->pProcRec;
+            while (ppi->RecType == 1) {
+              pmi = pbh->pLibRec;
+              while (pmi && ppi->hMte != pmi->hmte)
+                pmi = pmi->pNextRec;
+              if (pmi) {
+                numprocs++;
+                numthreads += ppi->cTCB;
+              }
+              ppi = (QSPREC *) (ppi->pThrdRec + ppi->cTCB);
+            }
+            commafmt(szQty, sizeof(szQty), numprocs);
+            commafmt(tm, sizeof(tm), numthreads);
+            sprintf(s,
+                    " %s%s  %s%s",
+                    GetPString(IDS_PROCSTITLETEXT),
+                    szQty, GetPString(IDS_THRDSTITLETEXT), tm);
+            WinSetDlgItemText(hwnd, MINI_PROC, s);
+          }
+          DosFreeMem(pbh);
+        }
+      }
       else {
         commafmt(szQty, sizeof(szQty),