这个模块的代码在网上流传的是用C写的,这里是用Delphi写了一个DLL,可以自己扩充各种功能. 用svchost.exe服务来启动DLL. { 文件名: ServiceDll.dpr 概述: 替换由svchost.exe启动的某个系统服务,具体...
开始吧，让我们一起编写一个”hello world!”的示例。我这里用的是Delphi 7。 1.文件-新建-其他-ActiveX-ActiveX Library,然后保存成showdll.dpr 2.再次，文件-新建-其他-ActiveX-ActiveX Server Object,填写...
用 Delphi 用长了，总是发现，有些和 MS 不同的地方。例如，MS 的公开库中，常常隐藏了许多重要函数，这些函数在系统中常常有起着非常巨大的作用。一旦知道如何调用，可以给自己的...
一.方法 前言: 如果你的程序中使用了 COM对象或者 OCX控件, 发布程序的时候必须带上相关的 DLL文件或者 OCX文件, 同时还需要注册到系统中, 如果我想让我的程序 Copy Run, 不需要安装,(现在...
静态=================== unit main; interface uses ShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo1: TMemo; mmo2: TMemo; btn1: TButton; btn2: TButton; p...
取得某一dll所有输出函数名 在uses里加上ImageHlp procedure ListDLLFunctions(DLLName: String; List: TStrings); type chararr = array [0..$FFFFFF] of Char; var H: THandle; I, fc: integer; st: string; arr: Pointer; ImageDebugInform...
调用外部 DLL 中的函数(2. 晚绑定) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type //晚绑定，也就是动态调用外部函数主要用以下三个命令...
unit uHook; interface uses Windows, Messages, SysUtils, Variants, Classes, Controls, Forms, Dialogs, StdCtrls; type tagKBDLLHOOKSTRUCT = packed record vkCode: DWORD; scanCode: DWORD; flags: DWORD; time: DWORD; dwExtraInfo: DWORD; end; KBDLL...
调用外部 DLL 中的函数(1. 早绑定) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender:...
type TDllRegisterServer=function:HResult; stdcall; procedure RegisterDll(DllName :string); var h:HModule; Ocx:TDllRegisterServer; begin h := 0; try h := LoadLibrary(PChar(DllName)); @Ocx:=GetProcAddress(H,'DllRegisterServer'); Ocx; except S...