我的程序这么牛？？

Question

我用第三放控件做了一个拖盘程序但是，如果不关它的话，我就不能关机？？？？？

Answer 1

明白，看样子是 RUN32DLL.DLL 在作怪~~~你得加载它

Answer 2

或者不搞那么复杂~~
你用的什么第三方控件？  用TrayIcon这个控件怎么可能出问题，一切都好好的

Answer 3

程序没有能处理好关闭事件,例如释放一些资源等的,就会导致这类问题http://lysoft.7u7.net

Answer 4

看看 Onclose 的 action 是不是 caNone?

Answer 5

代码是这样的：procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   
    if cclose=false then//cclose是我定义的一个全局布尔类型,用来判断是否关闭
    begin
         Application.MainForm.Hide;
         canclose:=false;
    end
    else
    begin
         canclose:=true;
    end;
    
end;

Answer 6

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ShowMessage('kk');
  if (form1.Visible=false) then// and (form2.Visible=false) and (form3.Visible=false) then
  begin
       CanClose:=true;
       ShowMessage('true');
  end
  else
  begin       form1.Hide;       CanClose:=false;
       ShowMessage('false');
  end;
  ShowMessage('kk222');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ShowMessage('free001');
   //Action := caFree ;
   ShowMessage('free');
end;end.
当我在注销时，FormCloseQuery运行完全正确，但到了FormClose就什么也没有执行了,而按程序本身的
闭按钮[cclose:=true;close;]时，FormClose就执行了 ShowMessage('free001');   //Action := caFree ; ShowMessage('free');

Answer 7

你这不是让Windows关机消息被你阻止了吗?
你真牛!!!
我顶顶顶顶顶

Answer 8

各位高手帮一下忙,我用的是一个叫RC3(RAIZE COMPONENTS VERSION 3.0)的控件前面说错了RZ，用它的RzTrayIcon1托盘控件,大家可以下来试用一下，功能非常全面，也很好用的。

Answer 9

我有几个窗口，form1是主窗,还有三个是隐藏，

Answer 10

RC3的下载地址是：http://iupay.com/2/11847.html。
http://www.ddvip.net/program/delphi/index5/86.htm
http://www.51zyz.com/165/show_15549.htm