Projektbeschreibung
ÜbersetztBeispiel
Var Var Var Var Var.
i: integer;
Begin.
// Aktualisierung der Prozessliste
RefreshProcessList;
AddToLog ('Anzahl der Prozesse = '+IntToStr' (GetProcessCount))
// Zyklus der Analyse der erhaltenen Liste
for i := 0 to GetProcessCount - 1 do start
// PID-Prozessausgabe und dessen Name
AddToLog(IntToStr(GetProcessPID(i)) + '+ GetProcessName(i)');
// Stoppen des Prozesses unter Bedingung
if pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 then
TerminateProcess(GetProcessPID(i))
end;
End.
Die folgenden Beispiele wurden verwendet: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminateProcess
Dieses Beispiel demonstriert die Verwendung aller oben beschriebenen Funktionen zur Arbeit mit Prozessen. Zuerst wird die Prozessliste mit der Funktion RefreshProcessList aktualisiert. Dann wird die Liste in einer Schleife mit der Informationsausgabe im Protokoll angezeigt.
Darüber hinaus werden Prozesse, deren ausführbarer Dateiname den Text „trojan.exe“ enthält, durch den Aufruf von TerminateProcess beendet, dem die Prozesskennung (PID) übergeben wird.