vitalik

В принципе работает. Но почему-то не показывает, не производителя не серийный номер.

Как получить модель и серийный номер монитора(firemonkey)? Нашел класс WmiMonitorID и GetMonitorDetails и тип Dword но не пойму как приладить так чтобы выдавали данные о по по которым можно будет идентифицировать монитор но не пойму как приладить так чтобы выдавали данные о по по которым можно будет идентифицировать монитор

Спасибо

вво втором Варианте указывает на строчку 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'

Добрый день! Создаю программу (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.