![]() |
<< Index >> |
FutureBasic 5 |
GetProcessInfo( 32-bit Carbon builds only ) | function | |
|
GetProcessInfo index%, processName$ [,PSN]
dim psn as ProcessSerialNumber
dim indx&
dim ProcessName$
dim psn as ProcessSerialNumber
GetProcessInfo -1,ProcessName$
print "My name is:""";ProcessName$;"""
print " indx","0x-------PSN------ ","Process Name"
indx& = 0
do
GetProcessInfo indx&,ProcessName$,psn
long if ProcessName$[0]
print indx&,"0x";hex$(psn.highLongOfPSN);
print hex$(psn.lowLongOfPSN),ProcessName$
end if
inc(indx&)
until len(ProcessName$) == 0
GetProcessInfo
. See functions fn WS_IsAppRunning
and fn WS_CopyRunningApps