mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 08:37:58 +02:00
31 lines
636 B
ObjectPascal
31 lines
636 B
ObjectPascal
program chmmaker;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}
|
|
cthreads,
|
|
{$ENDIF}
|
|
Interfaces, // this includes the LCL widgetset
|
|
Forms, LazFileUtils,
|
|
unit1, CHMSiteMapEditor, lhelpcontrolpkg;
|
|
|
|
var
|
|
i: Integer;
|
|
Filename: String;
|
|
begin
|
|
Application.Title:='';
|
|
Application.Initialize;
|
|
Application.CreateForm(TCHMForm, CHMForm);
|
|
Application.CreateForm(TSitemapEditForm, SitemapEditForm);
|
|
for i:=1 to Application.ParamCount do
|
|
begin
|
|
Filename:=ParamStr(i);
|
|
if (Filename='') or (Filename[1]='-') then continue;
|
|
CHMForm.OpenProject(CleanAndExpandFilename(Filename));
|
|
break;
|
|
end;
|
|
Application.Run;
|
|
end.
|
|
|