VPF::закрыть чужое приложение - Форум программистов

Михалыч

Дата 28.3.2009, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Как закрыть чужое приложение зная путь к исполняющему файлу.
Закрывать по названию окна не подходит
PostMessage(FindWindow(nil, 'Заголовок окна'), WM_QUIT, 0, 0);

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

razsagal

Дата 28.3.2009, 20:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 23.10.2007
Где: Украина, Днепродз ержинск

Репутация: 1
Всего: 1

если знаешь ЕХЕ - ищи в процессах и килляй

Михалыч

Дата 28.3.2009, 20:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

А через командную строку как?

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Virtuals

Дата 29.3.2009, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 3
Всего: 11

Михалыч, а зачем тебе коммандная строка, ну в ХР это taskkill.exe

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

Код


Hp:= OpenProcess(PROCESS_TERMINATE, FALSE, PID_твоего процесса);
 StatusBar1.Panels[0].Text:=SysErrorMessage(GetLastError);
if Hp <> 0 then
begin
TerminateProcess(Hp, 0);
          StatusBar1.Panels[0].Text:=SysErrorMessage(GetLastError);

снимок системы (список процессов)

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  PE: TProcessEntry32;
  Snap: THandle;
  Row:integer;
begin
Row:=1;
//StringGrid1.FixedCols :=1;
//StringGrid1.FixedRows :=1;
  Snap:= _CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,4);
  if Snap <> 0 then begin
    if Process32First(Snap, PE) then
                   begin
                      StringGrid1.Cells[0,Row]:=String(PE.szExeFile);
                      StringGrid1.Cells[1,Row]:=inttostr(PE.th32ProcessID );
                      inc(row);
                     while Process32Next(Snap, PE) do
                      begin
                      StringGrid1.Cells[0,Row]:=String(PE.szExeFile);
                      StringGrid1.Cells[1,Row]:=inttostr(PE.th32ProcessID );
//                      StringGrid1.Cells[2,Row]:=inttostr(PE.cntThreads );
                      inc(row);
                      end;
                   end;
    CloseHandle(Snap);
StringGrid1.RowCount:=row;
StringGrid1.ColCount:=3;
  end;
end;

но имхо корректней,
найти все окна данного процесса (GetWindow)

и послать им WM_Close, wm_quit, подождать... если приложение грязно не хочет отрубатся, вот тогда уже TerminateProcess
//данный алгоритм аналог поведения винды при выключении.

Михалыч

Дата 29.3.2009, 13:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Я уже разобрался,спасибо большое,я именно так и сделал,тема закрыта

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »