Код:
procedure TForm1.Button2Click(Sender: TObject);
var
hSnapShot: THandle;
ProcInfo: TProcessEntry32;
k,i:integer;
s: array [0..100] of string;
begin
hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnapShot <> THandle(-1)) then
begin
ProcInfo.dwSize := SizeOf(ProcInfo);
if (Process32First(hSnapshot, ProcInfo)) then
begin
Memo1.Lines.Add(ProcInfo.szExeFile);
while (Process32Next(hSnapShot, ProcInfo)) do
Memo1.Lines.Add(ProcInfo.szExeFile);
end;
for I := 0 to memo1.Lines.Count do
begin
s[i]:=memo1.lines[i];
end;
CloseHandle(hSnapShot);
memo1.Lines.Delete(1);
memo1.Lines.Delete(0);
k:=memo1.Lines.Count;
label2.Caption:=inttostr(k);
end;
end;
Админ: Пользуемся тегами для оформления кода!