<% var sProjectTitle, sDefaultTopicId: string; begin // Need BOM for UTF8 files HndGeneratorInfo.BOMOutput := True; // Make sure we generate the file specified in the project HndGeneratorInfo.CurrentFile := ExtractFileName(HndGeneratorInfo.OutputFile); // Retreive the project title sProjectTitle := HndProjects.GetProjectTitle(); // Try to get the default topic sDefaultTopicId := HndProjects.GetProjectDefaultTopic(); // None defined: the first one is the default topic if (sDefaultTopicId = '') then sDefaultTopicId := HndTopicsEx.GetTopicNextGenerated(HndTopics.GetProjectTopic(), False); if (sDefaultTopicId <> '') then sDefaultTopicId := HndTopics.GetTopicHelpId(sDefaultTopicId); %> <% print(HTMLEncode(sProjectTitle)); %>
<% end. %>