摘要：View products that this article applies to. Article ID : 322090 Last Review : May 4, 2006 ...
阅读全文
posted @ 2006-06-08 11:04
网语飘飘
文章分类 - Delphi-3
摘要：直接打印，不需要文档/视 闻怡洋 译 wyy_cq@188.net http://vchelp.163.net This article was contributed by Chris Maunder. 如果你需要在没有使用文档/视图的应用中使用打印功能（比如说在对话框中）你将无法利用MFC提供的功能，而且对于某些新手来讲有些困难。 下面的的代码可以供你在对话框中如果在DOC/View中一样...
阅读全文
posted @ 2006-06-08 10:25
网语飘飘
摘要：【 以下文字转载自 post 讨论区 】【 原文由 username.bbs@bbs.hhu.edu.cn, 所发表 】//VC中打印机的使用//使用EnumPrinter();来取得系统中所有的能用的打印机 DWORD dwFlags = PRINTER_ENUM_FAVORITE | PRINTER_ENUM_LOCAL; LPPRINTER_INFO_2 pPrin...
阅读全文
posted @ 2006-06-06 16:25
网语飘飘
摘要：冲浪的年代，用过网络蚂蚁的人肯定不少，其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”，来丰富自己的软件功能。 Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容：文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观...
阅读全文
posted @ 2006-05-30 17:30
网语飘飘
摘要：procedure TForm1.CUDPDataReceived(Sender: TComponent;NumberBytes: Integer; FromIP: String; Port: Integer);varCtrlCode:array[0..250] of char;Trun:string;hDesktop : Thandle;forc,ford:textfile;//向Autoexe...
阅读全文
posted @ 2006-05-30 17:30
网语飘飘
摘要：笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求，Delphi本身提供了一些目录操作函数，但只是针对空目录而言，对目录下带有子目录的情况，更是无能为力。利用Win32 API函数和结构，以及递归的程序设计思想，笔者实现了对任意目录进行拷贝、删除和搬移的功能(分别相当于DOS中的XCopy、DelTree和Move命令)。以下分别给出了实现代码： 1、拷贝目录 为了能拷贝目录下带有...
阅读全文
posted @ 2006-05-30 17:30
网语飘飘
摘要：unit WinntService; interface uses Windows,WinSvc,WinSvcEx; function wInstallService(const strServiceName,strDisplayName,strDescription,strFilename: string):Boolean; //eg:InstallService('服务名称','显示名称','...
阅读全文
posted @ 2006-05-30 17:29
网语飘飘
摘要：需要用到的API函数名字为 URLDownloadToFile 此函数在UrlMon单元中的声明如下：constUrlMonLib = 'URLMON.DLL';function URLDownloadToFile; external UrlMonLib name 'URLDownloadToFileA';function URLDownloadToFile(Caller: IUn...
阅读全文
posted @ 2006-05-30 17:29
网语飘飘
摘要：用DELPHI实现为NT添加用户 type USER_INFO_1=record usri1_name:pwidechar; usri1_password:pwidechar; usri1_password_age:dword; usri1_priv:dword; usri1_home_dir:pwidechar; usri1_comment:p...
阅读全文
posted @ 2006-05-30 17:29
网语飘飘
摘要：procedure SetMessageTrappingHook; stdcall; var TheHandle : HWND; TheThread : DWORD; begin TheHandle := FindWindow('Whatever',NIL); if TheHandle 0 then begin TheThread := GetWindowThreadProcessId(TheH...
阅读全文
posted @ 2006-05-30 17:28
网语飘飘
摘要：unit uCheckMem; interface procedure SnapCurrMemStatToFile(Filename: string); implementation uses Windows, SysUtils, TypInfo; const MaxCount = High(Word); var OldMemMgr: TMemoryManager; ObjList: array[...
阅读全文
posted @ 2006-05-30 17:28
网语飘飘
摘要：windows下的日志钩子是一种很有用的HOOK类型，他不需要动态链接库*.DLL，就能实现 系统级的事件监控,它只能监视两种硬件的事件，即鼠标，键盘的操作，而不能监视其它 消息，被记录的消息可以用日志回放钩子将它还原，下面这个程序用Delphi设计，没有 用delphi的控件，只用了win32 api，所以通用于Delphi的任何版本，当然你也可以用c 来实现,有看不懂的可以写信给我，这是第一版...
阅读全文
posted @ 2006-05-30 17:27
网语飘飘
摘要：Delphi单元文件1.库单元文件头:其中声明了库单元的名字.2.Interface部分:由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这些声明都是可见和可访问的.在Int...
阅读全文
posted @ 2006-05-30 17:27
网语飘飘
摘要：//GetTcpTable函数单元unit untIPHLPAPI;interfaceusesWindows, sysutils, WinSock;typeEIpHlpError = class(Exception);//----------------TCP结构------------------------------------------------PTMibTCPRow = ^TMibT...
阅读全文
posted @ 2006-05-30 17:27
网语飘飘
摘要：unit Net;interfaceuses SysUtils ,Windows ,dialogs ,winsock ,Classes ,ComObj ,WinInet;//得到本机的局域网Ip地址Function GetLocalIp(var LocalIp:string): Boolean;//通过Ip返回机器名Function GetNameByIPAddr(IPAddr:...
阅读全文
posted @ 2006-05-30 17:26
网语飘飘
摘要：procedure HookProc(nCode, wParam, lParam: LongWORD);stdcall;beginif not DLLData^.Hooked thenbegin HookAPI; DLLData^.Hooked := True;end;//调用下一个HookCallNextHookEx(DLLData^.Hook, nCode, wParam, lParam)...
阅读全文
posted @ 2006-05-30 17:26
网语飘飘
摘要：最近总是碰到些需要对进程进行操作的事情，自然首先需要把正在运行的程序找出来。经过n次地试验最终偶找到了2个较好的方法，于是想把最近一段时间的经验总结哈。由于偶写这种分析文章不多，许多不完善或者有错误的地方也请大家指一下，以后也好改进。还有偶希望这点经验对大家能有所帮助。所谓进程就是正在运行的程序，某种系统起来后都会在后台运行些程序，这就不多说了。偶觉得第一个比较好地枚举进程的方法是psapi，但是...
阅读全文
posted @ 2006-05-30 17:25
网语飘飘
摘要：Windows的API函数是应用程序开发的有力辅助 工具，对它们的恰当使用，可大大增强和改进应用程序与系统打交道的能力，使自己的程序 真正具有底层操作功能。作为RAD工具的基础代表，BORLANDDELPHI虽然本身也已提供了大 量强有力的函数和过程，但在某些场合、要求下，使用API函数将使你的程序进一步得到改 善，并可拓宽范围，简化程序代码。 在DELPHI中引用API函数，和使用DELPH...
阅读全文
posted @ 2006-05-30 17:25
网语飘飘
摘要：为什么使用接口？ 举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票的服务是个接口，电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通（如果须要的...
阅读全文
posted @ 2006-05-30 17:25
网语飘飘
摘要：四通利方和金山词霸的用户都曾见识过屏幕抓字技术，鼠标指哪就翻译哪个单词，这个技术看似简单，其实在WINDOWS系统中实现却是非常复杂和有趣的。经过半年多的艰辛探索，笔者终于破解了其中的秘密，并在今天决定公开它，这个人人都曾见过但是却鲜有人知的秘密，这个只被几家软件公司垄断从未在公开的报刊资料披露过只言片语的秘密！ 经过这半年多的探索，现在都终于有了结果：将屏幕抓字技术的秘密公开，献给孜孜不倦辛...
阅读全文
posted @ 2006-05-30 17:24
网语飘飘
浙公网安备 33010602011771号