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
330 B
ObjectPascal
23 lines
330 B
ObjectPascal
program FixNAF;
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Interfaces,
|
|
Forms,
|
|
ogfirst,
|
|
FIXNAF1 in 'FIXNAF1.pas' {MainFrm};
|
|
|
|
|
|
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.Title := 'Fix Network Access File';
|
|
Application.CreateForm(TMainFrm, MainFrm);
|
|
|
|
if IsFirstInstance then Application.Run
|
|
else
|
|
ActivateFirstInstance;
|
|
|
|
end.
|