home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Add-Ons / After Dark / Twist 1.0b1 / Library Source / FindProcess.c next >
Encoding:
C/C++ Source or Header  |  1992-04-23  |  1.3 KB  |  41 lines  |  [TEXT/KAHL]
  1. /* FindProcess.c
  2.  * Find a process, and get information about it.  From IM IV, p. 29-11
  3.  * ©1992 Working Software, Inc.
  4.  * This source code is copyrighted.  Permission is granted to use the Word Services
  5.  * portion of the Writeswell Jr. source code in your own programs, but you 
  6.  * may not distribute the Writeswell Jr. word-processor code as a 
  7.  * commercial product.  If you modify the code, please do not call it 
  8.  * Writeswell Jr. (or Writeswell.)  This will ensure that people understand the 
  9.  * program and don’t have to deal with a number of different versions with 
  10.  * who-knows-what going on in the code.
  11.  * 
  12.  * Writeswell Jr. and Writeswell are trademarks of Working Software, Inc.
  13.  * 22 Apr 92 Mike Crawford
  14.  */
  15.  
  16. #include <Processes.h>
  17. #include "FindProcess.h"
  18.  
  19. Boolean FindAProcess( OSType signature,
  20.                         ProcessSerialNumber *psnPtr,
  21.                         ProcessInfoRec *pInfoPtr,
  22.                         FSSpecPtr fSpecPtr,
  23.                         StringPtr    procName )
  24. {
  25.     psnPtr->highLongOfPSN = 0;
  26.     psnPtr->lowLongOfPSN = kNoProcess;
  27.     
  28.     pInfoPtr->processInfoLength = sizeof( ProcessInfoRec );
  29.     pInfoPtr->processName = procName;
  30.     pInfoPtr->processAppSpec = fSpecPtr;
  31.  
  32.     while( GetNextProcess( psnPtr ) == noErr ){
  33.         if ( GetProcessInformation( psnPtr, pInfoPtr ) == noErr ){
  34.             if ( pInfoPtr->processType == 'APPL' &&
  35.                     pInfoPtr->processSignature == signature ){
  36.                 return true;
  37.             }        
  38.         }
  39.     }
  40.     return false;
  41. }