topic-19457

Board index FiveWin para Harbour/xHarbour Como saber el proceso en ejecución?

Page: 1 2 (18 posts)

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Re: Como saber el proceso en ejecución?
Posted: Fri Aug 06, 2010 12:25 AM

Hola Adhemar.
Prueba con el siguiente programita.

Code (fw): Select all Collapse

Function Main()

SetTaskManager( .t. )

Return nil
//

#define HKEY_CURRENT_USER 2147483649
#define REG_DWORD 4

Function SetTaskManager( lOnOff )
Local hKey := 0

IF lOnOff
   RegCreateKey( HKEY_CURRENT_USER,;
   "Software\Microsoft\Windows\CurrentVersion\Policies\System", @hKey )
   RegSetValue( hKey, "DisableTaskMgr", 0, REG_DWORD, L2BIN( 0 ), 4 )
   RegCloseKey( hKey )
ELSE
   RegCreateKey( HKEY_CURRENT_USER,;
   "Software\Microsoft\Windows\CurrentVersion\Policies\System", @hKey )
   RegSetValue( hKey, "DisableTaskMgr", 0, REG_DWORD, L2BIN( 1 ), 4 )
   RegCloseKey( hKey )
ENDIF

Return nil

La función SetTaskManager( lOnOff ) viene en los fuentes de FWH.
Saludos,

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

ORibeiro

Posts: 187