【搞定】我想实现登陆平台后，立即弹出一个窗口

565118680

如何实现，，代码在哪加，如何加

zfang

业务模型\协同系统\公共资源\协同常量库
runfuc中加！
比如：
static function TRTLConsts.RunFuncs: string;
var
  lCT : TCT1;
begin

  Result := 'Biz:\COLLABORATION\DesktopFunc.Func;'
    + 'Biz:\COLLABORATION\SchedulerFunc.Func';

  Business.Forms.Dialogs.ShowMessage('登陆了！');
  lCT := TCT1.Create(nil);
  try
    lCT.Show;
    Borland.Delphi.Windows.Sleep(100);
    lCT.Hide;
  finally
    lCT.Free;
  end;
end;
不知道能不能满足楼主的需求

565118680

如何做呢,,我需要这个,谢谢

zfang

如果是登陆后的话，可以在主窗体的formshow中来实现
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.BizFormShow(Sender: TObject);

比如在这个事件中加上下面的语句：
  Borland.Delphi.ShellAPI.ShellExecute(0,
     'open', 'c:\a.txt', '', '', borland.Delphi.Windows.Sw_ShowNormal);
就可以打开一个文本

565118680

结吧