закрытие чужого процесса

[Dimon]

h1 := ShellExecute(h, 'open', 'C:\List.wpl', nil, nil, SW_SHOW);
OpenProcess(PROCESS_TERMINATE,True, h1);
TerminateProcess(h1,0);

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

[Квэнди]

Одно из многочисленных готовых решений:

function ProcessTerminate(dwPID:Cardinal):Boolean;
var
 hToken:THandle;
 SeDebugNameValue:Int64;
 tkp:TOKEN_PRIVILEGES;
 ReturnLength:Cardinal;
 hProcess:THandle;
begin
 Result:=false;
 // Добавляем привилегию SeDebugPrivilege 
 // Для начала получаем токен нашего процесса
 if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
  or TOKEN_QUERY, hToken ) then
    exit;

 // Получаем LUID привилегии
 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;

 // Завершаем процесс. Если у нас есть SeDebugPrivilege, то мы можем
 // завершить и системный процесс
 // Получаем дескриптор процесса для его завершения
 hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
 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;

[zetrix]

команда taskkill - или что-то подобное было...
В командной строке пропиши taskkill.exe /? - достаточная справка как и что.

[rpy3uH]

функция ShellExecute возвращает хендл процесса а не его PID

и на последок Функция которая получает PID по имени

function GetProcessId(pName: PChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;

[Dimon]

ну как получить PID по имени теперь понятно, кстати спасибо, а как получить теперь имя процесса?

[Квэнди]

Список процессов:
var
Wnd: hWnd;
buff: array[0..127] of Char;
begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do begin {Не показываем:}
if (Wnd <> Application.Handle) and {-Собственное окно}
IsWindowVisible(Wnd) and {-Невидимые окна}
(GetWindow(Wnd, gw_Owner) = 0) and {-Дочернии окна}
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {-Окна без заголовков}
then begin
GetWindowText(Wnd, buff, sizeof(buff));
ListBox1.Items.Add(StrPas(buff));
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
ListBox1.ItemIndex := 0;

[rpy3uH]

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

ну как получить PID по имени теперь понятно, кстати спасибо, а как получить теперь имя процесса?

так же!, только условие вот такое

if Process.th32ProcessID = PID then
             begin
              Result := Process.szExeFile;
              CloseHandle(Snap);
              Exit;
             end;

[regman]

помему не могу закрыть окно по его хэндлу??

h:=ShellExecute(Handle, 'open', PChar('http://ukr.net'), nil, nil, SW_SHOW);
Sleep(5000);
SendMessage(h,WM_DESTROY,0,0);

Если юзать

TerminateProcess(h, NO_ERROR);

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