![]() |
|
|
#1
|
|||
|
|||
![]() Всем привет, срочно нужна помощ.. с процессами никогда не работал, даж не представляю как сделать...
Задача... При запуске программы и при нажатии на Button1, программа должна по Handlе найти процесс (имя Handlе КОНСТАНТА) Если процесс с таким Handlе есть, то выдать сообщение-True если нету False а) если процесс с Handlе есть, найти его и закрыть Handlе данного процесса.. Буду благодарен за любую информацию |
#2
|
|||
|
|||
![]() Я неслишком компитентен в этом вопросе, поэтому могут быть неточности.
Handlе - уникальный идентификатор окна. hwnd := FindWindow (nil, 'Form1'); //ищем окнo с заголовком "Form1" if hwnd <> 0 then {нашлось}; |
#3
|
|||
|
|||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); var q:hwnd; begin q:=findwindow('SciCalc','Калькулятор'); if q=0 then showmessage('окно не найдено '); if q=0 then exit ; if q>0 then showmessage('окно найдено '); sendmessage(q,wm_close,0,0); end; это для калькулятора из виндоус : ) procedure TForm1.Button1Click(Sender: TObject); var q:hwnd; begin q:=findwindow(nil,'КОНСТАНТА'); if q=0 then showmessage('окно не найдено '); if q=0 then exit ; if q>0 then showmessage('окно найдено '); sendmessage(q,wm_close,0,0); end; а так для окна с именем КОНСТАНТА |