Диспетчер задач нужны комментарии

[Naymen]

Уважемы форумчане, помогите пожалуйста обьяснить код коммнетраями:

//Процедура вывода процессов
procedure TMainForm.processinfotogrid(procinfogrid:TStringGrid);
var hsnap: Thandle;
procentry: TProcessEntry32;
k:byte;
begin
//Присваиваем значие k=1
k:=1;
//Создаем инструмент помошника 32 битной системы снимка
hsnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
procentry.dwSize:=sizeof(procentry);
Process32First(hsnap,procentry);
repeat
with procinfogrid do
begin
if k>rowcount-1 then
rowcount:=rowcount+1;
cells[0,k]:=procentry.szexefile;
cells[1,k]:=inttostr(procentry.th32ProcessID);
cells[2,k]:=inttostr(procentry.cntThreads);
end;
k:=k+1;
until Process32Next(hsnap,procentry)<>true;
if k<procinfogrid.RowCount then procinfogrid.RowCount:=k;
CloseHandle(hsnap);
end;
//Процедура вывода приложений
procedure TMainForm.AppInfoToGrid(grid:TStringGrid);
var descript:TStringList;
WinCaption:array[0..255] of char;
i:word;

begin
descript:=TStringList.Create;
with descript do
begin
Clear;
EnumWindows(@AddWinInfo,LParam(descript));
end;
for i:=0 to descript.Count-1 do
begin
if i+1>grid.RowCount-1 then grid.RowCount:=grid.RowCount+1;
GetWindowText(strtoint(descript.strings),WinCaption,SizeOf(WinCaption));
grid.Cells[0,i+1]:=WinCaption;
grid.Cells[1,i+1]:=descript.strings;
end;
if grid.RowCount>i+1 then grid.RowCount:=i+1;
descript.Destroy;
end;

Заранее спасибо! B)

 

[vital]

хм... толи я тормоз.. то ли что.. но комментарии там есть. А если нужно подробнее - то описания всех WinApi функций есть в MSDN. Туда тебе и дорога. Почитай и все поймешь)