Чтение всех запущенных процессов

[Crunkordie]

Здравствуйте.
есть код программы :

S:                 array of string;
cb,z:              Integer;
ProcessHandle:     THandle;
ProcessExePath:    array[0..127] of Char;
pmc:               PPROCESS_MEMORY_COUNTERS;
T: Textfile;
...
procedure GetProcs();
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin
  z:=0;
  FileDescription:= '';
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap = INVALID_HANDLE_VALUE then exit;
  pe32.dwSize := SizeOf(ProcessEntry32);
  if Process32First(hProcSnap, pe32) = true then
    while Process32Next(hProcSnap, pe32) = true do
     begin
      ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False,pe32.th32ProcessID );
      GetModuleFileNameEx(ProcessHandle, 0, ProcessExePath,127);
      cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
      GetMem(pmc, cb);
      pmc^.cb := cb;
      GetProcessMemoryInfo(ProcessHandle, pmc, cb);
      if  pmc^.PeakPagefileUsage <> 0 then begin
                                              S[z]:=pe32.szExeFile+' : '+ExpandFileName(ProcessExePath);
                                              z:=z+1;
                                              SetLength(S, z+1);
                                           end;
    end;
  CloseHandle(hProcSnap);
  CloseHandle(ProcessHandle);
  showmessage('vse');
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;

begin
GetProcs();
AssignFile(T,'D:\test.txt');
Rewrite(T);
Writeln(T, '[Proc]');
for I := 0 to z do begin
                    Writeln(T, S[i]);
                   end;
end;

Программа считывает все процессы и записывает в текстовый файл. При запуске в среде разработки отображаются все процессы, а если запустить через exe, то большую часть не видит. Это можно как-нибудь исправить?