资料收集
关注
分享
扫一扫
文章平均质量分 59
jzj_jony
这个作者很懒，什么都没留下…
展开
-
winsock2.pas的源代码
{$MINENUMSIZE 4} { Force 4 bytes enumeration size}unit WinSock2;interfaceuses Windows;type u_char = Char; u_short = Word; u_int = Integer; u_long = Longint; pu_long = ^u_long; pu_short =原创 2005-11-06 23:18:00 · 4032 阅读 · 0 评论 -
进程工具单元
进程工具单元unit enumStuff;// Delphi 4,5 enumeration implementation of several win32 APIs// Dragon PCinterfaceuses windows;type TACardinal = array [0..maxInt shr 2-1] of cardinal; TPACar原创 2006-02-07 23:40:00 · 821 阅读 · 0 评论 -
Windows2000系统进程总列表(手工清木马时候有用)
Windows2000系统进程总列表(手工清木马时候有用) 主要分为三大类 1.最基本的系统进程（也就是说，这些进程是系统运行的基本条件，有了这些进程，系统就能正常运行） smss.exe Session Manager csrss.exe 子系统服务器进程 winlogon.exe 管理用户登录 services.exe 包含很多系统服务 lsass.exe 管理 IP 安全策略以及启动原创 2006-02-07 23:48:00 · 593 阅读 · 0 评论 -
系统权限对应的权限名
constSE_CREATE_TOKEN_NAME =SeCreateTokenPrivilege;SE_ASSIGNPRIMARYTOKEN_NAME =SeAssignPrimaryTokenPrivilege;SE_LOCK_MEMORY_NAME =SeLockMemoryPrivilege;SE_INC原创 2006-02-07 23:43:00 · 801 阅读 · 0 评论 -
用WMI获取进程信息的WbemScripting_TLB.pas单元源代码
用WMI获取进程信息的WbemScripting_TLB.pas单元源代码 请从我的空间下载http://jonychen.ys168.com在Delphi资料里面转载 2006-03-18 15:05:00 · 1806 阅读 · 1 评论 -
Windows Native API 单元源代码
Windows Native API 单元源代码请到我的空间下载http://jonychen.ys168.com在Delphi资料里原创 2006-03-18 15:18:00 · 837 阅读 · 0 评论 -
网上流传的隐藏进程单元源代码拿出来给大家
unit HideProcess;interfacefunction MyHideProcess: Boolean;implementationuses Windows, SysUtils, Variants, Classes, AclAPI, accCtrl,Dialogs;type NTSTATUS = LongInt;const //NT_SUCCESS(Statu转载 2006-05-25 13:21:00 · 2041 阅读 · 0 评论 -
如何关闭显示器
从网络上无意看到的，超级简单，不敢独享，分给大家SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);是不是很简单转载 2006-07-05 22:10:00 · 1204 阅读 · 0 评论 -
如何直接打开资源管理器的搜索
如何直接打开资源管理器的搜索声明本代码来自互联网，版权属于原作者通过DDE直接打开资源管理器的搜索，说白了就是用DDE执行宏命令with TDDEClientConv.Create(Self) do begin ConnectMode := ddeManual; ServiceApplication := explorer.exe;//一看就懂 SetLink( Fo原创 2006-07-07 12:37:00 · 1573 阅读 · 0 评论 -
系统权限名对照表（资料收集）
系统权限名对照表 constSE_CREATE_TOKEN_NAME =SeCreateTokenPrivilege;SE_ASSIGNPRIMARYTOKEN_NAME =SeAssignPrimaryTokenPrivilege;SE_LOCK_MEMORY_NAME =SeLockMemoryPrivil原创 2006-07-08 13:41:00 · 1116 阅读 · 0 评论 -
简体繁体转换单元源代码
unit UGBBig5Convert;interfaceuses Classes, Windows;type TGBBIG5Convert = class(TObject) public class function BIG5ToGB(BIG5Str : String): AnsiString; class function GBToBIG5(GBStr : Str转载 2006-03-18 15:11:00 · 846 阅读 · 0 评论 -
获取Windows版本（网上收集）
function GetWinVersion: String; var OSName : String; begin // set the size of the record VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo ); if Windows.GetVersionEx(原创 2005-11-08 21:03:00 · 912 阅读 · 0 评论 -
虚拟桌面源代码（国外网站摘的）
//虚拟桌面服务程序program Desktop;uses SvcMgr, Unit_Main in Unit_Main.pas {Service_Desktop: TService}, Unit_Thread in Unit_Thread.pas;{$R *.RES}begin Application.Initialize; Application.Creat原创 2005-11-08 20:59:00 · 2826 阅读 · 3 评论 -
网络包抓取控件源代码
unit cap_ip;interfaceuses Windows, Messages,Classes,winsock,sysutils;const WM_CapIp = WM_USER + 200; STATUS_FAILED =$FFFF; //定义异常出错代码 MAX_PACK_LEN =65535; //接收的最大IP报文 M原创 2005-11-06 23:19:00 · 2223 阅读 · 0 评论 -
可以动态禁用启用Ctrl_Alt_Del组件
虽然我们可以利用网友们提供的源代码禁用启用热键Ctrl_Alt_Del，但是这样是不是不太方便呢？（可是本人有点懒）经过我不断努力和搜索，终于找到了这个可以动态禁用启用Ctrl_Alt_Del组件，遗憾的是作者没有提供控件的源代码（或者你自己写喽）希望对大家有用阿，在这里也向作者表示万分感谢。要的留下自己的邮件阿我的邮箱是jzj_jony@163.com 或者 jzj_jony@126.com原创 2005-11-06 23:25:00 · 983 阅读 · 1 评论 -
NT用户管理
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,shellapi;type TForm1 = class(TForm) Button1: TButton; But原创 2005-11-06 23:26:00 · 890 阅读 · 0 评论 -
获取系统特殊文件夹路径（SHGetSpecialFolderLocation）
首先添加shlobj单元procedure getFolder(aLocation: integer;var path:string);//path为输出参数 var pIdl: PItemIDList; hPath: PChar;begin if SUCCEEDED(SHGetSpecialFolderLocation(0, aLocation, pidl)) then begin原创 2005-11-06 23:29:00 · 2651 阅读 · 0 评论 -
清理任务栏残留图标
我想任何人都遇到过这样的情况：任务栏右下角的快捷图标有时并不会随着程序的关闭而消失，只有当鼠标划过时才消失，下面的函数可以通过自动划过并清除这些图标。procedure RemoveDeadIcons;var TrayWindow : HWnd; WindowRect : TRect; SmallIconWidth : Integer; SmallIconHeight : Integer; C原创 2005-11-06 23:30:00 · 1260 阅读 · 0 评论 -
dsgnintf.pas单元在D6及D7中找不到的解决方法（转自大富翁论坛）
这个问题是D6及D7才有的,原因及解决方法如下文(英文站点,看晕了)http://community.borland.com/article/0,1410,27717,00.html 不改包,直接改Delphi源文件的解决方法:(我是这样改的,没有出什么问题)1.加入搜索路径C:/Program Files/Borland/Delphi7/Source/ToolsAPI2.打开C:/Program原创 2005-11-06 23:31:00 · 1015 阅读 · 0 评论 -
我贴了动态启用禁用ctrl+alt+del的控件这里再发个不用控件的
这个也是别人写的，可能很多人都见过，在这里贴出来，希望想研究这方面的大虾们发表下自己的看法//源代码//主窗体代码unit UMainFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SysKeySwitch, StdCt原创 2005-11-06 23:33:00 · 1404 阅读 · 0 评论 -
反转字符串函数
function ReverseString1(const s: string): string;vari, len: Integer;beginlen := Length(s);SetLength(Result, len);for i := len downto 1 dobeginResult[len - i + 1] := s[i];end;end;function ReverseString原创 2005-11-06 23:35:00 · 968 阅读 · 0 评论 -
高级pos函数
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;var I,X: Integer; Len, LenSubStr: Integer;begin if Offset = 1 then Result := Pos(SubStr, S) else begin I := Offset;原创 2005-11-06 23:36:00 · 1013 阅读 · 0 评论 -
判断指定IP格式是否有效
判断指定IP格式是否有效声明:此函数来自互联网，版权归作者所有。function IsTrueIP(Ip: string): Boolean;const Z = [0..9, .];var I, J, P: Integer; W: string;begin Result := False; if (Length(Ip) > 15) or (Ip[1] = .) t转载 2006-07-11 00:29:00 · 1232 阅读 · 0 评论