Exemplo - Listar Processos do windows

[igormoita]

CoderSc , teria como ser um pouco mais específico? Não entendi onde nem como utilizar a função que você citou. (PegarPrioridade)

[CoderSc]

Acabei entendendo errado sua pergunta na verdade aquela função pega a prioridade de um processo utilizando a GetProcessPriority foi mal..

Mas pro teu caso tu pode utilizar a função GetProcessMemoryInfo da PsApi.

Tipo assim:

function MemoriaDoProcesso ( PID : Cardinal): Cardinal;
var
HWNDP : HWND;
PMC : PPROCESS_MEMORY_COUNTERS;
C : Cardinal;
begin
result := 0;
C := SizeOf(PROCESS_MEMORY_COUNTERS);
GetMem(PMC, C);
PMC^.cb := C;
HWNDP := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
try
if (GetProcessMemoryInfo(HWNDP, PMC,C)) then
Result := PMC^.WorkingSetSize else Result := 0;
except
end;
FreeMem(PMC);
end;

E para utiliza-lá poderia ser num loop que você está fazendo para listar os processos... Vamos supor um trecho do código:

with listview1.items.add do begin
caption := inttostr(PE.th32processid); //PID
subitems.add(PE.szexefile);               //nome do processo
subitems.add(inttostr(MemoriaDoProcesso(pe.th32processid))); //memória em bytes
end;

Sendo que "PE" é uma variável do tipo tprocessentry32 da tlhelp32 para listar os processos.

t+

[igormoita]

CoderSc
Você bateu em cima da tecla xD, era isso mesmo que eu queria.
Mais uma coisa, caso você entenda de DataSnap e Aplicação Multi-Camadas teria como você dar uma lida neste outro tópico e me dar algumas idéias?

http://www.activedelphi.com.br/forum...er=asc&start=0

Estou fazer de tudo para tentar resolver o problema.
Obrigado pela ajuda.

[CoderSc]

CoderSc
Você bateu em cima da tecla xD, era isso mesmo que eu queria.
Mais uma coisa, caso você entenda de DataSnap e Aplicação Multi-Camadas teria como você dar uma lida neste outro tópico e me dar algumas idéias?

http://www.activedelphi.com.br/forum...er=asc&start=0

Estou fazer de tudo para tentar resolver o problema.
Obrigado pela ajuda.

Beleza,

Disponha [] 's

[FoXxD]

FoXxD eu ficaria muito agradecido se você podesse reupar seu código fonte para download.
Preciso fazer um monitoramento dos sistemas que estou fazendo e não encontrei alguns processos que espero encontrar no seu fonte.
Obrigado desde já.

É bom que já tenha resolvido, não tenho mais esse fonte.

Abraços.