application.ShowMainForm := False;

解决方案 »

  1.   

    用application.ShowMainForm := False; 
    是可以。
    但是任务栏,托盘区,Ctrl_Alt_Del,Alt_Tab。全都没了。程序想结束都没法结束了。怎么办?
      

  2.   

    to   caoyq
    你那程序是运行在在windows2000下,还是运行在windows98下,
    用ctrl+alt+delete屏蔽程序?
    你那要是运行在windows2000下,可在任务栏中隐藏程序,请把原代码贴上来看看如何?
      

  3.   

    使用消息屏蔽,拦截windows的消息 WM_NOTIFY,然后重写它的处理过程,具体它的消息类别我不大记得了,等会儿跟你查查
      

  4.   

    使用消息屏蔽,拦截windows的消息 WM_NOTIFY,然后重写它的处理过程,具体它的消息类别我不大记得了,等会儿跟你查查
      

  5.   

    procedure TFormLoad.FormShow(Sender: TObject);
    begin
        RxTrayIcon1.Icon :=Application.Icon;
        ShowWindow(Application.Handle,SW_HIDE);
    end;procedure TFormLoad.FormCreate(Sender: TObject);
    const
        RSP_SIMPLE_SERVICE=1;
        RSP_UNREGISTER_SERVICE=0;
    var
        dwID,regserv:DWORD;
    begin
    //    application.ShowMainForm :=False;
    {*******将程序的窗口样式设为TOOL窗口,可避免在任务条上出现*********************}
        SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);{*******用未公开函数RegisterServiceProcess可避免在Ctrl+Alt+Del中出现***********}
    //该函数存在于Kernel32.dll中.Process指向进程的ID,Type表示是否向系统注册该进程,是1,否0.
    //下面代码为隐藏
        dwID:=GetCurrentProcessId();
        regserv:=RegisterServiceProcess(dwID,RSP_SIMPLE_SERVICE);
    end;
    怎样在Alt_Tab中隐藏?
      

  6.   

    将主FORM的Visible:=false;// 在ALT+TAB时不可见!
    在FORMCREAT中添加:
    RegisterHotKey(Handle,0,MOD_ALT or MOD_CONTROL ,VK_F10);//设定热键为ALT+CTRL+F10
    添加:
    procedure TForm1.wmhotkey(var message:Tmessage);
    begin
    FORM1.Visible :=NOT FORM1.Visible ;//按下热键切换!!
    end;
    运行实验一下就知道了!!
      

  7.   

    对了要添加声明(在private后):
     procedure wmhotkey(var message:Tmessage);
        message wm_hotkey;
    就可以了!
      

  8.   

    z_x_b(长弓落日金沙丘):
    form的Visible属性已经设置了:False;
    在Alt_Tab中还是能看见应用程序的图标。
    另外:
    我不是想改变热键,而是想让应用程序只在右下角出现,其他地方如:Alt_Tab,Ctrl_Alt_Del,任务栏等均看不见它的影子。
      

  9.   

    《DELPHI 5 开发人员指南》一书中有你想要知道的,你找长吧
      

  10.   

    如果是运行在win98下,可用以下这段代码!
    procedure TForm1.FormCreate(Sender: TObject);   
    var tmp,Flag :integer; 
    begin
      tmp := 0;
    Flag := 1;
      //屏蔽 Alt-Tab 
      SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0);
    end;
      

  11.   

    lin513(东方求救) :
    我不是想屏蔽掉Alt_Tab,我是想不在Alt_Tab中出现。