Объясните код

[ANtonP]

hSnapShot := CreateToolhelp32SnapShot(TH32CS_SNA PMODULE,GetCurrentProcessID);
Modules.dwSize := sizeof(TModuleEntry32);
i := 0;
if Module32First(hSnapShot, modules) then
begin
SetLength(TModuleArray,i+1);
TModuleArray[i] := Modules;
Inc(i);

while Module32Next(hSnapShot, modules) do
begin
SetLength(TModuleArray,i+1);
TModuleArray[i] := Modules;
Inc(i);
end;
end;
CloseHandle(hSnapShot);

Flag := False;

hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNA PMODULE, Info.dwProcessId);
Modules.dwSize := sizeof(TModuleEntry32);
if Module32First(hSnapShot, modules) then
begin
for i := 0 to Length(TModuleArray) do
Flag := Flag or (string(modules.szModule) = string(TModuleArray[i].szModule));
if Flag then



чего тут происходит

[New man]

while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DisPatchMessage(Msg);
end;

вот это заставляет программу вечно работать не грузя систему