как получить список запущенных процессов на компе

[One.Love]

Народ если не затруднит киньте пожалуйста код как получить список запущенных процессов на компе, вообщем тот же самый диспетчер задач.

[Air]

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

Uses Tlhelp32;
...
function KillTask(ExeFileName:string):integer;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=0;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
(UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FP.th32ProcessID),0));
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;

P.S. завтра на работу некогда переделывать.

[One.Love]

чёто недогоняю, ну может переделаешь как время будет?
Просто срочно надо

[Air]

Uses Tlhelp32;
...
function GetProcess:TStringList;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=TStringList.Create;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
result.Add(FP.szExeFile);
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;

Использование
memo1.Lines:=GetProcess;

Это самое простое. Ну что сложно?

[Alex.rus]

Добаляете на форму ListView, Button и вставляете код

Uses
TLHELP32
...
procedure TForm1.Button1Click(Sender: TObject);
var
  hSnapshoot: THandle;
  pe32: TProcessEntry32;
begin
ListView1.Items.Clear;
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe32.dwSize := SizeOf(TProcessEntry32);
if (Process32First(hSnapshoot, pe32)) then
repeat
ListView1.Items.Add.Caption:=IntToStr(pe32.th32ProcessID);
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add(StrPas(pe32.szExeFile));
until not Process32Next(hSnapshoot,pe32);
CloseHandle(hSnapshoot);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Button1.Click;
end;

Но всетаки попробуйте переделать функцию Air-а.

[Noor]

А как мне найти нужный мне процесс (если я знаю его имя) и завершить его ???

[mihali4]

http://programmersforum.ru/showthread.php?t=14288
http://programmersforum.ru/showthread.php?t=12626

[Scabby]

никак не получается разобраться.
знаю что тема поднималась кучу раз, но все же.
получаю список приложений в ListBox'е по кнопке.
можно ли мне как-то снять задачу в нем?
или нужно через StringGrid?
не знаю как перейти от Листбокса к СтрингГриду.
И не совсем догоняю как получить хэндлы всех процессов.
кто-нибудь может помочь чайнику...

в прикрепленном файле то что имеется на данный момент.

[Air]

Зацени мой диспетчер.
Это новая версия, за одно протестируешь.
P.S. "Проводник" с косяками работает, я его ещё не доделал

[Scabby]

прикольная прога)
только с размерами окон проблемки)
надписи не кнопках некоторых не совсем видно)
короче инферфейс чуть подправить и суппер)

а мне прогу на Делфи надо(