【结帖】如何用代码关闭功能**

zfang

晕，你拷贝出去就不是了
其实就是参考lUID := AFuncURL + '.MainForm.Run' + '|' + AParams;这个代码而已

cdz0451

把我说晕了  我想实现的是关闭一个功能。具体功能如 8楼
应该用那个代码，参数咋添 多谢

zfang

老大，你执行下面的代码
var
  lFunc: TFunc;
begin
  lFunc := SystemCore.TSystemCore.FuncManager.FindRunning('Biz:\JTTXM\GWGL.Func'+ '.MainForm.Run' + '|' +'');
  if lFunc <> nil then
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc,false);
end;

cdz0451

不好使啊。。。。。。。

cdz0451

这样把，我把这功能的意思给你说下

cdz0451

功能是这样，左边的个是没有窗体的功能，我把它做成了像网站的连接。他们功能就是就连接，链接到一个网站。

如‘公文管理’的代码如下
vSql := 'SELECT * FROM TBLSYSTEMMAP WHERE SystemName=''公文管理''';

  vQuery :=TQuery.Create(self);
  vQuery.ConnectionString :='DATABASEURL=Biz:JTTXMJTTSJK.DATABASE';
  vQuery.CommandText:=vSql;
  vQuery.Open;
  vURL := vQuery.FieldByName('Url').AsString;
  vURL :=vURL;
  Borland.Delphi.ShellAPI.ShellExecute(0, 'open', 'IEXPLORE.EXE',
                                       vURL, '', Borland.Delphi.Windows.SW_SHOW);

这样写 点击公文管理的时候，第一次点击是好使的，但是网页弹出后，关掉网页，在点击。就不好使了。只能关闭在开才好使。
所以我问怎么关闭窗体

lixy

unit WCTGN;

interface

uses
  Business.System, Business.Model, Business.Model.Flow, Business.Model.Org;

type
  TWCTGN = class(TFunc)
  private
    {private declarations}
     procedure DoRun;override;
  public
    {public declarations}
  end;

implementation

procedure TWCTGN.DoRun;
begin
   inherited DoRun;
   Borland.Delphi.ShellAPI.ShellExecute(0, 'open', 'IEXPLORE.EXE',
                                     'http://www.sohu.com', '', Borland.Delphi.Windows.SW_SHOW);
    Terminate;
end;


end.

zfang

老大，那就很简单，执行那个功能中的代码后加上一个Terminate;
就可以了！（可以重载DOrun方法）

cdz0451

哦 我的这些代码 就是写在DOrun 里 重载了 。 再说我 GWGL打点也没有Terminate 这个方法啊

zfang

看27楼代码，还不行么？