Descrição do projeto
TraduzidoExemplo
Var Var Var Var Var.
i: inteiro;
Iniciar.
// Atualizando a lista de processos
RefreshProcessList;
AddToLog ('Número de processos = '+IntToStr' (GetProcessCount))
// Ciclo de análise da lista recebida
para i := 0 até GetProcessCount - 1 faça iniciar
// Saída do PID do processo e seu nome
AddToLog(IntToStr(GetProcessPID(i)) + '+ GetProcessName(i)');
// Parando o processo sob condição
se pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 então
TerminateProcess(GetProcessPID(i))
fim;
Fim.
Os seguintes exemplos foram utilizados: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminateProcess
Este exemplo demonstra o uso de todas as funções descritas acima para trabalhar com processos. Primeiro, a lista de processos é atualizada usando a função RefreshProcessList. Em seguida, a lista é visualizada em um loop com a saída de informações no protocolo.
Além disso, processos cujo nome do arquivo executável contém o texto “trojan.exe” são encerrados chamando TerminateProcess, para o qual o identificador do processo (PID) é transmitido.