Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
来源:互联网 发布:人才争夺战知乎 编辑:程序博客网 时间:2024/05/20 16:34
用于创建内核对象的函数几乎都有一个指向SECURITY_ATTRIBUTES结构的指针作为其参数,在使用CreateFileMapping函数的时候,通常只是为该参数传递NULL,这样就可以创建带有默认安全性的内核对象。
默认安全性意味着对象的管理小组的任何成员和对象的创建者都拥有对该对象的全部访问权,而其他所有人均无权访问该对象。可以指定一个ECURITY_ATTRIBUTES结构,对它进行初始化,并为该参数传递该结构的地址。
它包含的与安全性有关的成员实际上只有一个,即lpSecurityDescriptor。当你想要获得对相应的一个内核对象的访问权(而不是创建一个新对象)时,必须设定要对该对象执行什么操作。如果想要访问一个现有的文件映射内核对象,以便读取它的数据,那么调用OpenfileMapping函数:通过将FILE_MAP_READ作为第一个参数传递给OpenFileMapping,指明打算在获得对该文件映象的访问权后读取该文件, 该函数在返回一个有效的句柄值之前,首先
执行一次安全检查。如果(已登录用户)被允许访问现有的文件映射内核对象,就返回一个有效的句柄。但是,如果被拒绝访问该对象,将返回NULL。
系统服务端核心代码:
constructor TPublicVars.Create(ANew: Boolean);
var
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
inherited Create;
{ 创建一个任何用户都可以访问的内核对象访问权 }
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
FMapFile := CreateFileMapping($FFFFFFFF, @SecMem, PAGE_READWRITE, 0, CSharedMemSize, CSharedMemName);
FMapFile := OpenFileMapping(File_Map_All_Access, False, CSharedMemName);
if (FMapFile = 0) then
begin
raise Exception.Create(SysErrorMessage(GetLastError));
OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end
else
begin // 成功
FShareMem := MapViewOfFile(FMapFile, File_Map_All_Access, 0, 0, CSharedMemSize);
OutputDebugString(PChar(SysErrorMessage(GetLastError) + ',Handle=' + IntToStr(Handle)));
end;
end;
destructor TPublicVars.Destroy;
begin
UnmapViewOfFile(FShareMem);
CloseHandle(FMapFile);
inherited;
end;
桌面程序核心源代码:
constructor TPublicVars.Create(ANew: Boolean);
var
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
inherited Create;
{ 创建一个任何用户都可以访问的内核对象访问权 }
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
FMapFile := CreateFileMapping($FFFFFFFF, @SecMem, PAGE_READWRITE, 0, CSharedMemSize, CSharedMemName);
FMapFile := OpenFileMapping(File_Map_All_Access, False, CSharedMemName);
if (FMapFile = 0) then
begin
raise Exception.Create(SysErrorMessage(GetLastError));
OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end
else
begin // 成功
FShareMem := MapViewOfFile(FMapFile, File_Map_All_Access, 0, 0, CSharedMemSize);
OutputDebugString(PChar(SysErrorMessage(GetLastError) + ',Handle=' + IntToStr(Handle)));
end;
end;
destructor TPublicVars.Destroy;
begin
UnmapViewOfFile(FShareMem);
CloseHandle(FMapFile);
inherited;
end;
详细源代码见报表服务和报表COM中的关于共享内存的源代码。需要注意创建共享内存需要放在:ServiceStart中初始化,不能放在initialization,否则还会出现权限不足的信息,因为initialization是在应用程序初始化之前执行的代码。
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- Delphi编写系统服务二:系统服务和桌面程序的区别
- Delphi编写系统服务四:如何限制系统服务和桌面程序只运行一个
- Delphi编写系统服务四:如何限制系统服务和桌面程序只运行一个
- Delphi编写系统服务二:系统服务和桌面程序的区别
- Delphi 编写系统服务
- Delphi编写Windows系统服务程序【转帖】
- Delphi编写系统服务一:如何编写一个系统服务
- Delphi编写系统服务三:编写两栖系统服务
- Delphi编写系统服务三:编写两栖系统服务
- Delphi编写系统服务一:如何编写一个系统服务
- Delphi 服务程序编写
- Delphi编写系统服务六:在服务中使用COM组件
- Delphi编写系统服务六:在服务中使用COM组件
- 用 Delphi 创建系统服务程序
- Delphi 系统服务
- 关于系统服务程序的编写
- 显示菜单TActionmenubar(转)
- JAVA 代理模式(Proxy)
- 时间处理
- avr熟悉
- vb中如何把科学计数法转换成常规表
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- reinterpret_cast的本质(转)
- VB 各种进制相互转换大全
- Delphi编写系统服务六:在服务中使用COM组件
- 浅谈VC6中Debug版本与Release版本生成的Exe的差异
- Delphi编写系统服务七:完成端口演示
- Motion Analysis HTR (分等级模型运动分析)
- SD讲师张银奎专访:谈调试器的威力
- vb+mapx5 沿线标注的实现方法