Как получить список зап. программ(типа как в ctrl-alt-del)?
Аноним
Помогите, пожалуйста.
По Ctrl+Alt+Del в 98x, например, выводится отнюдь не список запущенных программ, а список видимых окон. В 2000 - списки задач и процессов. Приведённый ниже пример показывает имена все процессы (а точнее, имена exe-шников, которые их породили).
procedure TForm1.Button1Click(Sender TObject);
var
ss THandle;
pe PROCESSENTRY32;
begin
Memo1.Clear;
ss = CreateToolhelp32SnapShot (TH32CS_SNAPPROCESS, 0);
try
pe.dwSize = SizeOf (PROCESSENTRY32);
if Process32First (ss, pe) then begin
repeat
Memo1.Lines.Add (pe.szExeFile);
until not Process32Next (ss, pe);
end;
finally
CloseHandle (ss);
end;
end;
в uses добавьте tlhelp32.
З.Ы. По тому же принципу можно получить список всех потоков, список модулей для каждого процесса и др.
[ Это Сообщение было отредактировано Разьярённое_x77 в 2001-12-11 1924 ]
procedure TForm1.Button1Click(Sender TObject);
var
ss THandle;
pe PROCESSENTRY32;
begin
Memo1.Clear;
ss = CreateToolhelp32SnapShot (TH32CS_SNAPPROCESS, 0);
try
pe.dwSize = SizeOf (PROCESSENTRY32);
if Process32First (ss, pe) then begin
repeat
Memo1.Lines.Add (pe.szExeFile);
until not Process32Next (ss, pe);
end;
finally
CloseHandle (ss);
end;
end;
в uses добавьте tlhelp32.
З.Ы. По тому же принципу можно получить список всех потоков, список модулей для каждого процесса и др.
[ Это Сообщение было отредактировано Разьярённое_x77 в 2001-12-11 1924 ]