【结贴】2个问题（急~急~！）**

cdz0451

有2个问题

1.进入平台时，怎么关掉及时通讯工具。只运行平台，不运行及时通讯工具。
2.在运行平台时，怎么让他20分钟。就自动注销一下用户，回到平台登陆界面。

cdz0451

顶~

lisb

1、在NewVersion版本中去掉Messenger.exe，重新发布
2、自己修改标准风格主窗体，加个Timer，定时调用注销按钮中的方法。

cdz0451

能说的详细一些吗？ 谢谢

lisb

很简单，你先改改看，有具体问题再沟通。

cdz0451

1.在NewVersion版本中去掉Messenger.exe 这个我找到了， 如果删了后 再想加，怎么加上。
2. actFileLogout.Execute; 这个也找到了，这个方法在运行的时候 不是有提示  是否注销吗？
怎么不提示 到时间就注销呢？

lisb

1、再把Messenger.exe拷回去，重新发布
2、把注销的代码copy过来，把提示对话框去掉
procedure TSTANDARDSTYLEMAINFORM.Timer2Timer(Sender: TObject);
var
  lNewMainForm: TForm;
begin
  FClosing := True;
  try
    FClosing := TSystemCore.FuncManager.TerminateAllFuncs(True);
  except
    FClosing := False;
    raise;
  end;
  Hide;

  Enabled := False; // 很重要，不然登录对话框得不到焦点

  TInit.LogoffByUser;
  if TInit.InitInstance.Terminated then
    Exit;

  { TODO: 注销机制需要再做思考，目前会多次运行功能，IE下面的表现效果也需要重点考虑 }
  lNewMainForm := TInit.InitInstance.MainForm;
  if lNewMainForm <> nil then
  begin
    if Parent = nil then
      lNewMainForm.ParentWindow := ParentWindow
    else
      lNewMainForm.Parent := Parent;
    lNewMainForm.BorderStyle := BorderStyle;
    lNewMainForm.Show;
    Borland.Delphi.Windows.PostMessage(lNewMainForm.Handle, Borland.Delphi.Messages.WM_ACTIVATE, 1, 0);
  end;
  Release;

end;

cdz0451

恩 注销 问题 OK了  

这个文件Messenger.exe 删了。。。还到那里去找。。。？

lisb

在别的目录再装一下版本就有了

cdz0451

出现问题了。 我把Messenger.exe 删除了，在运行。 提示 Messenger运行失败。。。报错了