Code Erklärung (Frames erkennen TWebBrowser)

[youuu]

Hi,

kann mir jemand diesen Code einmal erklären?
Gefunden in diesem Programm: Hier

Denn ich möchte diesen Code gerne selber Verwenden, aber vorher möchte ich Ihn verstehen.

Delphi-Quellcode:

// Get Webbrowser Frame Names (recursive)

procedure WB_GetFrames(WB: TWebbrowser; sl: TStrings);

  function EnumProc(AHtmlDocument: IHtmlDocument2; sl: LParam): Boolean;
  begin
    TStrings(sl).Add(AHtmlDocument.url);
    Result := True;
  end;

begin
  sl.Clear;
  EnumFrames(WB.ControlInterface.Document as IHtmlDocument2, @EnumProc, LParam(sl));
  // Delete 1. item because it's the mainframe
  sl.Delete(0);
end;