| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с Handle процесса

Новичоккк ©   (2006-03-07 14:19:00) 

Первый вариант:
var
 StartInfo: TStartupInfo;
 ProcInfo: TProcessInformation;
begin
 ZeroMemory(@StartInfo, SizeOf(TStartupInfo));
 StartInfo.cb := SizeOf(TStartupInfo);
 CreateProcess(nil, 'notepad.exe', nil, nil, False, 0, nil, nil, StartInfo, ProcInfo);
end.
ProcInfo.hProcess

Второй вариант:
wnd:=FindWindow(nil,'Безымянный - Блокнот');
PID:=GetWindowThreadProcessID(wnd);
if PID=0 then
 begin
  ShowMessage('Wrong PID');
  exit;
 end;
ProcHandle:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);
Теоритически Handle один и тот же?

---

Fay   (2006-03-07 14:26:00) [1]

> Теоритически Handle один и тот же?
С какого перепуга?

---

Наверх