29 lines
606 B
Plaintext
29 lines
606 B
Plaintext
program bs1fsg;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Tocsg.Safe,
|
|
Dbs1fsgMain in 'Dbs1fsgMain.pas' {Dlgbs1fsgMain},
|
|
Tocsg.Fasoo.Global in 'Tocsg.Fasoo.Global.pas',
|
|
ProcessParam in 'ProcessParam.pas',
|
|
Tocsg.Fasoo.Global.Define in 'Tocsg.Fasoo.Global.Define.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
param: TProcessParam;
|
|
begin
|
|
Guard(param, TProcessParam.Create);
|
|
if not param.IsParamOK then
|
|
exit;
|
|
|
|
if param.OwnerMtx = '' then
|
|
exit;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := false;
|
|
Application.ShowMainForm := false;
|
|
Application.CreateForm(TDlgbs1fsgMain, Dlgbs1fsgMain);
|
|
Application.Run;
|
|
end.
|