Descrizione del progetto
TradottoEsempio
Var Var Var Var Var.
i: intero;
Inizio.
// Aggiornamento dell'elenco dei processi
RefreshProcessList;
AddToLog ('Numero di processi = '+IntToStr' (GetProcessCount))
// Ciclo di analisi dell'elenco ricevuto
per i := 0 a GetProcessCount - 1 fare inizio
// Uscita PID del processo e il suo nome
AddToLog(IntToStr(GetProcessPID(i)) + '+ GetProcessName(i)');
// Fermare il processo sotto condizione
se pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 allora
TerminateProcess(GetProcessPID(i))
fine;
Fine.
Gli esempi seguenti sono stati utilizzati: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminateProcess
Questo esempio dimostra l'uso di tutte le funzioni descritte sopra per lavorare con i processi. Prima, l'elenco dei processi viene aggiornato utilizzando la funzione RefreshProcessList. Poi, l'elenco viene visualizzato in un ciclo con l'output delle informazioni nel protocollo.
Inoltre, i processi il cui nome del file eseguibile contiene il testo “trojan.exe” vengono terminati chiamando TerminateProcess, a cui viene trasmesso l'identificatore del processo (PID).