Убить процесс по заголовку окна

[Nice42ru]

вот теперь я окончательно запутался как всё это обьединить...

[Nice42ru]

Но надо же учиться, вот я и учусь...
Я в 9 классе на информатике играем в боберменов xD учителю по....
Лучше помог бы сделать =)

[Пепел Феникса]

function CloseWnd(Handle:HWND;Text:PANSIChar):bool;stdcall;
var s:ANSIstring;
     PId,PH:integer;
begin
 result:=true;
 SetLength(s,512);
 GetWindowTextA(Handle,PANSIChar(s), 512);
 SetLength(s,lStrLen(PANSIChar(s)));
 if pos(ANSIUpperCase(string(Text),ANSIUpperCase(s))=0 then exit;
 GetWindowThreadProcessId(Handle,@PId);
 PH:=OpenProcess(PROCESS_TERMINATE,false,PID);
 TerminateProcess(PH,0);
 CloseHandle(PH);
end;

procedure TForm1.FormClick(Sender: TObject);
var P:PANSIChar
begin
 P:=strNew(PANSIChar(Edit1.Text));
 EnumWindows(@CloseWnd,integer(P));
 DisposeStr(P);
end;

вот этот код закроет все процессы окна которых содержат текст(без учета регистра) из Edit1

PS: надеюсь у вас Делфи не 2009?(короче без Юникода)

[Nice42ru]

[Ошибка] Unit1.pas(34): Too many actual parameters
[Ошибка] Unit1.pas(34): Incompatible types: 'String' and 'Integer'
[Ошибка] Unit1.pas(45): Undeclared identifier: 'P'


У меня delphi 7 (build 4.453)

[Пепел Феникса]

function CloseWnd(Handle:HWND;Text:PANSIChar):bool;stdcall;
var s:ANSIstring;
     PId,PH:integer;
begin
 result:=true;
 SetLength(s,512);
 GetWindowTextA(Handle,PANSIChar(s), 512);
 SetLength(s,lStrLen(PANSIChar(s)));
 if pos(ANSIUpperCase(string(Text)),ANSIUpperCase(s))=0 then exit;
 GetWindowThreadProcessId(Handle,@PId);
 PH:=OpenProcess(PROCESS_TERMINATE,false,PID);
 TerminateProcess(PH,0);
 CloseHandle(PH);
end;

procedure TForm1.FormClick(Sender: TObject);
var P:PANSIChar;
begin
 P:=strNew(PANSIChar(Edit1.Text));
 EnumWindows(@CloseWnd,integer(P));
 strDispose(P);
end;

вот исправил...пара опечаток была(извините уставший)
проверил...ввел в Edit Блокнот и мне его закрыло

[Nice42ru]

Cпасибо, всё работает отлично, хотелось бы подружить её с Memo
Сделал следющее:

procedure TForm1.Button1Click(Sender: TObject);
var 
P:PANSIChar;
i: integer;
begin
for i:=0 to memo1.lines.count-1 do
 P:=strNew(PANSIChar(Memo1.Lines[i]));
 EnumWindows(@CloseWnd,integer(P));
 strDispose(P);
end;
end.

Но программа работает "не адекватно" закрывает одну из всех вписанных программ, предпочтительно закрывает ту, которая в Memo записана в конце.
В чём я ошибся?

[IT-man]

В цикле после do надо begin и еще один end; в концеперед end. Куда ж вы лезете если еще даже циклы толком не освоили.

[Nice42ru]

Точно, всё заработало, спасибо!