Delphi XE2：在两个不同的进程之间共享一个变量？

Question

我需要在 2 个正在运行的程序（例如 MyProgramA.exe 和 MyProgramB.exe）之间共享一个布尔变量的值；这些是不同的程序，而不是同一程序的实例。我更喜欢内存中的全局变量而不是带有 Windows 消息的 IPC，因为我认为在内存中设置一个可由不同程序访问的全局变量比带有 Windows 消息的 IPC 更快（即瞬时）、更安全和更可靠。

Answer 1

您可以使用 Win32 API CreateFileMapping() 函数分配一块共享内存，然后使用 MapViewOfFile() 函数访问该内存。两个进程都需要以相同的名称调用CreateFileMapping() 以共享相同的映射，但它们都会收到各自的映射本地视图。

例如：

uses
  ..., Windows;

var
  Mapping: THandle = 0;
  MyBoolean: PBoolean = nil;

...

Mapping := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(Boolean), 'MyMappedBoolean');
if Mapping <> 0 then
  MyBoolean := PBoolean(MapViewOfFile(Mapping, FILE_MAP_WRITE, 0, 0, SizeOf(Boolean));

...

if MyBoolean <> nil then
  MyBoolean^ := ...;

...

if MyBoolean <> nil then
begin
  if MyBoolean^ then
    ...
  else
    ...
end;

...

if MyBoolean <> nil then
  UnmapViewOfFile(MyBoolean);
if Mapping <> 0 then
  CloseHandle(Mapping);