写特
来源:互联网 发布:图像局部特征提取算法 编辑:程序博客网 时间:2024/06/10 19:23
又说不能换成自己的再换回去
那我只能搞这样了...
找来的代码--准备加进去看看
const
MFileName: Pchar = ’ShareData’;
//定义一个记录类型,你所需要共享的数据就保存在这里。
//当在进程中调用GetDllData时,进程中也应该定义一个与这个一样的记录类型。
type
PGlobalDllData = ^TGlobalDllData;
TGlobalDllData = record
s: string[50];
i: integer;
end;
var
GlobalData: PGlobalDllData; //这是一个全局变量,指向创建的内存映射文件。
MapHandle: THandle;
//给外部进程调用的过程,当外部进程调用这个过程后,形参AGlobalData就指向了我//们创建的内存映射文件. 我们可以创建两个进程, 同时调用这个过程, 那么在其中一个进 //程中修改数据后, 在另外一个进程中既可反应出来, 实现了我们需要的共享.
procedure GetDllData(var AGlobalData: PGlobalDllData);stdcall; begin
AGlobalData := GlobalData;
end;
procedure OpenThisData;
var
size: integer;
begin
size := sizeof(TGlobalDllData);
//创建一个内存文件映射对象,MfileName保存的值就是该对象的名字。
mapHandle := CreateFileMapping(Dword(-1), nil, page_readWrite, 0, size, MFileName);
if mapHandle = 0 then
RaiseLastWin32Error;
//把文件的视图映射到调用进程的地址空间,该函数的返回值就是该对象的首地址。注//意,这是调用进程的地址,两个应用程序调用该DLL,返回值是不一样的。
GlobalData := MapViewOfFile(mapHandle, File_map_all_Access, 0, 0, size);
Globaldata^.s := ’TEST’;
GlobalData^.i := 5;
if GlobalData = nil then
begin
CloseHandle(MapHandle);
RaiseLastWin32Error;
end;
end;
//DLL从进程中分离出来时,应该释放相应的空间
procedure CloseThisData;
begin
unmapViewOfFile(GlobalData);
closeHandle(MapHandle);
end;
procedure DllEntryPoint(dwReason: DWord);
begin
case dwReason of
Dll_Process_Attach: OpenThisData; //调用DLL时传入的参数,由系统自动传入
Dll_Process_Detach: CloseThisData; //释放DLL时传入的参数,系统自动传入。
end;
end;
{$R *.res}
exports
GetDllData; //外部应用程序调用的就是这个过程。
begin
DllProc := @DllEntryPoint; //该变量是一个全局变量,由它来指定DLL的入口及出 //口函数。
DllEntryPoint(Dll_Process_Attach);
end.
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
library HOOK;
uses
SysUtils,
windows,
Messages;
var
DLLHook: HHOOK;
Bol: Boolean = False;
processhandle:Thandle;
BaseAddress: Pointer;
function GetMsgProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
var
pcs:TMSG;
H:HWND;
begin
pcs:=TMSG(PMSG(lParam)^);
if nCode>=0 then
begin
if pcs.message=wm_SHOWWINDOW then
h:= FindWindow(nil,'ApiHook.pas - 记事本');
h:= FindWindowEx(h,0,'edit',nil);
SendMessage(h,WM_SETTEXT,255,Integer(PChar('全局钩子')));
end;
Result:=CallNextHookEx(0,nCode,wParam,lParam);
end;
{ 状态挂钩 }
function InstallHook(MainHandle: HWND): Boolean; stdcall;
begin
DLLHook := SetWindowsHookEx(WH_CALLWNDPROC, @GETMSGProc, Hinstance, 0);
Result := DLLHook <> 0;
end;
procedure inhook;stdcall;
var
DLLModule: THandle;
begin
ProcessHandle := GetCurrentProcess;
DLLModule := LoadLibrary('kernel32.dll');
{ 系统函数入口点地址 }
BaseAddress := GetProcAddress(DLLModule, 'GetMsgProc');
INSTALLHOOK(PROCESSHANDLE);
end;
{ 卸载挂钩 }
procedure UnHook; stdcall;
begin
UnhookWindowsHookEx(DLLHook);
//其实这里压根就没用,不知道替换成自己的然后写回去怎么样
end;
procedure MyDLLHandler(Reason: Integer);
begin
case Reason of
DLL_PROCESS_ATTACH: inhook;
DLL_PROCESS_DETACH: UnHook;
end;
end;
exports
inhook,UnHook;
begin
DLLProc := @MyDLLHandler;
MyDLLhandler(DLL_PROCESS_ATTACH);
Bol := False;
end.
- 写特
- 写特
- 写特
- 一个男人为他媳妇写的,看了特感动!
- 一个男人为他媳妇写的,看了特感动!
- 特斯坦
- 特幸福
- 维特沃特我特特团委
- [转贴]在 C# 中通过 P/Invoke 调用Win32 DLL(写得易于理解,好文,特转)
- 突然发现getchar()和putchar()自己之前都没认真想过,今天特把自己感悟写一下
- 关于如何建立你的知识体系,看这篇就够了!(作者写的很有道理,特借来学习,值得看完)
- 尔特瑞特让他而特而特而特
- 捂热无人特特我特讨厌人雨花台
- htyiruiotdfhf是的个人特特我
- 希特管理学(希特)【内容摘要】
- 好久么写东西了,这几天投简历找实习听宣讲疯特了呀,搞得自己好像已经读大四了。。
- 特郁闷!~没意思
- 特酷的脚本
- Liferay使用心得
- 显示/隐藏指定id的html控件
- 国际观点:有助于你编程而立即要做的10件事
- XHTML、XML、DOM、DTD、Ajax、DHTML
- 中国人在食品中完成了化学扫盲
- 写特
- Openlaszlo开发资料整理
- Liferay(一)安装部署开发环境
- 使用Purecoverage做测试覆盖率
- 小弟开始对着电视里的人嚷嚷了
- C#2005高级编程Chapter11内存管理和指针学习笔记
- 常用存储过程语法
- 郭子仪其实并不被皇帝信任:尽量不要从单纯道德的角度评价历史人物
- UserControl中自定义属性如何在属性控制面板中设定