снова завершить процесс

[WOLFak]

я использую процедуру для завершения текущего процесса
это текущий процесс - вроде бы сама программа, а мне надо тот процесс завершить который не эта программа, а в котором я находился до запуска этой программы

[mihali4]

А теперь потрудитесь перевести на русский...
Просто иначе мы вам ничем помочь не сможем.

[WOLFak]

как тут код проги вставить?
вот короче

procedure KillProgram(ClassName: pchar; WindowTitle: pchar);
const
  PROCESS_TERMINATE = $0001;
var
  ProcessHandle : THandle;
  ProcessID: Integer;
  TheWindow : HWND;
begin
  TheWindow := FindWindow(PChar(ClassName), PChar(WindowTitle));
  GetWindowThreadProcessID(TheWindow, @ProcessID);
  ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
  TerminateProcess(ProcessHandle,4);
end;

с какими параметрами ее вызывать и так чтобы вот пример:
я запустил Nero а моя прогграмма должна завершить бесприковловно этот Nero вырубить его

[mihali4]

Чтобы оформить кусок приведенного текста в виде кода:
- жмем значок "#" на формочке ввода ответа на форуме;
- вводим (или вставляем текст кода).
По сути. Код кодом, но лучше, если вы словами опишете, что у вас есть и что вы хотите получить...
Поверьте, это гораздо легче для нас, нежели пытаться понять это же из вашего неправильного (по вашему же утверждению!) кода...

[WOLFak]

это не мой код и все там правильно
вообщем задумка такая:
в определенное время вырубить игру в которую я в это время буду играть(любую игру) эта игра может быть любой

[FaTaL]

Убьёт всё что хочешь вот такой коктейл молотова.

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;
  

function EnableDebugPrivilege(const Value: Boolean): Boolean;
const
  SE_DEBUG_NAME = 'SeDebugPrivilege';
var
  hToken: THandle;
  tp: TOKEN_PRIVILEGES;
  d: DWORD;
begin
  Result := False;
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken) then
  begin
    tp.PrivilegeCount := 1;
    LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid);
    if Value then
      tp.Privileges[0].Attributes := $00000002
    else
      tp.Privileges[0].Attributes := $80000000;
    AdjustTokenPrivileges(hToken, False, tp, SizeOf(TOKEN_PRIVILEGES), nil, d);
    if GetLastError = ERROR_SUCCESS then
    begin
      Result := True;
    end;
    CloseHandle(hToken);
  end;
  end;

Вызов функции например таков:

procedure TForm1.Button1Click(Sender: TObject);
begin
EnableDebugPrivilege(true);
KillTask ('Имя процесса');
EnableDebugPrivilege (false);
end;

Валит любой процесс напивал!

[WOLFak]

KillTask ('Имя процесса');
проблемка имя мне не известно
любой процесс в котором я нахожусь надо валить
но все равно большое спасибо я этот код где нибудь тоже использую :-)

[Alter]

Этот код " function KillTask(ExeFileName: string): integer; " по имени файла выгружает процесс или по Заголовку или Классу. Смущает ExeFileName.

[FaTaL]

Сообщение от Alter

Этот код " function KillTask(ExeFileName: string): integer; " по имени файла выгружает процесс или по Заголовку или Классу. Смущает ExeFileName.

Нажми CTRL+ALT+DEL и там во вкладке процессов найдёшь именно это имя процесса которое надо вписать, например KillTask ('svchost.exe');

[WOLFak]

TLhelp32
нао в USES прописать иначе ошибка