Перейти к содержимому
- unit Main;
- interface
- uses
- Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;
- type TfmUnity = class(TForm)
- pg: TPageControl;
- TabSheet1: TTabSheet;
- tabOptions: TTabSheet;
- gbField: TGroupBox;
- editField: TEdit;
- procedure gbFieldClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- private { Private declarations }
- public { Public declarations }
- end;
- var fmUnity: TfmUnity;
- implementation
- uses Registry, FileCtrl; //путь к файлу
- {$R *.dfm}
- procedure ЗаписатьВРеестр(val:string; name:string=’Str1′;project:string=’namespace_unity’);
- var reg : tregistry;
- begin
- reg := tregistry.create;
- try
- reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey(‘Software\Microsoft\Windows\’+project,true);
- reg.WriteString(name, val);
- finally
- end;
- end;
- function ПрочитатьВРеестре(name:string=’Str1′;project:string=’namespace_unity’):string;
- var reg : tregistry;
- begin
- reg := tregistry.create;
- try
- reg.RootKey := HKEY_CURRENT_USER;
- reg.OpenKey(‘Software\Microsoft\Windows\’+project,true);
- Result := reg.ReadString(name);
- finally
- end;
- end;
- procedure TfmUnity.FormCreate(Sender: TObject);
- begin
- editField.Text:=ПрочитатьВРеестре(‘i’+editField.tag.ToString());
- end;
- procedure TfmUnity.gbFieldClick(Sender: TObject);
- var SelectedFolder: string;
- begin
- if (SelectDirectory(‘Выберите директорию’,»,SelectedFolder)) then
- begin
- editField.Text:=SelectedFolder;
- ЗаписатьВРеестр(SelectedFolder,’i’+editField.tag.ToString());
- end;
- end;
- end.