[Ajuda]Explicação code

[xh1e1x 2]

bom como ja devem saber tenho pouco conhecimento em delphi.. e estava tentando fazer 1 injetor de dll quando me deparo com esse code

 

UpperCase(ExeFileName))) then

 

begin

 

Result := True;

 

end;

 

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32)*

 

end;

 

CloseHandle(FSnapshotHandle)*

 

end;

 

function CMKGETID(ExeFileName: string; var ProcessId: dword) :boolean; // A função

 

var

 

ContinueLoop: BOOL;

 

FSnapshotHandle: THandle;

 

FProcessEntry32: TProcessEntry32;

 

begin

 

result := false;

 

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)*

 

FProcessEntry32.dwSize := Sizeof(FProcessEntry32)*

 

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32)*

 

while integer(ContinueLoop) <> 0 do begin

 

if (StrIComp(PChar(ExtractFileName(FProcessEntry32.sz ExeFile)), PChar(ExeFileName)) = 0)

 

or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0) then begin

 

ProcessId:= FProcessEntry32.th32ProcessID;

 

result := true;

 

break;

 

end;

 

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32)*

 

 

 

end;

 

CloseHandle(FSnapshotHandle)*

 

end;

 

bom queria que algum programador me explicasse cada linha, sei que é meio trabalhoso mais espero que alguem me ajude X:

caso queiram o tuto para explicarem mais algumas coisas (caso esteje faltando algo no code) aqui vai o link

http://www.webcheats.com.br/forum/combat-arms-tutoriais/608851-tuto-multi-injetor-de-dlls.html