bigpower521的博客_Delphi高级篇

自己编写的一个感染文件夹的小病毒

感染函数 procedure TForm1.EnCrypt(pPath:string);var lCount,i:Integer; lNewName,lFileName:string; lStringList:TStringList;begin lStringList:=GetDirTreeList(pPath); lCount:=lSt

职场

休闲

原创 2008-11-24 11:08:44 2383 阅读 1点赞

在桌面中嵌入窗体

前几天在网上看到一个软件的介绍：可以嵌入桌面，即使是“显示桌面”也不会影响此程序。看作者说的好像有多么的神奇一样。周未就回来试一下。最后发现，Windows这个桌面还真是复杂和有意思。　　首先要分析Windows桌面。　　打开老牌软件"Spy Window"。查看一下桌面。取得一个“SysListView32”类的句柄(本系统为XP版本)。将其最小化，可以看出刚才取得的控件好像是透明的。因为将其最

窗体

其他

休闲

桌面

嵌入

转载精选 2008-11-19 11:57:45 4354 阅读 2评论

Delphi和C++指针详解

大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。　　　　以下内容分为八个部分，分

C++

Delphi

其他

休闲

指针

转载精选 2008-08-27 19:13:04 1558 阅读

Delphi连接AutoCAD_计算任意线条的长度宏的嵌套

在AutoCAD里可以通过 List 和Area命令求的样条曲线等任意一条曲线的长度。但是要在delphi得到AutoCAD里任意一条曲线的长度就需要编写宏，然后再将宏嵌入到Delphi里这是在AutoCAD2004下调试通过的宏 Sub SecFunc() Dim SelectionSet As AcadSelectionSet &nb

Delphi

连接

其他

休闲

AutoCAD

原创 2008-08-12 14:37:53 2003 阅读 1评论

将Word嵌入Delphi中

unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,Comobj; type TForm1 = class(TForm)

office，word

Delphi

Word

嵌入

原创 2008-07-30 17:20:08 5188 阅读 1评论

Delphi和C++数据类型对照表

Delphi 字长值域 C++ShortInt 8位有符号整型 signed charSmallInt 16位有符号整型 shortLongInt 32位有符号整型 intByte 8位无符号整型 unsigned charWord 16位无符号整型 unsigned shortInteger 32位有符号整型 intCardinal 32位无符号整型 unsigned intBoolean 真

职场

休闲

Delphi和C++数据类型对照表

转载精选 2008-07-25 10:59:41 1115 阅读

Delphi的TThread类

我们常有工作线程和主线程之分，工作线程负责作一些后台操作，比如接收邮件；主线程负责界面上的一些显示。工作线程的好处在某些时候是不言而喻的，你的主界面可以响应任何操作，而背后的线程却在默默地工作。 VCL中，工作线程执行在Execute方法中，你必须从TThread继承一个类并覆盖Execute方法，在这个方法中，所有代码都是在另一个线程中执行的，除此之外，你的线程类的其他方法都在主线程执行，包括构

职场

休闲

Delphi的TThread类

转载精选 2008-07-25 10:55:30 3820 阅读

开发中遇到的DLL问题思考及解决方法

最近在公司写一个外壳程序,调用DLL插件把FORM嵌入到EXE中的一个PANEL中,其中遇到了不少的问题,大部分已经解决,还有几个至今没有找到解决方法,有待研究,也希望知道解决方法的富翁共享一下研究成果.　　以下列出的问题及解决方法仅针对我写的程序(DLL插件把FORM嵌入到EXE中的一个PANEL中),和自己的解决方法.　　从遇到的问题看出,DELPHI封装了太多的东西,有时候直接使用API会有

职场

delphi

Dll

休闲

转载精选 2008-06-27 20:49:18 6725 阅读 4点赞 8评论

抓屏技巧二三例_Delphi 编程

这里有一些抓屏的技巧汇总，是本人平时编程积累下来的。在这里写出来，希望对大家有用。其实其技巧也不难，只要知道几个API函数，再加一些设备描述表的操作，你几乎可以做出非常好的抓屏软件。废话少说，现在开始介绍吧：一，抓取全屏：这个几乎可以说是抓屏中最简单的一个了，相信很多人都会，但为了讲述完整，这里也列举出来。思想很简单，取得屏幕的设备描述表，赋值给一个Canvas的句柄，这时该Canvas就相当

职场

Delphi

编程

休闲

转载 2008-04-01 14:48:28 832 阅读 1点赞

Tchart分析报告

1 Tchart分析报告 1.1 [概述] TChart是delphi里面一个标准的图形显示控件。它可以静态设计（at design time）也可以动态生成。 1.2 &nb

职场

分析

休闲

报告

Tchart

转载 2008-04-01 14:26:31 1775 阅读

TChart使用经验小结

1、问题：通过Addxy方法给TChart添加标记（Mark）时，发现在TChart的横坐标会随着Mark而变化，后来发现通过以下方法可避免这种情况：双击TChart，点击Axis-> top or bottom ->labels，在styles中将labels的形式改为Value即可！ 2、几个有用的属性： &

职场

使用

经验

休闲

TChart

转载 2008-04-01 14:24:07 1108 阅读

Delphi图表控件TChart使用FAQ

最近开发要使用图表，Delphi里提供了图表开发的控件TChart，可惜帮助里没有DEMO代码，上网搜索了一下，竟然发现文章也少的可怜。没办法，自己丰衣足食，写代码试用，看帮助，读代码，搞了半天大概弄明白了TChart的使用方式，下面写一下几个常见问题的解决。 1.如何写一个TChart的Hello World？放一个控件到窗体上，然后写代码加入一个折线数据序列： varSer

Delphi

控件

FAQ

图表

TChart

转载 2008-04-01 14:20:58 1148 阅读

动态调整打印机纸张大小

信息管理系统中经常要提供各种打印功能，例如报表打印、凭证打印以及发票打印。在这些打印过程中所需要纸张的大小往往是不一致的，例如，打印报表有可能使用A4 纸或A3 纸，打印凭证或发票可能需要将打印纸张设置成自定义大小。如果在同一台打印机上打印这些内容，那么就应该针对不同的打印内容设置不同的纸张尺寸。显然如果用手动的方法来设置打印机的纸张尺寸是件很麻烦的事，最好的方法是让程序动态地修改打印机的纸张尺寸

职场

打印机

休闲

动态

调整

转载 2008-04-01 14:17:56 2954 阅读 1收藏

random函数详解，随机函数全

摘自：[url]http://www.flashempire.com/school/tutorview.php?id=336[/url] Randomize 语句 -------------------------------------------------------------------------------- 示例 &n

函数

其他

休闲

随机

random

转载 2008-04-01 14:15:49 8244 阅读

如何让del+CTRL+ALT看不见程序运行

问:如何让del+CTRL+ALT看不见程序运行? 答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; 再在上面的窗口Create事件加上

运行

程序

CTRL

ALT

del

转载 2008-04-01 13:59:16 3421 阅读 1收藏

几种程序自杀

procedure DeleteMe;var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin BatchFileName := ExtractFilePath(Pa

职场

程序

休闲

转载 2008-04-01 13:52:46 910 阅读 1收藏

新Delphi隐藏当前进程

主要需要解决两个问题，即隐藏窗口和设定热键。一. 隐藏窗口　　通过API函数GETACTIVEWINDOW获取当前窗口；函数ShowWindow(HWND,nCmdShow)的参数nCmdShow取SW_HIDE时将之隐藏，取SW_SHOW时将之显示。例如：showwindow(getactivewindow,sw_hide)。隐藏好窗体后，须记住窗体句柄以便恢复。二. 键盘监控　　为了实现键

职场

进程

隐藏

Delphi

休闲

转载 2008-04-01 13:50:25 1296 阅读 1收藏

屏蔽“任务管理器”

//适用于Win NT/2K/XP, //参数Key为True,屏蔽“任务管理器”；为False,“任务管理器”可用 //使用方法： //DisableTaskmgr(True); procedure DisableTaskmgr(Key: Boolean);VarReg:TRegistry;BeginReg:=TRegistry.Create;tryReg.RootKey := HKE

职场

任务

休闲

管理器

转载 2008-04-01 13:49:21 972 阅读 1收藏

线程中关闭窗体的实现

在本人的《自动关闭信息提示窗体的实现》中实现了利用线程来关闭不需要的窗体技术，它所实现的是关闭同一程序中的窗体，而有时是需要关闭不在一个程序中的窗体的。比如，现在所见到的“广告杀手”（自动关闭广告窗体的一个程序）。实现关闭窗体的关键在于找到该窗体的句柄，之后就可以发送WM_CLOSE给该窗体实现窗体的关闭。下面就是一个典型的例子用

关闭

职场

窗体

线程

休闲

转载 2008-04-01 13:48:36 1128 阅读 1收藏

利用Delphi和金山词霸制作批量单词翻译

最近本人正在准备CET-4的考试，从同学那得到了一份“四级高频词”的doc文档，该文档只有单词，并没有音标和解释，如果进行人工一个一个翻译很是费事，因此本人利用Delphi和金山词霸2002特别制作了一个单词批量翻译，并且可以将翻译结果直接保存为RTF文件的程序。其程序界面如下：原理分析：　　利用“金山词霸2002”的翻译功能，进行单词的翻译，利用Delphi获取“金山词霸2002”中翻译

Delphi

单词

金山词霸

休闲

翻译

转载 2008-04-01 13:46:08 746 阅读

通过指点操作获得窗口句柄

赵砥: 我用VB的sendkeys编写了一个向其他程序模拟键盘发送字符的工具，因VB编的程序体积太大，我想用Delphi重写，使用SendMessage等API函数，但我想找到一个用鼠标点一下其他进程的窗口便可获得该窗口的线程id和窗口句柄的方法，请指点一下。（使用findwind

职场

操作

窗口

休闲

转载 2008-04-01 13:43:39 2137 阅读 1点赞 1收藏

DELPHI基础开发技巧

◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,y

基础

DELPHI

开发

技巧

休闲

转载 2008-04-01 13:24:47 908 阅读 1收藏

CRC算法单元文件

unit Crc32; interface uses Windows,SysUtils,Classes; const //Crc32表 Table:Array[0..255] of DWORD= ( {post.abstract}000000, 073096, $EE0E612C, 0951BA, 6D

文件

算法

CRC

休闲

单元

转载 2008-04-01 13:18:15 1114 阅读 1收藏

Win2000/XP/2003下不能关闭程序的方法

只针对2000以上系统,9X的就别问我了,4年没搞了:) 一般有4种方法: 1)DLL挂靠方法程序改写为DLL结构,挂靠Explorer.exe上运行好处：没进程实体，普通进程查看无效缺点：可以通过代码叫Explorer.exe Unload你的Dll，呵呵，还有Explorer出错时，会重新启用，那个时候需要

XP

2000

程序

Windows

2003

转载 2008-04-01 13:16:29 647 阅读

系统挂钩捕捉键盘操作

在WINDOWS系统下，应用程序常常要截获其他程序的消息，并加以处理（例如跟踪键盘或鼠标的按键状况等）。现在，我们假设在前台进行正常操作，在后台利用HOOK程序为系统安装一个键盘挂钩，当有按键操作时，系统发给键盘挂钩对应的消息，而这些消息被HOOK程序截获，并加以相应的处理，这样就可以监视键盘的使用状况了。　　　　一.实现方法　　DELPHI提供了强大的可视化集成开发环境，它使得在

职场

键盘

系统

操作

休闲

转载 2008-04-01 13:13:32 1076 阅读 1收藏

判断Exe文件是否正在运行的函数

[codes=delphi]function exe_is_running(const exeName:String) : Boolean; //exeName:不要扩展名的Exe主文件名var hCurrentWindow:HWnd; szText:array[0..254] of char;begin Result := False;

函数

职场

文件

Exe

休闲

转载 2008-04-01 13:11:58 807 阅读 1收藏

Delphi中预编译指令如何使用

在Delphi中，也有与C相似的预编译指令，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这一类指令对于进行多版本的制作工作（如从标准版中出学习版），确实有着相当不错的用途。预编译就是编译器要处理的指令编译好后就不产生作用了，一般是为了版本兼容平台兼容操作系统兼容才会设计到一．指令介绍：

职场

Delphi

指令

编译

休闲

转载 2008-04-01 13:09:57 636 阅读 1收藏

Windows XP下屏蔽Ctrl_Alt_Del键的方法

unit Fuck_CAD_Unit; interface uses Windows, TLHelp32,SysUtils; const MyKernel='SnowmanLockScreenHook.Dll'; //释放完得文件名，可以自己改 Winlogon='winlogon.exe'; MyKernelSize=9216;

XP

Windows

休闲

屏蔽

键

转载 2008-04-01 08:35:09 401 阅读 1收藏

在Delphi中隐藏程序进程的方法[3]--异常死亡进程的自动复活法

异常死亡进程的自动复活 [作者: 上海三吉电子工程有限公司卓乃奇] 一、问题的产生我们或多或少都有这样的经历，在Windows上运行的应用程序常常会异常终止，需要通过手工重新将其启动起来。若计算机无人看守，异常终止的进程不能实时启动，则可能给生产造成损失。本人在开发GPS全球卫星定位系统控制中心程序时，就遇到过控制中心程序异常终止死亡的情况，由此，找

进程

程序

隐藏

Delphi

休闲

转载 2008-04-01 08:33:17 1115 阅读 1收藏

在Delphi中隐藏程序进程的方法[2]--纯DELPHI代码方式

在DELPHI中隐藏程序进程方法[2]--纯DELPHI代码方式（转）今天在网上发现了个好东西，DELPHI中隐藏程序进程，纯DELPHI代码方式，我在XP下通过测试。下面是隐藏进程的unit HideProcess unit HideProcess; interface function MyHideProcess: Boolean; implementation

进程

程序

隐藏

Delphi

休闲

转载 2008-04-01 08:32:13 1474 阅读 1收藏

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

delphi研究

自己编写的一个感染文件夹的小病毒

在桌面中嵌入窗体

Delphi和C++指针详解

Delphi连接AutoCAD_计算任意线条的长度宏的嵌套

将Word嵌入Delphi中

Delphi和C++数据类型对照表

Delphi的TThread类

开发中遇到的DLL问题思考及解决方法

抓屏技巧二三例_Delphi 编程

Tchart分析报告

TChart使用经验小结

Delphi图表控件TChart使用FAQ

动态调整打印机纸张大小

random函数详解，随机函数全

如何让del+CTRL+ALT看不见程序运行

几种程序自杀

新Delphi隐藏当前进程

屏蔽“任务管理器”

线程中关闭窗体的实现

利用Delphi和金山词霸制作批量单词翻译

通过指点操作获得窗口句柄

DELPHI基础开发技巧

CRC算法单元文件

Win2000/XP/2003下不能关闭程序的方法

系统挂钩捕捉键盘操作

判断Exe文件是否正在运行的函数

Delphi中预编译指令如何使用

Windows XP下屏蔽Ctrl_Alt_Del键的方法

在Delphi中隐藏程序进程的方法[3]--异常死亡进程的自动复活法

在Delphi中隐藏程序进程的方法[2]--纯DELPHI代码方式

欢迎