向热心的兄弟送分;当然好歹要帮我考虑点问题; http://kingron.myetang.comKingron的Delphi猛料,参考一下吧可以把应用程序从任务列表里面隐藏的 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你屏蔽掉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); //屏蔽 Ctrl-Alt-Del SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0); end; 当你要恢复功能键时用以下代码:Flag := 0;SystemParametersInfo(SPI_SCREENSAVERRU-NNING,Flag,@temp,0);_____________________________________________________________________隐藏和显示Windows的任务条如何隐藏和显示Windows的任务条?仅仅调用以下的函数就可以。本程序的思路实际上就是先找到标题条的句柄,然后向它发送相应消息(SW_HIDE/SW_RESTORE)即可procedure hideTaskbar;//隐藏var wndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], 'Shell_TrayWnd');wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_HIDE);End;procedure showTaskbar;var wndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], 'Shell_TrayWnd');wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_RESTORE);end; 关于FTP服务器的问题 如何提取股票每天的分笔成交数据 调用自行编写的DLL时出现的问题! 请教高手:用Indy组件的IdTCPClient、IdHTTP组件,怎么通过HTTP代理访问外网? 求解决方案,大家帮忙,多给方案啊,思路都可以! 谁能救我!!!!!!!!!!!!!!给分的 惭愧:关于文本和对象的混合编辑问题 如何同时修改多表中的相关联的字段? 如何截取指定长度的中英文混合字符串,且中文不破截断? 请问大神们,有没有很好支持自动调整字间距的memo或richedit类控件? 请教关于API函数,谢谢 文件更名
procedure TForm1.FormCreate(Sender: TObject); var tmp,Flag :integer;begin tmp := 0;Flag := 1; //屏蔽 Alt-Tab SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0); //屏蔽 Ctrl-Alt-Del SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0); end; 当你要恢复功能键时用以下代码:Flag := 0;SystemParametersInfo(SPI_SCREENSAVERRU-NNING,Flag,@temp,0);_____________________________________________________________________隐藏和显示Windows的任务条如何隐藏和显示Windows的任务条?仅仅调用以下的函数就可以。本程序的思路实际上就是先找到标题条的句柄,然后向它发送相应消息(SW_HIDE/SW_RESTORE)即可procedure hideTaskbar;//隐藏var wndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], 'Shell_TrayWnd');wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_HIDE);End;procedure showTaskbar;var wndHandle : THandle;wndClass : array[0..50] of Char;beginStrPCopy(@wndClass[0], 'Shell_TrayWnd');wndHandle := FindWindow(@wndClass[0], nil);ShowWindow(wndHandle, SW_RESTORE);end;