unit reger;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, Registry,inifiles;

type
  TForm1 = class(TForm)
    CornerButton1: TCornerButton;
    procedure CornerButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  reg: tregistry;
  S:string;
  S1:ansistring;
  Win:TIniFile;
implementation

{$R *.fmx}

procedure TForm1.CornerButton1Click(Sender: TObject);




begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.LazyWrite := false;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
  reg.WriteString('My App', ExtractFilePath(ParamStr(0))+'Regerregistrori.exe');
  reg.CloseKey;
  reg.free;
end;


end.

Второй вариант

unit reger;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, Registry,inifiles;

type
  TForm1 = class(TForm)
    CornerButton1: TCornerButton;
    procedure CornerButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  reg: tregistry;
  S:string;
  S1:ansistring;
  Win:TIniFile;
implementation

{$R *.fmx}

procedure TForm1.CornerButton1Click(Sender: TObject);


begin
Win:=TIniFile.Create('Win.ini');
Win.ReadString('windows','run', 0);
Win.WriteString('windows', 'run',ExtractFilePath(ParamStr(0))+'Regerregistrori.exe');
Win.Free;
end;

end.

Пишу алгоритм с параллельными вычислениями. Один из объектов является разделяемым ресурсом и хотелось бы его клонировать. Объект достаточно сложный и использует другие объекты. Возникла идея применения механизма сериализации/десериализации. Примерный код ниже.

function Cloning(RootObject: TComponent): TComponent;
var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    MemStream.WriteComponent(RootObject);
    MemStream.Position := 0;
    Result := MemStream.ReadComponent(RootObject);
  finally
    MemStream.Free;
  end;
end;

Данный код, однако, не дает нужного результата. Исходный компонент RootObject и Result, в итоге, ссылаются на одну и ту же область памяти. Может ли уважаемое сообщество предложить какие-то решения?

В исходниках студи есть Androidapi.Jni – как понимаю это JNI – под андройд, вопрос, как его можно переделать под Windows.Jni – (если это вообще возможности).

Если описание JNI – хоть пуская с++, что из своего приложение запускать JVM  и выполнять файл jar (библиотеку)