Thu, 11 Dec 2008 08:50:00 GMT问渠那得清如许，为有源头活水来http://blog.csdn.net/Rzhghost/http://blog.csdn.net/Rzhghost/archive/2008/12/11/3495577.aspxhttp://blog.csdn.net/Rzhghost/comments/3495577.aspx0http://blog.csdn.net/Rzhghost/comments/commentRss/3495577.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3495577  代码:function EnabledDebugPrivilege(const bEnabled: Boolean): Boolean;<br />var<br />hToken: THandle;<br />tp: TOKEN_PRIVILEGES;<br />a: DWORD;<br />const<br />SE_DEBUG_NAME = 'SeDebugPrivilege';<br />begin<br />Result := False;<br />if (OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken)) then<br />begin<br />tp.PrivilegeCount := 1;<br />LookupPrivilegeValue(nil, SE_DEBUG_NAME, tp.Privileges[0].Luid);<br />if bEnabled then<br />tp.Privileges[0].Attributes := SE_PRIVILEGE_EN<img src ="http://blog.csdn.net/Rzhghost/aggbug/3495577.aspx" width = "1" height = "1" />Thu, 11 Dec 2008 16:50:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/12/11/3495577.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/12/11/3495577.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/12/11/3495573.aspxhttp://blog.csdn.net/Rzhghost/comments/3495573.aspx0http://blog.csdn.net/Rzhghost/comments/commentRss/3495573.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3495573{*****************************************************************<br />AddShell（）源自于前一段时间有写的addsection（）新增区段代码，<br />在增加区段代码的基础上，追加了<br />1.修改启动入口点位置<br />2.增加一段壳头xor $50的代码function AttachStart-function AttachEnd<br />这一段代码是先填充，再被修改成合适原EXE的壳头<br />3.修改原启动代码入口点所在区段的段属性可写并进行xor $50运算加密<br /><br /><br />不支持addshell（）处理已经过addshell的exe<br />*****************************************************************}<br /><br />unit Unit1;<br /><br />interface<br /><br />uses<br />  Windows, Messages, SysUtils<img src ="http://blog.csdn.net/Rzhghost/aggbug/3495573.aspx" width = "1" height = "1" />Thu, 11 Dec 2008 16:48:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/12/11/3495573.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/12/11/3495573.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/25/3142930.aspxhttp://blog.csdn.net/Rzhghost/comments/3142930.aspx1http://blog.csdn.net/Rzhghost/comments/commentRss/3142930.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3142930完美屏蔽 Ctrl+Alt+Del 键一、前言<br /><br />　　在Windows 9x/Me系统中，屏蔽Ctrl+Alt+Del和各种任务开关键的方法是通过下面的方法实现的：<br /><br />BOOL bOldState;<br />SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, TRUE, &bOldState, 0); 但在NT平台下，此方法不再适用，即使使用钩子技术也无法拦截到这个组合热键（原因稍后解释）。在网上，可以看到众多高手的解决方案，再此我做个简单的总结，同时提出完美的解决方案，并提供所需的 SellCode 数据供 VC,Delphi等程序员使用，最后考虑到VB在实现这些方面的不便还给出VB完整的源码，相信这是很不错的例子，可以让VB程序员了解更多的技巧。<br /><br />二、不够完美的解决方案<br /><br />　　原理：代理系统相关的DLL，对相关的函数作特殊处理<br />　　不足之处：使用不方便！并且效果不佳（屏幕会闪）<br />      下面将具体讨论这种方案：<br /><img src ="http://blog.csdn.net/Rzhghost/aggbug/3142930.aspx" width = "1" height = "1" />Sat, 25 Oct 2008 22:03:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/25/3142930.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/10/25/3142930.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/24/3136166.aspxhttp://blog.csdn.net/Rzhghost/comments/3136166.aspx8http://blog.csdn.net/Rzhghost/comments/commentRss/3136166.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3136166procedure TForm1.Button1Click(Sender: TObject);<br />var<br />   FwMgr,Profile,FwApp: variant;<br />begin<br />   FwMgr := CreateOLEObject('HNetCfg.FwMgr');<br />   Profile := FwMgr.LocalPolicy.CurrentProfile;<br />   FwApp := CreateOLEObject('HNetCfg.FwAuthorizedApplication');<br />   FwApp.Name :='我的测试'; //显示名字<br />   FwApp.ProcessImageFileName := Application.ExeName; //要通过的程序<br />   FwApp.Enabled   := true;<br />   Profile.AuthorizedApplications.Add(FwApp);<br />end;<br /><br />这样，你的软件就能通过X<img src ="http://blog.csdn.net/Rzhghost/aggbug/3136166.aspx" width = "1" height = "1" />Fri, 24 Oct 2008 21:18:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/24/3136166.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/10/24/3136166.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/09/3040615.aspxhttp://blog.csdn.net/Rzhghost/comments/3040615.aspx5http://blog.csdn.net/Rzhghost/comments/commentRss/3040615.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3040615<br />procedure DeleteMe;<br />var<br />  BatchFile: TextFile;<br />  BatchFileName: string;<br />  ProcessInfo: TProcessInformation;<br />  StartUpInfo: TStartupInfo;<br />begin<br />  BatchFileName := ExtractFilePath(ParamStr(0)) + ' _deleteme.bat' ;<br />  AssignFile(BatchFile, BatchFileName);<br />  Rewrite(BatchFile);<br />  Writeln(BatchFile, ' : try' );<br />  Writeln(BatchFile, ' del "' +ParamStr(0) + ' "' );<br />  Writeln(BatchFile,<br />    ' i<img src ="http://blog.csdn.net/Rzhghost/aggbug/3040615.aspx" width = "1" height = "1" />Thu, 09 Oct 2008 18:42:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/09/3040615.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/10/09/3040615.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/09/3040568.aspxhttp://blog.csdn.net/Rzhghost/comments/3040568.aspx3http://blog.csdn.net/Rzhghost/comments/commentRss/3040568.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=3040568<br /><br />procedure SetPrivilege;<br />const<br />  ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;<br />  SHTDWN_PRIV = 'SeBackupPrivilege';<br />      //SeBackupPrivilege 备份文件和目录。<br />      //允许用户绕过文件和目录的权限来做备份。只有当应用程序尝试访问NTFS备份API时才检查这个特<br />      //权。默认情况下，这个特权分配给Administrators和Backup Operators。<br />  PRIV_SIZE = sizeOf(TTokenPrivileges);<br />var<br />  TokenPriv, Dummy: TTokenPrivileges;<br />  Token: THa<img src ="http://blog.csdn.net/Rzhghost/aggbug/3040568.aspx" width = "1" height = "1" />Thu, 09 Oct 2008 18:35:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/10/09/3040568.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/10/09/3040568.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/06/05/2512664.aspxhttp://blog.csdn.net/Rzhghost/comments/2512664.aspx5http://blog.csdn.net/Rzhghost/comments/commentRss/2512664.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2512664Delphi中进行延时的4种方法<img src ="http://blog.csdn.net/Rzhghost/aggbug/2512664.aspx" width = "1" height = "1" />Thu, 05 Jun 2008 16:53:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/06/05/2512664.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/06/05/2512664.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/06/04/2512150.aspxhttp://blog.csdn.net/Rzhghost/comments/2512150.aspx2http://blog.csdn.net/Rzhghost/comments/commentRss/2512150.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2512150CodeGear RAD 2007 SP4 最新 下载 破解 Delphi 2007 Update 4<img src ="http://blog.csdn.net/Rzhghost/aggbug/2512150.aspx" width = "1" height = "1" />Thu, 05 Jun 2008 04:38:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/06/04/2512150.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/06/04/2512150.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/04/03/2247680.aspxhttp://blog.csdn.net/Rzhghost/comments/2247680.aspx0http://blog.csdn.net/Rzhghost/comments/commentRss/2247680.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2247680使用Qt, KDevelop Designer开发Linux的图形界面<img src ="http://blog.csdn.net/Rzhghost/aggbug/2247680.aspx" width = "1" height = "1" />Fri, 04 Apr 2008 00:22:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/04/03/2247680.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/04/03/2247680.aspxRzhhttp://blog.csdn.net/Rzhghost/archive/2008/03/21/2203114.aspxhttp://blog.csdn.net/Rzhghost/comments/2203114.aspx0http://blog.csdn.net/Rzhghost/comments/commentRss/2203114.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2203114随着行业竞争激烈，越来越多的公司对信息化存在很大的需求，因而软件外包业务近年来始终保持了较快增长速度。从这几年的统计数据来看，软件技术服务始终以高于行业平均增长速度增长，软件外包的市场也相应地在不断地扩大<img src ="http://blog.csdn.net/Rzhghost/aggbug/2203114.aspx" width = "1" height = "1" />Fri, 21 Mar 2008 23:47:00 +0800Rzhhttp://blog.csdn.net/Rzhghost/archive/2008/03/21/2203114.aspx#Feedbackhttp://blog.csdn.net/Rzhghost/archive/2008/03/21/2203114.aspxRzh