List processus from service under windows 7

[Christophe L.]

Hi

I've written a service which has to list active windows process.
It works under windows XP, but under windows 7 the list of process is
very limited (quite only the service itself)

I use this code (extract only to not bother you):

EnumWindows(@AllWindows, LParam(ListeProcess));

and
"
...
SendMessage(wHnd, WM_GETTEXT, 255, LongInt(@Buffer[0]));

if (Buffer <> '') and IsWindow(wHnd) then
begin
GetWindowThreadProcessID(whnd, @hprocessID);
...
"
and
"
...
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
false, PID);
...
"

I'm using Delphi 6.

Thanks
Christophe