进程外COM服务器EXE,在客户端调用CreateOleObject创建COM对象时,怎么才能像Excel那样,将COM服务器EXE隐藏在后台运行?

解决方案 »

  1.   

    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.
      

  2.   

    Application.MainFormOnTaskbar 这个属性在TApplication找不到啊,我用Delphi7。