Пример для EndTask

[jone]

function EndTask(Wnd: HWND; PrID: DWORD; Title: PChar; Flags: DWORD): DWORD; stdcall; external "user32.dll";

есть такая функция

нашёл

Итак начнем: 
Wnd - ссылка на окно, процесс которого нужно завершить 
PrID - идентификатор процесса, который нужно завершить 
( используется либо Wnd либо PrID. Преимущество отдается Wnd) 
Title - используется если не задан Wnd, а задан PrID. Этот текст выводится в заголовке системного окна "Приложение не реагирует ... " Если же задана ссылка на окно Wnd, то используется заголовок окна, а этот параметр игнорируется. 
Flags = 
0 - Выводится системное окно "Приложение не реагирует на системные запросы ... " с кнопками "Завершить задачу" и "Отменить" 
1 - Выводится системное окно "Приложение не реагирует на системные запросы ... " с кнопками "Подождать", "Завершить задачу" и "Отменить" 
>1 - Ничего не выводится, нриложение завершается. 

Возвращаемое значение: 
0 - Ошибка в параметрах 
2 - Пользователь нажал "Отмена" или такого процесса/окна не существует. 
3 - Процесс успешно завершен. 
4 - Пользователь нажал кнопку "Подождать"

нужен пример чтобы завершало процесс по имени с этой функцией

[саша40]

GetProcessID позволяет узнать PID процесса по его имени.
OpenProcess - получает хендл процесса(HWND) по его ID.
Если мозгов хватит, то написать код не будет проблемой.

[jone]

Сначало писало Privileged instruction. и ошибки

потом сделал так

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,TLhelp32;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function getProcessId(Exename:string):Dword;
 var snap:DWORD;
 pe:TprocessEntry32;
 begin
 result:=0;
 snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 if snap <>INVALID_HANDLE_VALUE then begin
 pe.dwSize:=sizeof(TPROCESSENTRY32);
 if process32First(snap,pe) then
 repeat
 if pe.szExeFile=exename then begin
 result:=pe.th32ProcessID;
 closehandle(snap);
 exit;
 end;
 until not process32Next(snap,pe);
 closehandle(snap);
 result:=0;
 end;
 end;


function EndTask(Wnd: HWND; PrID: DWORD; Title: PChar; Flags: DWORD): DWORD; stdcall; external 'user32.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
i2:integer;
begin
i:=getprocessid('uTorrent.exe');
i2:=OpenProcess($0001, False, i);
         showmessage(intToStr(i)+' '+intToStr(i2));

     EndTask(i2,i,'123',3);


end;
end.

ничего не происходит почему?

[Человек_Борща]

Читайте официальную документацию а не а бы что из неизвестно откуда. описание функции и её параметров чуть более чем полностью неверное.
Собственно вот она, по этой функции.
Там очень четко сказано, что функция эта не постоянная и скорее всего будет удалена из последующих версий Windows.
Если не работает, значит её уже нет.

[IliaIT]

завершение самой себя через убийство процесса. только иногда может не хватить прав в винде для исполнения, но для пользовательских обычных приложений подходит. shellapi используется.

   begin
     cmd := 'open';
     fil := PChar('TASKKILL');
     par := PChar('/F /pid '+inttostr(GetCurrentProcessId));
     dir := '';
     ShellExecute(Self.Handle, cmd, fil, par, dir, SW_HIDE);
   end;