[mak-karpov]

Народ, хелп!

Пишу программу, которая поставит пароль на экзешник.
Алгоритм такой:
1) Искать нужный процесс.
2) Если он найден, запрлосить пароль
3) Пока пароль не введен правильно убивать процесс

Все есть, но как с процессами - не знаю.

[Sharky]

Есть такие вирусы которые заражают екзешники . Они кладут тело вируса в код программы (т е заражают) тебе нужно тоже добавить в байт код такую последовательность байт что бы запрашивался пароль .Сделать это трудновато

[mak-karpov]

Да мне надо процессы, а именно
1) искать
2) получать PID
3) убивать

[canibbal]

убивает процес

Код:

function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);


while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);
end;

Admin: Пользуемся тегами!