program xxxx;uses Forms, SysUtils, Unit4 in 'Unit4.pas' {Form4}, Project2_TLB in 'Project2_TLB.pas', Unit5 in 'Unit5.pas' {aaaa: TRemoteDataModule} {aaaa: CoClass};{$R *.TLB}{$R *.res} function FindSwitch(const Switch: string): Boolean; begin Result := FindCmdLineSwitch(Switch, ['-', '/'], True); end;begin Application.Initialize; if FindSwitch('AUTOMATION') or FindSwitch('EMBEDDING') then Application.ShowMainForm := False; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm4, Form4); Application.Run; end.
Forms,
SysUtils,
Unit4 in 'Unit4.pas' {Form4},
Project2_TLB in 'Project2_TLB.pas',
Unit5 in 'Unit5.pas' {aaaa: TRemoteDataModule} {aaaa: CoClass};{$R *.TLB}{$R *.res} function FindSwitch(const Switch: string): Boolean;
begin
Result := FindCmdLineSwitch(Switch, ['-', '/'], True);
end;begin
Application.Initialize;
if FindSwitch('AUTOMATION') or FindSwitch('EMBEDDING') then
Application.ShowMainForm := False;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm4, Form4);
Application.Run;
end.