怎样使一个程序不显示在状态栏也不显示在图标栏?

webnetmax 2002-02-16 08:04:51
怎样使一个程序不显示在状态栏也不显示在图标栏?
...全文
132 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
mattus_zhao 2002-02-16
  • 打赏
  • 举报
回复
是,很多木马都是向楼上这样作的。
redlegend_126_com 2002-02-16
  • 打赏
  • 举报
回复
我认为可以将你的程序隐藏起来(就象木马一样),
第一,运行时不能显示窗口,这可以这样实现,并且不出现在任务栏中:
var
xwndlong:integer;
begin
xwndlong:=getwindowlong(application.handle,gwl_exstyle);
showwindow(application.handle,sw_hide);
setwindowlong(application.handle,gwl_exstyle,xwndlong or ws_ex_toolwindow and not ws_ex_appwindow or ws_ex_topmost);
showwindow(application.handle,sw_show);
form1.hide;
end;
第二,在ctrl+alt+del的关闭程序中隐藏掉!
function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external 'kernel32.dll';
registerserviceprocess(getcurrentprocessid,1);
行不?给分吧!


webnetmax 2002-02-16
  • 打赏
  • 举报
回复
就是怎样把程序作成个进程?
Greenberet 2002-02-16
  • 打赏
  • 举报
回复
你指的到底是什么栏?任务栏?系统托盘?还是?
torble 2002-02-16
  • 打赏
  • 举报
回复
1. 简单的在程序执行的时候隐藏主窗体,例如

Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:= false;
Application.Run

就可以了。

2. 把它做成 Service Application:
Delphi 5.0 的 New 对话框中有一个 Service Application 的选择项。

5,930

社区成员

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

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