[код] Процессы и PID , нужно разделить на 2 колонки.

[Человек_Борща]

Тему кое-как назвал=)
Суть вот в чем=)
Нашёл на форуме модуль для работы с процессами...
WinProc.pas , спасибо его Автору за проделанную работу, модуль пришёлся кстати=)

Все устраивает, только вот, нужно подредактировать процедуру, которая выводит список процессов и их PID.

Procedure GetProcessList(Proc: TStrings);
Var
HSnapshot: THandle;
Pe32: TProcesSentry32;
Begin
Proc.Clear;
HSnapshot:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
Pe32.DwSize:=SizeOf(TProcesSentry32);
If (Process32First(HSnapshot,Pe32)) Then
Repeat
Proc.Add(IntToStr(Pe32.TH32ProcessId) + ': ' + Pe32.SzExeFile);
Until Not Process32Next(HSnapshot,Pe32);
CloseHandle(HSnapshot);
End;

как видно нужен обьект TStrings
и там выводиться все в формате вида:

508:explorer.exe
2025:iexplore.exe

это не устрайвает...
Как подредактировать правельно что бы процедура работала с компонентом TreeView, и процессы
писались в колонку1
а PID процессов, в другую=)
как?
я попытался но неполучилось=(

[psycho-coder]

Даю наводку))

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStrings;
  pid, name: String;
begin
  sl := TStringList.Create;
  sl.NameValueSeparator := ':';
  sl.Values['1234'] := 'explorer.exe';
  sl.Values['343'] := 'system.exe';
  sl.Values['4365'] := 'winamp.exe';

  pid := sl.Names[0];
  name := sl.Values[pid];
  sl.Free;
end;

[Denager]

м?

Procedure GetProcessList(exe,PID: TStrings);
Var
HSnapshot: THandle;
Pe32: TProcesSentry32;
Begin
exe.Clear;
PID.clear;
HSnapshot:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
Pe32.DwSize:=SizeOf(TProcesSentry32);
If (Process32First(HSnapshot,Pe32)) Then
Repeat
PID.Add(IntToStr(Pe32.TH32ProcessId));
exe.add(Pe32.SzExeFile);
Until Not Process32Next(HSnapshot,Pe32);
CloseHandle(HSnapshot);
End;

...
var
   exe,PID:TStringList;
   i:integer;
begin
   exe:=TStringList.Create;
   PID:=TStringList.Create;
   GetProcessList(exe,PID);
   for i:=0 to exe.count-1 do
      //добавить в новую строку 1й колонки exe[i];
   for i:=0 to PID.count-1 do
      //добавить в новую строку 2й колонки PID[i];
   exe.free;
   PID.free;
end;

[psycho-coder]

Denager

Хочу оспорить Ваш метод!
А вот, если Вам попадется чья то библиотека, которая тоже будет предоставлять информацию, в виде неудобном для Вас, то Вы тоже будете ее переделывать (ну там дизассемблирование или перекомпиляция)?

Учитесь использовать то, что есть!

[Denager]

psycho-coder, согласен, но тут же не dll, хотя в этом Вы правы.

[W0LF]

А я не согласен... Ведь лишние манипулирования (добовление в SltringList, потом деление на 2 отдельных столбца (pid и name), дальше расфасовка в TreeView) влияют на время выполнения, да и зачем захламливать код... Функция дана в открытом виде, а значит свободна для изминений и редактирования, ну так глупо не воспользоваться и изменить её в лучшую, для себя, сторону...

Не рациональное, тупое копипаст использование чужого кода - плохо влияет на будущие поколения... Так и будут Использовать чужой код выдернутый с форумов и сайтов, а потом с огромными глазами будут спрашивать почему у меня ошибка при выводе результата integer в Label и начнеться паника:

Аааа! Пачему ашипка?! Поправьте!!! Я ж все правильно скопировал!!! Дайте правильный код и скажите куда его писать....

и т.д.

Повашему это правильно?

[Человек_Борща]

W0LF, согласен с вами=)
но разве разумно собирать колесо по 100 раз?
аналогично пример с dll, их ведь и придумали для упрощения жизни, что бы не писать одно и тоже по сто раз, а использовать многократно.

точно так же с этим кодом, да я взял его из модуля , что бы как-то улучшить=) например мне надо забирать от туда PID процесса, а процесс и его PID в одной строке. И это весьма затрудняет путь к "желаемому результату".
проще разделять на колонки, брать из одной из них PID, и делать что надо.

[psycho-coder]

2WOLF я с Вами не согласен! Почему? Да потому что процедура теряет свою универсальность.
Мой пример для наводки, как можно сделать с использованием процедуры в неизменном виде. На скорость выполнения если и повлияет, то настолько сильно что Вы даже не заметите.

Не рациональное, тупое копипаст использование чужого кода - плохо влияет на будущие поколения... Так и будут Использовать чужой код выдернутый с форумов и сайтов, а потом с огромными глазами будут спрашивать почему у меня ошибка при выводе результата integer в Label и начнеться паника:

про было-кодеров - это отдельная тема. Программист если и копипастит код, то должен как минимум понимать ЧТО он копирует и КАК это работает. Повторюсь, что я не давал всего кода, а дал лишь "пищу" для размышлений. Этот кусок демонстрирует работу с TStringList, который может помочь, и не нужно переделывать работающий код и нет нужды в его отладке при переделке. TStringList тоже довольно мощный инструмент.
Можно переделать, так чтобы данная процедура раскидывала сразу в TreeView, но я не стал этого делать, из-за соображений универсальности (см. выше)