Воскресенье, 22.12.2024, 06:59 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
delphicode » Delphi » Вопросы по Delphi » Как убить программу по имени окна ? (....)
Как убить программу по имени окна ?
NormalnyjДата: Понедельник, 16.12.2013, 22:05 | Сообщение # 1
Был не раз
Зарегистрирован: 08.11.2013
Группа: Пользователи
Сообщений: 9
Статус: Offline
Как убить программу по имени окна ?Желательно исходник, заранее спасибо.
 
okeДата: Понедельник, 16.12.2013, 23:24 | Сообщение # 2
Постоянный
Зарегистрирован: 15.01.2012
Группа: Пользователи
Сообщений: 124
Статус: Offline
Код
procedure taskend(exe:string);
var
   h:HWND;
begin
   h:= FindWindow(nil,PChar(exe));
   if h<>0 then
   SendMessage(h,WM_CLOSE,0,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
taskend(Edit1.Text);
end;
 
NormalnyjДата: Вторник, 17.12.2013, 20:30 | Сообщение # 3
Был не раз
Зарегистрирован: 08.11.2013
Группа: Пользователи
Сообщений: 9
Статус: Offline
Спасибо большое !
 
delphicode » Delphi » Вопросы по Delphi » Как убить программу по имени окна ? (....)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz