怎样让程序不出现在Alt_Tab中…… application.ShowMainForm := False; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用application.ShowMainForm := False; 是可以。但是任务栏,托盘区,Ctrl_Alt_Del,Alt_Tab。全都没了。程序想结束都没法结束了。怎么办? to caoyq你那程序是运行在在windows2000下,还是运行在windows98下,用ctrl+alt+delete屏蔽程序?你那要是运行在windows2000下,可在任务栏中隐藏程序,请把原代码贴上来看看如何? 使用消息屏蔽,拦截windows的消息 WM_NOTIFY,然后重写它的处理过程,具体它的消息类别我不大记得了,等会儿跟你查查 使用消息屏蔽,拦截windows的消息 WM_NOTIFY,然后重写它的处理过程,具体它的消息类别我不大记得了,等会儿跟你查查 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中隐藏? 将主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);beginFORM1.Visible :=NOT FORM1.Visible ;//按下热键切换!!end;运行实验一下就知道了!! 对了要添加声明(在private后): procedure wmhotkey(var message:Tmessage); message wm_hotkey;就可以了! z_x_b(长弓落日金沙丘):form的Visible属性已经设置了:False;在Alt_Tab中还是能看见应用程序的图标。另外:我不是想改变热键,而是想让应用程序只在右下角出现,其他地方如:Alt_Tab,Ctrl_Alt_Del,任务栏等均看不见它的影子。 《DELPHI 5 开发人员指南》一书中有你想要知道的,你找长吧 如果是运行在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; lin513(东方求救) :我不是想屏蔽掉Alt_Tab,我是想不在Alt_Tab中出现。 idhttp只能下载英文名的文件吗? 急!求高手指导!如何让exe文件变成隐藏文件 簡體與繁體文的轉換 动态生成的TTabSheet 退出要报错 已知进程名,再得到窗口名 DBGrid显示问题!有经验的来指点一下! 不管是新手老手进入把qq留!!共同探讨宝兰之最---delphi开发 不知谁有用过扫描仪,有几个问题请教,来者有分! 提问:Windows的桌面目录的路径如何取得? #####这样的问题能解决吗?##### 急!急!!急!!!请教高手一个关于打印的问题 如何打开网页?
是可以。
但是任务栏,托盘区,Ctrl_Alt_Del,Alt_Tab。全都没了。程序想结束都没法结束了。怎么办?
你那程序是运行在在windows2000下,还是运行在windows98下,
用ctrl+alt+delete屏蔽程序?
你那要是运行在windows2000下,可在任务栏中隐藏程序,请把原代码贴上来看看如何?
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中隐藏?
在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;
运行实验一下就知道了!!
procedure wmhotkey(var message:Tmessage);
message wm_hotkey;
就可以了!
form的Visible属性已经设置了:False;
在Alt_Tab中还是能看见应用程序的图标。
另外:
我不是想改变热键,而是想让应用程序只在右下角出现,其他地方如:Alt_Tab,Ctrl_Alt_Del,任务栏等均看不见它的影子。
procedure TForm1.FormCreate(Sender: TObject);
var tmp,Flag :integer;
begin
tmp := 0;
Flag := 1;
//屏蔽 Alt-Tab
SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0);
end;
我不是想屏蔽掉Alt_Tab,我是想不在Alt_Tab中出现。