Перебор процессов из Memo1

[Mik92]

Привет, долго сидел и решил все таки спросить.
Получаю процессы запущенные на данный момент, затем записываю их в Memo1. Далее хочу получить хэндлы этих процессов а именно перебрать каждый процесс из Memo1 и получить его хэндл затем записать его хэндл в Memo2 и так пока процессы не закончатся. Проблема в переборе процессов и получение его хэндла. Помогите, наведите на правильный путь я совсем запутался.

[Stilet]

Хендл всмысле PID или хендл главного окна процесса (если оно есть)?

[Mik92]

Сообщение от Stilet

Хендл всмысле PID или хендл главного окна процесса (если оно есть)?

Хэндл главного окна процесса, например "Project1 - Delphi XE4 - Uni1..."

[Streletz]

Сообщение от Mik92

Хэндл главного окна процесса

Можно покопаться в этом примере.
Нашёл в своё время на форуме. Где, сам уже не помню.

[Mik92]

Сообщение от Streletz

Можно покопаться в этом примере.
Нашёл в своё время на форуме. Где, сам уже не помню.

Не думаю что это хорошо подойдет к моей проблеме . Что то похожее я уже в гугле находил но к сожалению это не то что меня интересует. Получить процессы это не проблема была, проблема в том как брать каждую строку из Memo1 считая ее как за процесс и получая ее хэндл при этом записывая его в Memo2 и так каждую строку.
Думаю что то в строну подсчета строк а затем по отдельности брать каждую и выполнять действия.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=74962

[Mik92]

Получение хэндла процесса получилось в таком виде

procedure TForm1.sButton1Click(Sender: TObject);
var
hWindow: HWND;
hWnd: THandle;
hProc, PID, numberRead, buf : DWORD;
WindowText: string;
begin
hWnd:= GetHwnd(GetCurrentProcessId());
prID:=GetProcess(ProcessName);
hWnd:=findwindow('TForm1', nil);
hProc:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
SetLength(WindowText, 255);
SetLength(WindowText, GetWindowText(hWnd, @WindowText[1], Length(WindowText)));
sMemo1.Text:= WindowText;
end;

Но это получение хэндла одного процесса, как сделать чтобы перебирало все процессы из Memo1?

[Stilet]

Пройти по моей ссылке не желаешь?

[Mik92]

Сообщение от Stilet

Пройти по моей ссылке не желаешь?

Если честно, не разобрался

Как воспользоваться этой функцией?

function search(name:string): Cardinal;
var ExeFile    : String;
    PE         : TProcessEntry32;
    FSnap,Handl: THandle;
begin
 result:= 0;
 FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 //
 PE.dwSize:= SizeOf(PE);
 if (Tlhelp32.Process32First(FSnap,PE)) Then
  Repeat
   ExeFile:= PE.szExeFile;
   //
   if pos(pchar(lowercase(name)), lowercase(ExeFile))>0 then
    Begin
     result:= PE.th32ProcessID;
     //Handl:= OpenProcess(PROCESS_ALL_ACCESS,False,PE.th32ProcessID); // PE.th32ProcessID
     //Прекращаем процесс
     terminateProcess(Handl,1);
     WaitForSingleObject(Handl,INFINITE); //Ждем завершения
     break
    End;
   Until Not Process32Next(FSnap,PE)
end;

[Stilet]

Как воспользоваться этой функцией?

Этой никак. Ее нужно изучить. Она вообще-то останавливает процесс по имени экзешника, и тебе подойдет только как наглядный пример цикла прохода по списку процессов.

Если честно, не разобрался

А че злой такой?
Я помочь хотел. Дал код с примером прохода по списку и получением заголовков окон у этих процессов, а ты злишься