- 博客(48)
- 收藏
- 关注
RSS订阅原创 如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小)
如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小){ 文章名 : 如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小) 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jo
2006-10-02 17:41:00
4180
转载 在运行时生成桌面快捷方式
文章出处:来自互联网作者:未知 procedure MakeLink(proName,lnkName,Description,position : String);var WorkDir, DestName: String; aReg : TRegistry; aObj : IUnknown; MyLink : IShellLink; MyPFile: IPersis
2006-10-01 22:40:00
2092
原创 自己收集的几个比较实用的Delphi字符串函数(LeftStr,MidStr,RightStr,Reverse,LastPos)
自己收集的几个比较实用的字符串函数(LeftStr,MidStr,RightStr,Reverse,LastPos)没什么可说的，自己看啦//从右边取function RightStr (Const Str: String; Size: Word): String;begin if Size > Length(Str) then Size := Length(Str) ; Right
2006-07-12 19:46:00
4688
转载 判断指定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
原创 获取指定窗口EDIT、RICHEDIT控件选中的内容
{ 文章名 : 获取指定窗口EDIT、RICHEDIT控件选中的内容 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2+De
2006-07-09 21:26:00
2165
原创 如何切换指定窗口到最前并获得焦点
{ 文章名 : 如何切换指定窗口到最前并获得焦点 说明 : SwitchToThisWindow在Win2000以上才有，在9x用不了别怪偶 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys
2006-07-08 14:41:00
2796
2
原创 系统权限名对照表（资料收集）
系统权限名对照表 constSE_CREATE_TOKEN_NAME =SeCreateTokenPrivilege;SE_ASSIGNPRIMARYTOKEN_NAME =SeAssignPrimaryTokenPrivilege;SE_LOCK_MEMORY_NAME =SeLockMemoryPrivil
2006-07-08 13:41:00
1116
原创 5种运行程序的方法具体应用实例(带参数)
{ 代码名 : 5种运行程序的方法具体应用实例(带参数) 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2 声明
2006-07-07 14:27:00
2612
1
原创 如何直接打开资源管理器的搜索
如何直接打开资源管理器的搜索声明本代码来自互联网，版权属于原作者通过DDE直接打开资源管理器的搜索，说白了就是用DDE执行宏命令with TDDEClientConv.Create(Self) do begin ConnectMode := ddeManual; ServiceApplication := explorer.exe;//一看就懂 SetLink( Fo
2006-07-07 12:37:00
1572
原创 原来Delphi已经给我们做好了
今天随便翻了翻Delphi的Source文件夹，这里有Delphi提供的各个单元，一看不打紧，猛拍偶头，差点晕倒原来Delphi把好多我们常用的东西都给做好了，只是我们没发现而已，例如注册表中那些比较重要的键、值，以前都要打开注册表--->复制项什么的拷贝出来在粘贴阿之类，而且有的键还相当长，这些都在regstr.pas单元里多有了的，慨叹当初没好好翻翻，下面我就贴出一些:{ P
2006-07-06 12:24:00
1591
1
转载 如何关闭显示器
从网络上无意看到的，超级简单，不敢独享，分给大家SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);是不是很简单
2006-07-05 22:10:00
1204
原创 再谈如何在WinNT以上系统通过程序快速关机
{ 文章名 : 再谈如何在WinNT以上系统通过程序快速关机 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2/Win200
2006-07-05 12:39:00
1239
1
原创 重新设置指定Label内容
{ 程序名 : 重新设定指定Label的内容 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2+Delphi7+MadCod
2006-07-04 20:08:00
3020
1
原创 WinNT以上如何通过程序快速关机
{ 文章名 : WinNT以上如何通过程序快速关机 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2,Win2003SP1
2006-07-04 14:31:00
1421
原创 获取外网IP
{ 代码名 : 获取外网IP 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2+ADSL(网通)直接拨号 声明
2006-07-04 13:14:00
3499
3
原创 delphi中利用中断获得系统启动以来的时间
delphi中利用中断获得系统启动以来的时间其实这个例子非常简单就是利用系统2a号中中断获取系统启动以来的时间，写这篇文章的目的也是为了让大家知道如何在delphi中内嵌汇编。下面给出源代码:function GetSysTime:dword;asm int $2a //调用2a号中断获取系统从启动运行时间(毫秒)end;procedure TForm1.Button1Click(S
2006-07-02 23:53:00
1110
原创 获取本地用户组、组内用户及相关联权限列表
获取本地用户组、组内用户及相关联权限列表首先添加AcountManager单元（可以从我的空间htpp://jonychen.ys168.com下载）uses AcountManager;下面给出获取本地用户组、组内用户及相关联权限列表调用代码{ 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony
2006-07-02 22:52:00
1777
原创 如何正确给CreateThread传递参数
文章标题:如何正确给CreateThread传递参数？文章作者:JJony文章来源:http://blog.youkuaiyun.com/jzj_jony注意:您可任意转载，但请注明作者和来源 在网上我们也可以找到相关例子，不过用的是Delphi的TThread类，我个人不太爱用，一个线程也弄的那么麻烦，不过各有各的好处，这里就不谈论Delphi的TThread类了，我们以在线程里运行Message
2006-06-30 19:40:00
10120
原创 给Delphi程序（exe,dll）添加版本信息
我们在用Delphi编译完程序，准备发布产品时，总希望随产品发布个性信息以标示产品的来源以及开发者等信息，就像windows的程序一样，使我们一看属性就知道他是微软的产品，这些在Delphi中是如何实现的呢？下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。第一，给exe文件添加版本信息。这个我想大家都会添加的，Delphi已经给我们提供了相关选项了.具体做法:打开你的工程，选择菜
2006-06-29 20:37:00
2228
1
原创 未公开函数ShellShutdownDialog的定义及使用
我们用察看dll导出函数的工具可以看到msgina.dll的第一个导出函数是ShellShutdownDialog，但是查遍msdn也没有说明，于是去win2000源代码中查找得到该函数的定义，现转为delphi版本，并给出实例。{ *显示windows退出系统对话框* 说明:该函数由msgina.dll导出，但是查msdn没有相关说明，查win2000源代码得函数定义 作者: JJ
2006-06-17 00:33:00
1513
原创 以SYSTEM权限运行程序
*以SYSTEM权限运行程序测试* 说明 : 以SYSTEM权限运行程序测试,我已经对相关函数进行了封装(在GetSysToken.dll中)， 使用时直接调用Dll中的 CreateSystemProcess即可。 函数定义 : function CreateSystemProcess(szProcessName:LPTSTR):boo
2006-05-28 13:23:00
2024
原创 通过WinStationTerminateProcess终止指定进程
{ *通过WinStationTerminateProcess终止指定进程* 作者: JJony 联系方式: jzj_jony@126.com QQ: 254706028}unit JJony_Unit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, D
2006-05-25 13:23:00
1607
1
转载 网上流传的隐藏进程单元源代码拿出来给大家
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
原创 利用WTSEnumerateProcesses枚举进程
const wtsapi=Wtsapi32.dll; WTS_CURRENT_SERVER_HANDLE=0;//定义数据结构type _WTS_PROCESS_INFO =record //进程信息 SessionId:DWORD ; ProcessId:DWORD ; pProcessName:LPTSTR ; pUserSid:PSID;end; WTS_PROC
2006-05-25 13:20:00
2437
原创 Windows Native API 单元源代码
Windows Native API 单元源代码请到我的空间下载http://jonychen.ys168.com在Delphi资料里
2006-03-18 15:18:00
837
转载 简体繁体转换单元源代码
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
原创 揭穿“智慧星杀毒软件”的虚假面目
揭穿“智慧星杀毒软件”的虚假面目现在越来越多的人认识到“智慧星杀毒软件”是个骗局，也分析了很多，那些我就不说了，我只说说我的分析结果。第一：无监控模块。 大家都知道，无论什么杀毒软件都会有很多功能模块（就是那些dll文件），杀毒软件在启动时就会把这些模块注入到系统进程或普通程序进程中，以达到控制该进程的行为等作用，而最多的就是注入到explorer.exe进程中，因为当你双击运行某个程序时
2006-03-18 15:07:00
2078
转载 用WMI获取进程信息的WbemScripting_TLB.pas单元源代码
用WMI获取进程信息的WbemScripting_TLB.pas单元源代码 请从我的空间下载http://jonychen.ys168.com在Delphi资料里面
2006-03-18 15:05:00
1806
1
原创 安全运行程序（用其他帐户运行程序）
自动向系统添加123用户,密码123,属于users组,支持拖放可以从资源管理器拖放文件到文本框，也可以通过浏览按钮选择要运行的文件，单击"运行"，在帐户123运行指定程序作者JJony E-Mail:jzj_jony@126.comunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, G
2006-03-18 15:01:00
904
原创 超强杀进程工具（可瞬时杀多进程）
软件名称:超强杀进程工具作者:jjony开发工具:Delphi 7运行环境:Windows 2000/xp/2003联系作者:jzj_jony@126.com软件说明: 本软件具有超强杀进程功能，无论是顽固进程(有自我保护功能的进程或系统关键进程)或者服务程序进程都可以杀掉，特别是本软件的瞬时杀多进程功能，为手动杀毒提供更多方便。使用方法: 打开cmd进入软件
2006-02-20 21:23:00
1914
原创 在单独线程中运行窗体
function WindowProc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall; begin if Msg = WM_DESTROY then PostQuitMessage(0) else if Msg = WM_lBUTTONDOWN then DoSomething; Result := DefWindowProc(hWnd,Ms
2006-02-07 23:51:00
794
原创 Windows2000系统进程总列表(手工清木马时候有用)
Windows2000系统进程总列表(手工清木马时候有用) 主要分为三大类 1.最基本的系统进程（也就是说，这些进程是系统运行的基本条件，有了这些进程，系统就能正常运行） smss.exe Session Manager csrss.exe 子系统服务器进程 winlogon.exe 管理用户登录 services.exe 包含很多系统服务 lsass.exe 管理 IP 安全策略以及启动
2006-02-07 23:48:00
593
原创 系统权限对应的权限名
constSE_CREATE_TOKEN_NAME =SeCreateTokenPrivilege;SE_ASSIGNPRIMARYTOKEN_NAME =SeAssignPrimaryTokenPrivilege;SE_LOCK_MEMORY_NAME =SeLockMemoryPrivilege;SE_INC
2006-02-07 23:43:00
800
原创 进程工具单元
进程工具单元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
原创 注册反注册DLL,ActiveX
winexec(pchar(regsvr32 /i+"+edit1.Text+"),sw_hide)//注册winexec(pchar(regsvr32 /u +"+edit1.Text+"),sw_hide)//反注册提示： 双引号是必须要的，因为这个是在NT系统中的，NT允许文件路径包括空格的，不加双引号系统会找不到路径的
2005-11-08 21:09:00
749
原创 获取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
原创 虚拟桌面源代码（国外网站摘的）
//虚拟桌面服务程序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
原创 高级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
原创 反转字符串函数
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
原创 我贴了动态启用禁用ctrl+alt+del的控件这里再发个不用控件的
这个也是别人写的，可能很多人都见过，在这里贴出来，希望想研究这方面的大虾们发表下自己的看法//源代码//主窗体代码unit UMainFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SysKeySwitch, StdCt
2005-11-06 23:33:00
1404
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人