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 =

[vitalik]

Добрый день! Создаю программу (Firemonkey Delphi). Для программы, не обходим автозапуск им занялся в первую очередь. В процессе работы появилось два варианта:
1-й вариант:

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.

[vitalik]

вво втором Варианте  указывает на строчку

Win.ReadString('windows','run', 0);

выдает ошибку

[dcc32 Error] reger.pas(35): E2010 Incompatible types: 'string' and 'Integer'

а второй вариант указывает на строчку:
 

reg.RootKey := HKEY_LOCAL_MACHINE;

и выдаёт ошибку 
 

[dcc32 Error] reger.pas(37): E2003 Undeclared identifier: 'HKEY_LOCAL_MACHINE'
[dcc32 Fatal Error] Regerregistrori.dpr(6): F2063 Could not compile used unit 'reger.pas'

 

[GASCHE]

3 часа назад, vitalik сказал:

вво втором Варианте  указывает на строчку

Win.ReadString('windows','run', 0);

выдает ошибку

[dcc32 Error] reger.pas(35): E2010 Incompatible types: 'string' and 'Integer'

а второй вариант указывает на строчку:
 

reg.RootKey := HKEY_LOCAL_MACHINE;

и выдаёт ошибку 
 

[dcc32 Error] reger.pas(37): E2003 Undeclared identifier: 'HKEY_LOCAL_MACHINE'
[dcc32 Fatal Error] Regerregistrori.dpr(6): F2063 Could not compile used unit 'reger.pas'

 

А что не так?

Смотрим определение функции

    function ReadString(const Section, Ident, Default: string): string; override;
 

Смотрим где определяется константа HKEY_LOCAL_MACHINE, она определена в файле Winapi.Windows.

 

[vitalik]

Спасибо