Gerenciador de tarefas
Olá Caros amigos, gostaria de saber c alguém sabe como fazer para q o sistema indique em um listbox os processos q estão sendo utilizados no PC.
Obrigado pela atenção d todos, Izaias
Obrigado pela atenção d todos, Izaias
Izaias
Curtidas 0
Respostas
Izaias
12/04/2004
tenho esse código mais está dando erro
procedure TForm1.Button1Click(Sender: TObject);
var handler: THandle;
data: TProcessEntry32;
function GetName: string;
var i:byte;
begin
Result := ´´;
i := 0;
while data.szExeFile[i] <> ´´ do
begin
Result := Result + data.szExeFile[i];
Inc(i);
end;
end;
begin
handler := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
if Process32First(handler, data) then
begin
listbox1.Items.Add(GetName());
while Process32Next(handler, data) do
listbox1.Items.Add(GetName());
end
else
ShowMessage(´Error´);
end;
as está dando erro:
procedure TForm1.Button1Click(Sender: TObject);
var handler: THandle;
data: TProcessEntry32;
function GetName: string;
var i:byte;
begin
Result := ´´;
i := 0;
while data.szExeFile[i] <> ´´ do
begin
Result := Result + data.szExeFile[i];
Inc(i);
end;
end;
begin
handler := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
if Process32First(handler, data) then
begin
listbox1.Items.Add(GetName());
while Process32Next(handler, data) do
listbox1.Items.Add(GetName());
end
else
ShowMessage(´Error´);
end;
as está dando erro:
GOSTEI 0