Процесс listbox1

[nikityan]

добрый день, целый день искал и непонял...
как убрать процесс который я выделяю в listbox??? это программа типа диспечера задач.

[Stilet]

А что у тебя известно программе по процессу кроме его имени?

[Кольша]

вот исходник подобия диспетчера задач

[nikityan]

Ничего, ведь нужно найти его ID. только как это сделать?

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

EnumProcess библитека PSAPI, MSDN => гооголе

[Пепел Феникса]

ну начнем с того что раз вы имеете имена процессов то вы должны были получить и их PID.

[nikityan]

procedure TForm1.FormCreate(Sender: TObject);
var p:PROCESSENTRY32;ct:cardinal;th:Cardinal; mp:array[0..255] of char;
 mm:pchar;ts:TSearchRec; sst:STARTUPINFO;  ss,s:string;

begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
 Process32First(ct,p);
 while Process32Next(ct,p) do begin
  begin
  if ExtractFileName(Application.ExeName)=string(p.szExeFile) then
   form1.Tag:=form1.Tag+1;
    OpenProcessToken(p.th32ProcessID,TOKEN_READ,th);
   ListBox1.Items.Append(string(p.szExeFile));

  end;
 end;  {}



end;

так получаю список процессов

[deathNC]

nikityan, ну так из указателя p и получайте там же PID

[nikityan]

procedure TForm1.Button1Click(Sender: TObject);
var PID:Cardinal;
hProc:Cardinal;
begin
GetWindowThreadProcessId(,PID);
hProc:=OpenProcess(PROCESS_TERMINAT E,true,PID);
TerminateProcess(hProc,0);
end;

вот так пытаюсь завершить, но не получаеться. Можно примерчик испраленного кода пожалуйста?

[deathNC]

function ncProcessTerminate(ProcessID: 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, ProcessID);
  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;

Я так завершал. Вроде работало.