jzj_jony-CSDN博客

原创如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小)

如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小){ 文章名 : 如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小) 说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jo

2006-10-02 17:41:00 4053

转载在运行时生成桌面快捷方式

文章出处:来自互联网作者:未知 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 1982

原创自己收集的几个比较实用的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 4594

转载判断指定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 1154

原创获取指定窗口EDIT、RICHEDIT控件选中的内容

{ 文章名 : 获取指定窗口EDIT、RICHEDIT控件选中的内容说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2+De

2006-07-09 21:26:00 2135

原创如何切换指定窗口到最前并获得焦点

{ 文章名 : 如何切换指定窗口到最前并获得焦点说明 : SwitchToThisWindow在Win2000以上才有，在9x用不了别怪偶作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys

2006-07-08 14:41:00 2760 2

原创系统权限名对照表（资料收集）

系统权限名对照表 constSE_CREATE_TOKEN_NAME =SeCreateTokenPrivilege;SE_ASSIGNPRIMARYTOKEN_NAME =SeAssignPrimaryTokenPrivilege;SE_LOCK_MEMORY_NAME =SeLockMemoryPrivil

2006-07-08 13:41:00 1089

原创 5种运行程序的方法具体应用实例(带参数)

{ 代码名 : 5种运行程序的方法具体应用实例(带参数) 说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2 声明

2006-07-07 14:27:00 2583 1

原创如何直接打开资源管理器的搜索

如何直接打开资源管理器的搜索声明本代码来自互联网，版权属于原作者通过DDE直接打开资源管理器的搜索，说白了就是用DDE执行宏命令with TDDEClientConv.Create(Self) do begin ConnectMode := ddeManual; ServiceApplication := explorer.exe;//一看就懂 SetLink( Fo

2006-07-07 12:37:00 1524

原创原来Delphi已经给我们做好了

今天随便翻了翻Delphi的Source文件夹，这里有Delphi提供的各个单元，一看不打紧，猛拍偶头，差点晕倒原来Delphi把好多我们常用的东西都给做好了，只是我们没发现而已，例如注册表中那些比较重要的键、值，以前都要打开注册表--->复制项什么的拷贝出来在粘贴阿之类，而且有的键还相当长，这些都在regstr.pas单元里多有了的，慨叹当初没好好翻翻，下面我就贴出一些:{ P

2006-07-06 12:24:00 1545 1

转载如何关闭显示器

从网络上无意看到的，超级简单，不敢独享，分给大家SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);是不是很简单

2006-07-05 22:10:00 1180

原创再谈如何在WinNT以上系统通过程序快速关机

{ 文章名 : 再谈如何在WinNT以上系统通过程序快速关机说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2/Win200

2006-07-05 12:39:00 1205 1

原创重新设置指定Label内容

{ 程序名 : 重新设定指定Label的内容说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2+Delphi7+MadCod

2006-07-04 20:08:00 2954 2

原创 WinNT以上如何通过程序快速关机

{ 文章名 : WinNT以上如何通过程序快速关机说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2,Win2003SP1

2006-07-04 14:31:00 1394

原创获取外网IP

{ 代码名 : 获取外网IP 说明 : 无作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2+ADSL(网通)直接拨号声明

2006-07-04 13:14:00 3450 3

原创 delphi中利用中断获得系统启动以来的时间

delphi中利用中断获得系统启动以来的时间其实这个例子非常简单就是利用系统2a号中中断获取系统启动以来的时间，写这篇文章的目的也是为了让大家知道如何在delphi中内嵌汇编。下面给出源代码:function GetSysTime:dword;asm int $2a //调用2a号中断获取系统从启动运行时间(毫秒)end;procedure TForm1.Button1Click(S

2006-07-02 23:53:00 1075

原创获取本地用户组、组内用户及相关联权限列表

获取本地用户组、组内用户及相关联权限列表首先添加AcountManager单元（可以从我的空间htpp://jonychen.ys168.com下载）uses AcountManager;下面给出获取本地用户组、组内用户及相关联权限列表调用代码{ 作者 : JJony QQ : 254706028 博客 : http://blog.csdn.net/jzj_jony

2006-07-02 22:52:00 1718 1

原创如何正确给CreateThread传递参数

文章标题:如何正确给CreateThread传递参数？文章作者:JJony文章来源:http://blog.csdn.net/jzj_jony注意:您可任意转载，但请注明作者和来源在网上我们也可以找到相关例子，不过用的是Delphi的TThread类，我个人不太爱用，一个线程也弄的那么麻烦，不过各有各的好处，这里就不谈论Delphi的TThread类了，我们以在线程里运行Message

2006-06-30 19:40:00 9997

我们在用Delphi编译完程序，准备发布产品时，总希望随产品发布个性信息以标示产品的来源以及开发者等信息，就像windows的程序一样，使我们一看属性就知道他是微软的产品，这些在Delphi中是如何实现的呢？下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。第一，给exe文件添加版本信息。这个我想大家都会添加的，Delphi已经给我们提供了相关选项了.具体做法:打开你的工程，选择菜

2006-06-29 20:37:00 2190 1

原创未公开函数ShellShutdownDialog的定义及使用

我们用察看dll导出函数的工具可以看到msgina.dll的第一个导出函数是ShellShutdownDialog，但是查遍msdn也没有说明，于是去win2000源代码中查找得到该函数的定义，现转为delphi版本，并给出实例。{ *显示windows退出系统对话框* 说明:该函数由msgina.dll导出，但是查msdn没有相关说明，查win2000源代码得函数定义作者: JJ

2006-06-17 00:33:00 1483

原创以SYSTEM权限运行程序

*以SYSTEM权限运行程序测试* 说明 : 以SYSTEM权限运行程序测试,我已经对相关函数进行了封装(在GetSysToken.dll中)，使用时直接调用Dll中的 CreateSystemProcess即可。函数定义 : function CreateSystemProcess(szProcessName:LPTSTR):boo

2006-05-28 13:23:00 1971

原创通过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 1548 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 1912

原创利用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 2388

原创 Windows Native API 单元源代码

Windows Native API 单元源代码请到我的空间下载http://jonychen.ys168.com在Delphi资料里

2006-03-18 15:18:00 809

转载简体繁体转换单元源代码

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 824

原创揭穿“智慧星杀毒软件”的虚假面目

揭穿“智慧星杀毒软件”的虚假面目现在越来越多的人认识到“智慧星杀毒软件”是个骗局，也分析了很多，那些我就不说了，我只说说我的分析结果。第一：无监控模块。大家都知道，无论什么杀毒软件都会有很多功能模块（就是那些dll文件），杀毒软件在启动时就会把这些模块注入到系统进程或普通程序进程中，以达到控制该进程的行为等作用，而最多的就是注入到explorer.exe进程中，因为当你双击运行某个程序时

2006-03-18 15:07:00 2009

转载用WMI获取进程信息的WbemScripting_TLB.pas单元源代码

用WMI获取进程信息的WbemScripting_TLB.pas单元源代码请从我的空间下载http://jonychen.ys168.com在Delphi资料里面

2006-03-18 15:05:00 1777 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 882

原创超强杀进程工具（可瞬时杀多进程）

软件名称:超强杀进程工具作者:jjony开发工具:Delphi 7运行环境:Windows 2000/xp/2003联系作者:jzj_jony@126.com软件说明: 本软件具有超强杀进程功能，无论是顽固进程(有自我保护功能的进程或系统关键进程)或者服务程序进程都可以杀掉，特别是本软件的瞬时杀多进程功能，为手动杀毒提供更多方便。使用方法: 打开cmd进入软件

2006-02-20 21:23:00 1888

原创在单独线程中运行窗体

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 768

原创 Windows2000系统进程总列表(手工清木马时候有用)

Windows2000系统进程总列表(手工清木马时候有用) 主要分为三大类 1.最基本的系统进程（也就是说，这些进程是系统运行的基本条件，有了这些进程，系统就能正常运行） smss.exe Session Manager csrss.exe 子系统服务器进程 winlogon.exe 管理用户登录 services.exe 包含很多系统服务 lsass.exe 管理 IP 安全策略以及启动

2006-02-07 23:48:00 567

原创系统权限对应的权限名

constSE_CREATE_TOKEN_NAME =SeCreateTokenPrivilege;SE_ASSIGNPRIMARYTOKEN_NAME =SeAssignPrimaryTokenPrivilege;SE_LOCK_MEMORY_NAME =SeLockMemoryPrivilege;SE_INC

2006-02-07 23:43:00 775

原创进程工具单元

进程工具单元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 790

原创注册反注册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 724

原创获取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 889

原创虚拟桌面源代码（国外网站摘的）

//虚拟桌面服务程序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 2775 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 987

原创反转字符串函数

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 948

原创我贴了动态启用禁用ctrl+alt+del的控件这里再发个不用控件的

这个也是别人写的，可能很多人都见过，在这里贴出来，希望想研究这方面的大虾们发表下自己的看法//源代码//主窗体代码unit UMainFrm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SysKeySwitch, StdCt

2005-11-06 23:33:00 1375

空空如也

空空如也