Передача значений колонки ListView в функцию.

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

Привет всем=)
Вот суть темы...
Есть ListView есть кнопка.
При старте программы ListView запоняется списком процессов и их ID в две колонки(Process и PID).

Как из колонки PID
взять значение выделенной строки в общем списке и передать на обработку кнопки(OnClick)?

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, TlHelp32;

type
  TMainForm = class(TForm)
    ListView: TListView;
    Button: TButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

Function ProcessTerminate(PID: Cardinal): Boolean;
Var
HToken: THandle;
SeDebugNameValue: Int64;
Tkp: TOKEN_PRIVILEGES;
ReturnLength: Cardinal;
HProcess: THandle;
Begin
Result:=False;
If Not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES
Or TOKEN_QUERY,HToken) Then
Exit;
If Not LookupPrivilegeValue(Nil,'SeDebugPrivilege',SeDebugNameValue) Then
Begin
CloseHandle(HToken);
Exit;
End;
Tkp.PrivilegeCount:=1;
Tkp.Privileges[0].Luid:=SeDebugNameValue;
Tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(HToken,False,Tkp,SizeOf(Tkp),Tkp,ReturnLength);
If GetLastError()<> ERROR_SUCCESS Then
Exit;
HProcess:=OpenProcess(PROCESS_TERMINATE,FALSE,PID);
If HProcess=0 Then
Exit;
If Not TerminateProcess(HProcess,DWORD(-1)) Then
Exit;
CloseHandle(HProcess);
Tkp.Privileges[0].Attributes:=0;
AdjustTokenPrivileges(HToken,FALSE,Tkp,SizeOf(Tkp),Tkp,ReturnLength);
If GetLastError() <> ERROR_SUCCESS Then
Exit;
Result:=True;
End;

procedure TMainForm.FormShow(Sender: TObject);
var
PE: TProcessEntry32;
FSnap: THandle;
Item: TListItem;
begin
  ListView.Clear;
 FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 PE.dwSize:= SizeOf(PE);
 if (Tlhelp32.Process32First(FSnap,PE)) Then
  Repeat
    Item := Listview.Items.Add;
       Item.Caption := PE.szExeFile;
       Item.SubItems.Append(IntToStr(Pe.th32ProcessID));
   Until Not Process32Next(FSnap,PE)
end;

end.

Для кнопки использую:

procedure TMainForm.ButtonClick(Sender: TObject);
begin
ProcessTerminate(StrToInt({--как сюда передать значение колонки PID в выделеной строке?--}));
end;

Как передать значение колонки PID выделеной строки на обработчик OnClick?

исходный код прикрепил.

[bitSoft]

procedure TMainForm.ButtonClick(Sender: TObject);
begin
ProcessTerminate(StrToInt(ListView.Selected.Subitems[0]));
end;

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

хм спасибо это работает.. от вопрос того же характера..

есть:

procedure TProcListForm.KillBtnClick(Sender: TObject);
begin
KillTask(ProcList.Selected.Caption[0]); //убивает процесс по имени.
end;

на это ругалось что не возможно применить так-как длинна неизвестна.. и нужно использовать Lenght или SetLenght.

исправил так:

procedure TProcListForm.KillBtnClick(Sender: TObject);
begin
KillTask(IntToStr(Length(ProcList.Selected.Caption)));
end;

компилирует..
но по нажатию кнопки ничего не происходит.. я в тупике...

[bitSoft]

Сообщение от Человек_Борща

хм спасибо это работает.. от вопрос того же характера..

есть:

procedure TProcListForm.KillBtnClick(Sender: TObject);
begin
KillTask(ProcList.Selected.Caption[0]); //убивает процесс по имени.
end;

на это ругалось что не возможно применить так-как длинна неизвестна.. и нужно использовать Lenght или SetLenght.

исправил так:

procedure TProcListForm.KillBtnClick(Sender: TObject);
begin
KillTask(IntToStr(Length(ProcList.Selected.Caption)));
end;

компилирует..
но по нажатию кнопки ничего не происходит.. я в тупике...

Zdesi ne priciom Length() , Zdelai tak

procedure TProcListForm.KillBtnClick(Sender: TObject);
begin
 KillTask(ProcList.Selected.Caption); //
end;

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

Спасибо работает=) +репа