You've already forked lazarus-ccr
eed17766fe
- initial support for InvalidCount , which allow to run program even if trial rules are broken (but only exactly set count) - IDE serial number used instead of volume serial git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@921 8e941d3f-bd1b-0410-a28a-d453659cc2b4
23 lines
331 B
ObjectPascal
23 lines
331 B
ObjectPascal
program NAFMgr;
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Interfaces,
|
|
Forms,
|
|
ogfirst,
|
|
NAFMGR1 in 'NAFMGR1.pas' {NafFrm};
|
|
|
|
|
|
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.Title := 'Network File Access Manager';
|
|
Application.CreateForm(TNafFrm, NafFrm);
|
|
|
|
if IsFirstInstance then Application.Run
|
|
else
|
|
ActivateFirstInstance;
|
|
|
|
end.
|