Respuesta en el foro de http://www.foxite.com/forum
del hindú JiJo Pappachan:
Local ll_OutlookRunning, ;
lo_Manager, ;
lo_Procs, ;
lc_Owner
ll_OutlookRunning = .F.
lc_Owner = ""
lo_Manager = Getobject("winmgmts:")
lo_Processes = lo_Manager.InstancesOf("Win32_process")
For Each lo_Procs In lo_Processes
If Lower(lo_Procs.Name) == "outlook.exe"
ll_OutlookRunning = .T.
*-- Get owner name. This method should help you,
*-- which user is running Outlook
lo_Procs.GetOwner(@lc_Owner)
Exit
Endif
Endf
If ll_OutlookRunning
?"Outlook is running by "
??lc_Owner
Else
?"Outlook is not running: "
Endif
Fuente:
http://www.foxite.com/archives/0000299364.htm
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________