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

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

Процессы [D6, WinXP]

Pit ©   (2006-02-20 15:26:00) 

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

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var
NewItem:        TMenuItem;
buff:           array[0..127] of Char;
hSnapShot:      THandle;
uProcess:       PROCESSENTRY32;
r:              longbool;
ExePath:        array[0..127] of Char;
A:              array[0..127] of Char;
TheBitmap:      TBitmap;
Icon:           TIcon;
Wnd:            hWnd;
ProcessID:      DWORD;
ProcessHandle : THandle;
begin
PopupMenu1.Items.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do begin
if (Wnd <> Application.Handle) and
IsWindowVisible(Wnd)and
(GetWindow(Wnd, gw_Owner) = 0) and
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
then begin
GetWindowText(Wnd, buff, sizeof(buff));
GetWindowThreadProcessId(Wnd, ProcessId);
ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessId);
GetModuleFileNameEx(ProcessHandle, 0, ExePath,127);
StrPCopy(a,ExePath);
TheBitmap:= TBitmap.Create;
Icon:= TIcon.Create;
Icon.Handle := ExtractIcon(HInstance, A, 0);
TheBitmap.Height := Icon.Height;
TheBitmap.Width := Icon.Width;
TheBitmap.Canvas.Draw(0, 0, Icon);
NewItem := TMenuItem.Create(PopupMenu1);
NewItem.Caption := buff ;
NewItem.Bitmap:= TheBitmap;
PopupMenu1.Items.Insert(0,NewItem);
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
TheBitmap.Free;
Icon.Free;

hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
if(hSnapShot<>0)then
begin
r:=Process32First(hSnapShot, uProcess);
while r <> false do
begin
ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, uProcess.th32ProcessID);
GetModuleFileNameEx(ProcessHandle, 0, ExePath,127);
TheBitmap:= TBitmap.Create;
Icon:= TIcon.Create;
StrPCopy(a,ExePath);
Icon.Handle := ExtractIcon(HInstance, A, 0);
TheBitmap.Height := Icon.Height;
TheBitmap.Width := Icon.Width;
TheBitmap.Canvas.Draw(0, 0, Icon);

NewItem := TMenuItem.Create(PopupMenu1);
NewItem.Caption := uProcess.szExeFile;
NewItem.Bitmap:= TheBitmap;
PopupMenu1.Items.Insert(0,NewItem);
TheBitmap.Free;
Icon.Free;
r:=Process32Next(hSnapShot, uProcess);
end;
CloseHandle(hSnapShot);

end;

end;

---

Pit   (2006-02-20 16:16:00) [1]

> kaZaNoVa ©   (20.02.06 16:09) [3]
>
> > hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
>
> > 0);
>
> сразу после этого, может еще добавить типа:
>
> uProcess.dwSize := Sizeof(uProcess);


Ты прав, я совсем про это забыл, всё работает.
Надо мне внимательней читать MSDN.
Спасибо Огромное kaZaNoVa .

---

kaZaNoVa   (2006-02-20 16:09:00) [2]

> hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
> 0);

сразу после этого, может еще добавить типа:

uProcess.dwSize := Sizeof(uProcess);

---

Pit   (2006-02-20 15:58:00) [3]

> kaZaNoVa
>
> а где соответсвующие  CloseHandle(ProcessHandle);
>
> может в этом проблема?


Добавил   CloseHandle(ProcessHandle), не помогло.

---

kaZaNoVa   (2006-02-20 15:48:00) [4]

Pit ©   (20.02.06 15:26)
ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessId);

а где соответсвующие   CloseHandle(ProcessHandle);

может в этом проблема?

---

Наверх