Удаление файла из процесса

[Killbrum]

Всем доброго времени суток! Вот я уже доделываю свою программку (вскоре выложу ее только она спецыфичная, лаунчер для игры) но вот столкнулся с проблемкой. Запускать файл я научился, а вот убивать файл из процесса незнаю как. Может ктото подскажет? Не свой процес убить надо (там бы просто Close) а чужой . Мне например надо чтоб сторонняя программа запускалась (для чита) а моя программа ее убивала(закрывала). Подскажите пожалуйста как закрывать чужеродные программы. Большое спасибо!

[Stilet]

Ну помоему тут уже это сто раз обсуждалось
Вот ключевые слова:
TerminateProcess
CreateToolhelp32Snapshot

[Killbrum]

Большое спасибо! Будем искать

[Terran]

Зная имя процесса, вы его можете убить так:

Uses
   Tlhelp32, 
-----------
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;
//------------------------------------------------------//
Procedure TForm1.FormCreate(Sender: TObject);
Begin
KillTask('winamp.exe');
End;

Если процесс не защищённый, то этот код его порвёт "как Тузик грелку"

Так же можно завершать приложения зная заголовок окна:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
H: HWND;
Begin
H:=FindWindow(Nil, 'Заголовок окна');
If H=0 Then Exit;
PostMessage(H, WM_QUIT, 0, 0);
End;