delphi 心得
关注
分享
扫一扫
文章平均质量分 74
jzj_jony
这个作者很懒，什么都没留下…
展开
-
类似acdsee右健菜单显示图片源代码
类似acdsee右健菜单显示图片源代码，代码太多，贴不下，要的留下大名和邮箱，我会尽快发给你原创 2005-11-06 23:28:00 · 910 阅读 · 2 评论 -
获取本地用户组、组内用户及相关联权限列表
获取本地用户组、组内用户及相关联权限列表首先添加AcountManager单元（可以从我的空间htpp://jonychen.ys168.com下载）uses AcountManager;下面给出获取本地用户组、组内用户及相关联权限列表调用代码{ 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony原创 2006-07-02 22:52:00 · 1777 阅读 · 1 评论 -
delphi中利用中断获得系统启动以来的时间
delphi中利用中断获得系统启动以来的时间其实这个例子非常简单就是利用系统2a号中中断获取系统启动以来的时间，写这篇文章的目的也是为了让大家知道如何在delphi中内嵌汇编。下面给出源代码:function GetSysTime:dword;asm int $2a //调用2a号中断获取系统从启动运行时间(毫秒)end;procedure TForm1.Button1Click(S原创 2006-07-02 23:53:00 · 1110 阅读 · 0 评论 -
获取外网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 评论 -
再谈如何在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 评论 -
原来Delphi已经给我们做好了
今天随便翻了翻Delphi的Source文件夹，这里有Delphi提供的各个单元，一看不打紧，猛拍偶头，差点晕倒原来Delphi把好多我们常用的东西都给做好了，只是我们没发现而已，例如注册表中那些比较重要的键、值，以前都要打开注册表--->复制项什么的拷贝出来在粘贴阿之类，而且有的键还相当长，这些都在regstr.pas单元里多有了的，慨叹当初没好好翻翻，下面我就贴出一些:{ P原创 2006-07-06 12:24:00 · 1591 阅读 · 1 评论 -
如何切换指定窗口到最前并获得焦点
{ 文章名 : 如何切换指定窗口到最前并获得焦点 说明 : SwitchToThisWindow在Win2000以上才有，在9x用不了别怪偶 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys原创 2006-07-08 14:41:00 · 2796 阅读 · 2 评论 -
WinNT以上如何通过程序快速关机
{ 文章名 : WinNT以上如何通过程序快速关机 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2,Win2003SP1原创 2006-07-04 14:31:00 · 1421 阅读 · 0 评论 -
5种运行程序的方法具体应用实例(带参数)
{ 代码名 : 5种运行程序的方法具体应用实例(带参数) 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jonychen,ys168.com 测试环境 : WinXPSP2 声明原创 2006-07-07 14:27:00 · 2612 阅读 · 1 评论 -
如何正确给CreateThread传递参数
文章标题:如何正确给CreateThread传递参数？文章作者:JJony文章来源:http://blog.youkuaiyun.com/jzj_jony注意:您可任意转载，但请注明作者和来源 在网上我们也可以找到相关例子，不过用的是Delphi的TThread类，我个人不太爱用，一个线程也弄的那么麻烦，不过各有各的好处，这里就不谈论Delphi的TThread类了，我们以在线程里运行Message原创 2006-06-30 19:40:00 · 10120 阅读 · 0 评论 -
未公开函数ShellShutdownDialog的定义及使用
我们用察看dll导出函数的工具可以看到msgina.dll的第一个导出函数是ShellShutdownDialog，但是查遍msdn也没有说明，于是去win2000源代码中查找得到该函数的定义，现转为delphi版本，并给出实例。{ *显示windows退出系统对话框* 说明:该函数由msgina.dll导出，但是查msdn没有相关说明，查win2000源代码得函数定义 作者: JJ原创 2006-06-17 00:33:00 · 1513 阅读 · 0 评论 -
以SYSTEM权限运行程序
*以SYSTEM权限运行程序测试* 说明 : 以SYSTEM权限运行程序测试,我已经对相关函数进行了封装(在GetSysToken.dll中)， 使用时直接调用Dll中的 CreateSystemProcess即可。 函数定义 : function CreateSystemProcess(szProcessName:LPTSTR):boo原创 2006-05-28 13:23:00 · 2024 阅读 · 0 评论 -
清理任务栏残留图标
我想任何人都遇到过这样的情况：任务栏右下角的快捷图标有时并不会随着程序的关闭而消失，只有当鼠标划过时才消失，下面的函数可以通过自动划过并清除这些图标。procedure RemoveDeadIcons;var TrayWindow : HWnd; WindowRect : TRect; SmallIconWidth : Integer; SmallIconHeight : Integer; C原创 2005-11-06 23:30:00 · 1260 阅读 · 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 评论 -
注册反注册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 阅读 · 0 评论 -
在单独线程中运行窗体
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 阅读 · 0 评论 -
超强杀进程工具（可瞬时杀多进程）
软件名称:超强杀进程工具作者:jjony开发工具:Delphi 7运行环境:Windows 2000/xp/2003联系作者:jzj_jony@126.com软件说明: 本软件具有超强杀进程功能，无论是顽固进程(有自我保护功能的进程或系统关键进程)或者服务程序进程都可以杀掉，特别是本软件的瞬时杀多进程功能，为手动杀毒提供更多方便。使用方法: 打开cmd进入软件原创 2006-02-20 21:23:00 · 1915 阅读 · 0 评论 -
如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小)
如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小){ 文章名 : 如何获取磁盘分区信息(包括卷标、序列号、类型、总大小、剩余大小) 说明 : 无 作者 : JJony QQ : 254706028 博客 : http://blog.youkuaiyun.com/jzj_jony 空间 : http://jo原创 2006-10-02 17:41:00 · 4180 阅读 · 0 评论 -
利用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 阅读 · 0 评论 -
通过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 评论 -
获取指定窗口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 阅读 · 0 评论