Получение списка процессов

[tooBot]

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

library getProc;

{Библиотека списка процессов. Получает список процессов и хранит их в файле.}

uses
  SysUtils,
  Windows,
  ShellAPI,
  Classes,
  messages,
  Registry,
  TlHelp32;

{$R *.res}
procedure getProccessList;
var
  stdPath : PAnsiChar;        //путь к файлу
  hFile : THandle;            //идентификатор (хэндл) приложения
  Buffer : cardinal;          //буфер для записи
  str : string;               //строка, передаваемая в файл
  ProcInfo: TProcessEntry32;
  hSnapShot: THandle;
begin
  stdPath:='proc.dmp';
  hFile:=CreateFile(stdPath, GENERIC_WRITE, 0, nil , CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot <> THandle(-1)) then
  begin
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then
    begin
      str:=ProcInfo.szExeFile + '' + #13;
      while (Process32Next(hSnapShot, ProcInfo)) do
      begin
        FileSeek(hFile,GetFileSize(hFile,nil),0);
        WriteFile(hFile, PAnsiChar(str)^, Length(str), Buffer, Nil);
      end;
    end;
    CloseHandle(hSnapShot);
    CloseHandle(hFile) ;
  end;
end;
exports  getProccessList;
begin

end.

Собственно, что получаем на выходе:

[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]
[System Process]

Запускал от имени администратора. Результатов не дало.
Регистрация библиотеки в системе так же не поможет, т.к. запускал такой код напрямую из программы. Результат тот же.
Понимаю что проблема в правах доступа, но вот как решить - не знаю.
Надеюсь на Вашу помощь.

[Filka]

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

Понимаю что проблема в правах доступа, но вот как решить - не знаю.

Проблема в том, что str:=ProcInfo.szExeFile + '' + #13; находится вне цикла while...
И вообще можно сделать проще:

uses
  TlHelp32;

procedure GetProcessList;
const
  cFileName = 'ProcessList.txt';
var
  ProcessSnap: THandle;
  PE32: TProcessEntry32;
  F: TextFile;
begin
  ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if ProcessSnap <> INVALID_HANDLE_VALUE then
  begin
    PE32.dwSize := SizeOf(TProcessEntry32);
    if Process32First(ProcessSnap, PE32) then
    begin
      AssignFile(F, cFileName);
      Rewrite(F);
      repeat
        WriteLn(F, PE32.szExeFile);
      until not Process32Next(ProcessSnap, PE32);
      CloseFile(F);
    end;
    CloseHandle(ProcessSnap);
  end;
end;

Или:

procedure GetProcessList;
const
  cFileName = 'ProcessList.txt';
var
  ProcessSnap: THandle;
  PE32: TProcessEntry32;
begin
  ProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if ProcessSnap <> INVALID_HANDLE_VALUE then
  begin
    PE32.dwSize := SizeOf(TProcessEntry32);
    if Process32First(ProcessSnap, PE32) then
    begin
      with TStringList.Create do
        try
          repeat
            Add(PE32.szExeFile);
          until not Process32Next(ProcessSnap, PE32);
          SaveToFile(cFileName);
        finally
          Free;
        end;
    end;
    CloseHandle(ProcessSnap);
  end;
end;

[tooBot]

Спасибо, помогло)

[Filka]

Пожалуйста.