ZhuJunfeng-CSDN博客

原创自己动手编写devExpress组件自动安装程序

每次安装devExpress组件都特别麻烦,要逐个compile package,还要install...添加library path.安装过程中次序还不能搞错,头真的很大,我试过最快的手动安装也要20分钟.接下来可以说怎么编写自动安装程序了首先说一下思路------------------------------------------------------------------

2006-04-03 10:21:00 3813 1

制作外挂,首先要做一个鼠标的钩子,这个大家应该都知道.以下简单描述一下SetWindowsHookEx 装载钩子UnHookWindowsHookEx 卸载钩子示例hHk := SetWindowsHookEx(WH_MOUSE,@MouseHookProc,Hinstance,0);写一个处理函数function MouseHookProc,将需要的鼠标信息通过SendMessage送一个自定义

2005-05-23 09:19:00 2083 7

原创如何在启动机器时自动运行adsl拨号（1）

我们通常希望有一台机器能经常挂在网上，现在有了adsl包月服务，这已经不是问题。但是最近adsl总是会断线，当我回家想从公司的机器上拷贝一些文件的时候，有时会发现已经连接不上了。所以我做个程序所要实现的功能有这么两个，一是用程序来实现adsl拨号，二是要定时检测网络状态，三是要在启动机器时运行（既注册为服务）我们先看一下如何做一个拨号程序首先建一个ras拨号的单元文件（这是网上搜集的）unit R

2003-03-13 09:03:00 1156

原创如何在启动机器时自动运行adsl拨号（2）

自动拨号的程序做完了，接下来的任务就是如何建一个服务在开机时运行，并定时检测网络unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,ras,IniFiles;type TAutoDialService = class(TService)

2003-03-13 09:03:00 1127 1

原创如何使广告条自动运行，仅供学习参考

各位程序员，大家辛苦了！！！今天我一同事要我为他赚钱的东东做一个作弊程序，出于好玩，就即兴做了一个，现在贴出来让大家参考参考。我本对这类东西不感兴趣，赚钱是假，学习是真。但是看到点数快速的增加，不免也感到非常开心，不敢独享，所以一方面让大家一起学习探讨，一方面让大家赚点小钱，一方面我也可以发展几个下线。。。呵呵程序制作说明广告条左角的小人在走动时，表示在计费，如果小人停止了，请用光

2003-01-22 09:46:00 1030 1

原创用 API 做的 ServerSocket 例子

program Server;{$APPTYPE CONSOLE}uses SysUtils, Winsock, Windows;type TParam=record TrdId:integer; Sckt:TSocket; end;//子线程函数function ChildThrd(p:Pointer):LongInt;stdcall;var PkLen:

2002-08-01 08:59:00 864

原创用CreateProcess读取Console程序的显示信息和返回结果

unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; OpenDialog1: TO

2002-04-22 09:39:00 1579

zhujunfeng的专栏