var
	aTopicList: THndTopicsInfoArray;
	nCurTopic: integer;

begin
	
	HndGeneratorInfo.CurrentFile := ExtractFileName(HndGeneratorInfo.OutputFile);

	aTopicList := HndTopics.GetTopicList(False);
	
	printfln('// Project: %s', [HndProjects.GetProjectTitle()]);
	println ('// Generated by HelpNDoc - http://www.helpndoc.com');
	printfln('// Contains %d topics', [Length(aTopicList)]);
	println ('');
	for nCurTopic := 0 to length(aTopicList) - 1 do
	begin
		printfln('- Topic #%d => %s', [nCurTopic, aTopicList[nCurTopic].Caption]);
	end;
	
end.