unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, INIFiles, Clipbrd, ShellAPI, StdCtrls, ExtCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    btn3: TButton;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    btn5: TButton;
    dlgOpen1: TOpenDialog;
    cbb1: TComboBox;
    lbl1: TLabel;
    lbl6: TLabel;
    btn2: TButton;
    lbl4: TLabel;
    btn6: TButton;
    lbl8: TLabel;
    cbb2: TComboBox;
    img1: TImage;
    dlgOpenPic1: TOpenPictureDialog;
    img2: TImage;
    procedure MyPoze(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure cbb1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure cbb2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyPoze(Sender: TObject);
var myini: TINIFile;
begin
  myini:= TIniFile.Create(ExtractFilePath(Application.EXEName) + 'Salvare.ini');
  try
     myini.ReadSection('Default', cbb1.Items);
  finally
     myini.Free;
  end;
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.cbb1Click(Sender: TObject);
var myini: TIniFile;
 poza:string;
begin
  myini:=TIniFile.Create(ExtractFilePath(Application.EXEName) + 'Salvare.ini');
  try
     poza:=cbb1.Text;
     edt1.Text:=myini.readString('Default', poza , '');
  finally
     myini.Free;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute then
   edt1.Text:=dlgOpen1.FileName;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
  myini: TINIFile;
begin
   Clipboard.AsText:=edt1.Text;
   myini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Salvare.ini');
   try
     myini.WriteString('Default', cbb1.Text, edt1.text);
   finally
     myini.Free;
   end;
  end;

procedure TForm1.btn2Click(Sender: TObject);
begin
 if dlgOpenPic1.Execute then
  edt2.Text:=dlgOpenPic1.FileName;
  img2.Picture.LoadFromFile(dlgOpenPic1.FileName);
end;

procedure TForm1.btn6Click(Sender: TObject);
var
  F: TStringList;
 i: Integer;
begin
   i:=cbb2.ItemIndex;
   Clipboard.AsText:=edt2.Text;
   F:=TStringList.Create;
  try
     F.LoadFromFile(ExtractFilePath(Application.ExeName) + 'icofile.sav');
     F.Strings[i]:=edt2.Text;
     ShowMessage(F.Strings[i]);
  finally
     F.Free;
   end;
end;

procedure TForm1.cbb2Click(Sender: TObject);
var icolist: TStringList;
i:Integer;
begin
  i:=cbb2.ItemIndex;
  icolist:=TStringList.Create;
  try
    icolist.LoadFromFile(ExtractFilePath(Application.ExeName) +'icofile.sav');
    edt2.Text:=icolist[i];
    img1.Picture.Icon.LoadFromFile(icolist[i]);
  finally
     icolist.Free;
  end;
end;

end.