unit Temp;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JvComponentBase,
  JvComputerInfoEx;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    //Function ExtApp_SharedMem_ReadBuffer(bu:PChar;bu_size:DWord):Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Const

sharedmem_name = 'AIDA64_SensorValues';
//Function ExtApp_SharedMem_ReadBuffer(bu:PChar;bu_size:DWord):Boolean;


var
    Form2: TForm2;
    mappedData : PChar;
    th : THandle;
    Result : Boolean;
    Buffer: array [0..10000] of Char;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
    Begin

    Result:=False;


    th:=OpenFileMapping(FILE_MAP_READ,False,sharedmem_name);


    If th<>INVALID_HANDLE_VALUE Then

    Begin
        mappedData:=MapViewOfFile(th,FILE_MAP_READ,0,0,0);
        If mappedData<>Nil Then
        Begin



        //StrLCopy(0×00,mappedData,bu_size);
        StrLCopy(Buffer, mappedData, 10000);
        Edit1.Text:= Buffer;

        //Edit1.Text:= (FILE_MAP_READ);


        End;


        CloseHandle(th);
        End;
    End;
end;


end.