[ApxaHGe1]

Всем привет, срочно нужна помощ.. с процессами никогда не работал, даж не представляю как сделать...
Задача...
При запуске программы и при нажатии на Button1, программа должна по Handlе найти процесс (имя Handlе КОНСТАНТА)
Если процесс с таким Handlе есть, то выдать сообщение-True если нету False
а) если процесс с Handlе есть, найти его и закрыть Handlе данного процесса..

Буду благодарен за любую информацию

[DungeonLords]

Я неслишком компитентен в этом вопросе, поэтому могут быть неточности.

Handlе - уникальный идентификатор окна.

hwnd := FindWindow (nil, 'Form1'); //ищем окнo с заголовком "Form1"
if hwnd <> 0 then {нашлось};

[ControlFreak]

Код:

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;
а так для окна с именем КОНСТАНТА