如何让我的应用程序运行后就隐藏起来

Michaelyfj 2000-08-15 06:07:00
如何让我的应用程序运行后就隐藏起来(看不到主界面)
...全文
875 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
nieyongxin 2000-08-18
  • 打赏
  • 举报
回复
在WIN2000里不行
Maxwell 2000-08-15
  • 打赏
  • 举报
回复
的确我是猜的,试了试果然不行.netsong讲的足够了.隐藏窗口用ShowWindow;要想在任务栏不显示用SetWindowLong,或开始就注册为ToolWindow.
meijg 2000-08-15
  • 打赏
  • 举报
回复
netsong的方法很全面,
如果只是想隐藏窗口,就在oncreate事件中调用函数
showwindow(Application.Handle,SW_HIDE);
要显示的时候,就调用
showwindow(Application.Handle,SW_SHOW);
zhouzq 2000-08-15
  • 打赏
  • 举报
回复
关注
netsong 2000-08-15
  • 打赏
  • 举报
回复
先声明:
function RegisterServiceProcess(dwProcessId,dwType:dword):Integer;stdcall;external 'kernel32.dll'

在主程序中调用:
RegisterServiceProcess(GetCurrentProcessID,1); { 让ctrl+alt+del也无法发现进程 }
RegisterServiceProcess(GetCurrentProcessID,0); { 恢复让ctrl+alt+del发现进程 }

{ 是窗口不显示在任务栏,并隐藏窗口 }
ShowWindow( Application.Handle, SW_HIDE );
SetWindowLong( Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);




Larky 2000-08-15
  • 打赏
  • 举报
回复
设置主窗体visible位false是不行的
我想你肯定没有试过!
正确的做法是在工程文件里面加一句话,就想下面这样
program Server;

uses
Forms,
Main in 'Main.pas' {ServerForm};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TServerForm, ServerForm);
Application.ShowMainForm := False;//这句话隐藏主窗口
Application.Run;
end.
Maxwell 2000-08-15
  • 打赏
  • 举报
回复
设主窗体Visible属性为False.

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧