[Snake22]

опять чтото не получается.сообщение же надо посылать в Хэндл?
переделал функцию вот так:

Код:

if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
(UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
   begin
   hndl:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, FP.th32ProcessID);//получаю хэндл найденного процесса
   ShowMessage(IntToStr(hndl));//для отладки
   //SendMessage(hndl,WM_CLOSE,0,0);
   end;

и вот каждый раз показывается один и тот же хэндл! при первом нажатии кнопки 304,потом 308 и каждый раз больше на 4.