-----------------------------------------------
// btn_LISTA_PROCESSOS
sPROCESSOS is string=ExeListProcess(exePID, exeShortName,exeLongName,exeMemory)
TableDeleteAll(TABLE_PROCESSOS)
FOR EACH STRING PROCESSOS_INDIVIDUAIS OF sPROCESSOS SEPARATED BY CR
s_exepid is string=""
s_exeshortname is string=""
s_exelongname is string=""
s_exememory is string=""
n_contador is int=0
FOR EACH STRING s_colunas OF PROCESSOS_INDIVIDUAIS SEPAREE BY TAB
n_contador++
SWITCH n_contador
CASE 1
s_exepid=s_colunas
CASE 2
s_exeshortname=s_colunas
CASE 3
s_exelongname=s_colunas
CASE 4
s_exememory=s_colunas
OTHER CASE
END
END
TableAddLine(TABLE_PROCESSOS,s_exepid,s_exeshortname,s_exelongname,s_exememory)
END
TableSort(TABLE_PROCESSOS,"-COL_Exememory")
grDraw(CHART_PROCESSOS)
--------------------------------------
// BTN_ENCERRAR PROCESSOS
ExeTerminate (EDT_PROGRAMA)
-----------------------------
// btn_escolhe_programa
EDT_PROGRAMA=TABLE_PROCESSOS.COL_EXELONGNAME
------------------------
// EDT_PROGRAMA
TableEnableFilter(COL_EXELONGNAME,filterContains,EDT_PROGRAMA)
------------------------
DICAS 2114 WINDEV WEBDEV MOBILE WINDOWS SO 1 PROCESSOS ExeListProcess ex...
Nenhum comentário:
Postar um comentário