如何实现在程序运行后,程序的图标自动隐藏?有人知道吗?(50分)

  • 主题发起人 主题发起人 night
  • 开始时间 开始时间
N

night

Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现在程序运行后,程序的图标自动隐藏?有人知道吗?
 
Y 回答的是向后兼容(back comp)的 String 类型,这种类型是String[N] 第一个字节(String[0])
保存串的长度;这种形式在理论上要优于('/0')结束的字符串;所以称之为Pascal风格字符串(可直接查看反汇编代码)
现在的Delphi已基本上不支持(String[N])的类型了Delphi 默认的String类型是ANSIString
类型,除非加上编译指示;
现在只不过是C++占绝对优势Delphi才不得不以#0结束;
如果还不懂请看下面的C代码
char *hx="Hello World!";
char hxo[]={'1','3','4'};
int *hxInt;
hxInt = (int *)hx;
hxInt = (int *)hxo;
如果还不懂可直接和我联系delphifans_hx@yahoo.com.cn

 
API 调用ShowWindow(Application.Handle,SW_HIDE)
 
to delphifans_hx: hehe~~~笑死我了[:D][:D]
 
这是我一个程序的片断
你可以参考一下
procedure TClockForm.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE)
end;

如果你的程序开始运行时没有窗口要显示就更简单了:什么都不用做
:)
 
我说是隐藏可执行文件的图标
不是窗体,我得意思是当程序一运行时别人就不知道你的程序哪去了??
 
delphifans_hx说的不错啊。
隐藏的就是图标.
 
来自:hhcz, 时间:2002-4-24 11:03:00, ID:1064626
to delphifans_hx: hehe~~~笑死我了[:D][:D]

为什么?他说得没错啊,这是最简单,也是最有效的啊。
 
program Project1;

uses
Forms,windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}
var
ExtendedStyle:integer;

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
//在任务栏里隐藏
//在任务栏里隐藏也可以使用Application.title:=''
ExtendedStyle:=GetWindowLong(application.handle,GWL_EXSTYLE);
//把图标和标题隐藏
setWindowLong(application.handle,GWL_EXSTYLE,ExtendedStyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
Application.Run;
end.
 
多人接受答案了。
 
后退
顶部