unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, IniFiles, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    pgc1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    ts3: TTabSheet;
    ts4: TTabSheet;
    ts5: TTabSheet;
    ts6: TTabSheet;
    img1: TImage;
    img2: TImage;
    img3: TImage;
    img4: TImage;
    img5: TImage;
    img6: TImage;
    img7: TImage;
    img8: TImage;
    img9: TImage;
    img10: TImage;
    img11: TImage;
    img12: TImage;
    img13: TImage;
    img14: TImage;
    img15: TImage;
    img16: TImage;
    img17: TImage;
    img18: TImage;
    img19: TImage;
    img20: TImage;
    img21: TImage;
    img22: TImage;
    img23: TImage;
    img24: TImage;
    img25: TImage;
    img26: TImage;
    img27: TImage;
    img28: TImage;
    img29: TImage;
    img30: TImage;
    img31: TImage;
    img32: TImage;
    img33: TImage;
    img34: TImage;
    img35: TImage;
    img36: TImage;
    img37: TImage;
    img38: TImage;
    img39: TImage;
    img40: TImage;
    img41: TImage;
    img42: TImage;
    img43: TImage;
    img44: TImage;
    img45: TImage;
    img46: TImage;
    img47: TImage;
    img48: TImage;
    img49: TImage;
    img50: TImage;
    img51: TImage;
    img52: TImage;
    img53: TImage;
    img54: TImage;
    img55: TImage;
    img56: TImage;
    img57: TImage;
    img58: TImage;
    img59: TImage;
    img60: TImage;
    img61: TImage;
    img62: TImage;
    img63: TImage;
    img64: TImage;
    img65: TImage;
    img66: TImage;
    img67: TImage;
    img68: TImage;
    img69: TImage;
    img70: TImage;
    img71: TImage;
    img72: TImage;
    img73: TImage;
    img74: TImage;
    img75: TImage;
    img76: TImage;
    img77: TImage;
    img78: TImage;
    img79: TImage;
    img80: TImage;
    img81: TImage;
    img82: TImage;
    img83: TImage;
    img84: TImage;
    img85: TImage;
    img86: TImage;
    img87: TImage;
    img88: TImage;
    img89: TImage;
    img90: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Click(Sender: TObject);
    procedure img90Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Color:=clBlue;
  ts1.Brush.Color:=clAqua;
  ts2.Brush.Color:=clYellow;
  ts3.Brush.Color:=clLime;
  ts4.Brush.Color:=clSkyBlue;
  ts5.Brush.Color:=clOlive;
  ts6.Brush.Color:=clTeal;
  SetWindowPos(Form1.Handle, HWND_TOPMOST, 541, -30, 613, 96, SWP_NOSIZE);
end;

procedure TForm1.Click(Sender: TObject);
var myIni: TIniFile;
mynume, myrasp: string;
 begin
     myIni:=TIniFile.Create(ExtractFilePath(Application.EXEName) + 'Salvare.ini');
     try
     mynume:=(Sender as TImage).Name ;
     myrasp:=myIni.ReadString('Default', mynume, '');
     ShellExecute(Handle, nil, PChar(myrasp), nil, nil, SW_SHOW);
     finally
     myini.free;
     end;
end;

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

procedure TForm1.FormActivate(Sender: TObject);
begin
  Application.HintColor := clAqua;
  Application.HintPause := 100;    
  Application.HintHidePause := 4000;
  Screen.hintfont.style:=[fsbold];
  end;



procedure TForm1.FormShow(Sender: TObject);
var icolist: TStringList;
begin
  icolist:=TStringList.Create;
  try
  icolist.LoadFromFile(ExtractFilePath(Application.ExeName) +'icofile.sav');
  img1.Picture.LoadFromFile(icolist.Strings[0]);
  img1.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[0]),'');
  img2.Picture.LoadFromFile(icolist.Strings[1]);
  img2.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[1]),'');
  img3.Picture.LoadFromFile(icolist.Strings[2]);
  img3.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[2]),'');
  img4.Picture.LoadFromFile(icolist.Strings[3]);
  img4.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[3]),'');
  img5.Picture.LoadFromFile(icolist.Strings[4]);
  img5.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[4]),'');
  img6.Picture.LoadFromFile(icolist.Strings[5]);
  img6.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[5]),'');
  img7.Picture.LoadFromFile(icolist.Strings[6]);
  img7.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[6]),'');
  img8.Picture.LoadFromFile(icolist.Strings[7]);
  img8.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[7]),'');
  img9.Picture.LoadFromFile(icolist.Strings[8]);
  img9.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[8]),'');
  img10.Picture.LoadFromFile(icolist.Strings[9]);
  img10.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[9]),'');
  img11.Picture.LoadFromFile(icolist.Strings[10]);
  img11.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[10]),'');
  img12.Picture.LoadFromFile(icolist.Strings[11]);
  img12.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[11]),'');
  img13.Picture.LoadFromFile(icolist.Strings[12]);
  img13.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[12]),'');
  img14.Picture.LoadFromFile(icolist.Strings[13]);
  img14.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[13]),'');
  img15.Picture.LoadFromFile(icolist.Strings[14]);
  img15.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[14]),'');
  img16.Picture.LoadFromFile(icolist.Strings[15]);
  img16.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[15]),'');
  img17.Picture.LoadFromFile(icolist.Strings[16]);
  img17.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[16]),'');
  img18.Picture.LoadFromFile(icolist.Strings[17]);
  img18.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[17]),'');
  img19.Picture.LoadFromFile(icolist.Strings[18]);
  img19.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[18]),'');
  img20.Picture.LoadFromFile(icolist.Strings[19]);
  img20.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[19]),'');
  img21.Picture.LoadFromFile(icolist.Strings[20]);
  img21.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[20]),'');
  img22.Picture.LoadFromFile(icolist.Strings[21]);
  img22.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[21]),'');
  img23.Picture.LoadFromFile(icolist.Strings[22]);
  img23.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[22]),'');
  img24.Picture.LoadFromFile(icolist.Strings[23]);
  img24.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[23]),'');
  img25.Picture.LoadFromFile(icolist.Strings[24]);
  img25.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[24]),'');
  img26.Picture.LoadFromFile(icolist.Strings[25]);
  img26.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[25]),'');
  img27.Picture.LoadFromFile(icolist.Strings[26]);
  img27.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[26]),'');
  img28.Picture.LoadFromFile(icolist.Strings[27]);
  img28.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[27]),'');
  img29.Picture.LoadFromFile(icolist.Strings[28]);
  img29.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[28]),'');
  img30.Picture.LoadFromFile(icolist.Strings[29]);
  img30.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[29]),'');
  img31.Picture.LoadFromFile(icolist.Strings[30]);
  img31.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[30]),'');
  img32.Picture.LoadFromFile(icolist.Strings[31]);
  img32.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[31]),'');
  img33.Picture.LoadFromFile(icolist.Strings[32]);
  img33.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[32]),'');
  img34.Picture.LoadFromFile(icolist.Strings[33]);
  img34.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[33]),'');
  img35.Picture.LoadFromFile(icolist.Strings[34]);
  img35.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[34]),'');
  img36.Picture.LoadFromFile(icolist.Strings[35]);
  img36.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[35]),'');
  img37.Picture.LoadFromFile(icolist.Strings[36]);
  img37.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[36]),'');
  img38.Picture.LoadFromFile(icolist.Strings[37]);
  img38.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[37]),'');
  img39.Picture.LoadFromFile(icolist.Strings[38]);
  img39.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[38]),'');
  img40.Picture.LoadFromFile(icolist.Strings[39]);
  img40.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[39]),'');
  img41.Picture.LoadFromFile(icolist.Strings[40]);
  img41.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[40]),'');
  img42.Picture.LoadFromFile(icolist.Strings[41]);
  img42.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[41]),'');
  img43.Picture.LoadFromFile(icolist.Strings[42]);
  img43.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[42]),'');
  img44.Picture.LoadFromFile(icolist.Strings[43]);
  img44.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[43]),'');
  img45.Picture.LoadFromFile(icolist.Strings[44]);
  img45.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[44]),'');
  img46.Picture.LoadFromFile(icolist.Strings[45]);
  img46.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[45]),'');
  img47.Picture.LoadFromFile(icolist.Strings[46]);
  img47.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[46]),'');
  img48.Picture.LoadFromFile(icolist.Strings[47]);
  img48.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[47]),'');
  img49.Picture.LoadFromFile(icolist.Strings[48]);
  img49.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[48]),'');
  img50.Picture.LoadFromFile(icolist.Strings[49]);
  img50.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[49]),'');
  img51.Picture.LoadFromFile(icolist.Strings[50]);
  img51.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[50]),'');
  img52.Picture.LoadFromFile(icolist.Strings[51]);
  img52.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[51]),'');
  img53.Picture.LoadFromFile(icolist.Strings[52]);
  img53.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[52]),'');
  img54.Picture.LoadFromFile(icolist.Strings[53]);
  img54.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[53]),'');
  img55.Picture.LoadFromFile(icolist.Strings[54]);
  img55.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[54]),'');
  img56.Picture.LoadFromFile(icolist.Strings[55]);
  img56.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[55]),'');
  img57.Picture.LoadFromFile(icolist.Strings[56]);
  img57.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[56]),'');
  img58.Picture.LoadFromFile(icolist.Strings[57]);
  img58.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[57]),'');
  img59.Picture.LoadFromFile(icolist.Strings[58]);
  img59.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[58]),'');
  img60.Picture.LoadFromFile(icolist.Strings[59]);
  img60.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[59]),'');
  img61.Picture.LoadFromFile(icolist.Strings[60]);
  img61.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[60]),'');
  img62.Picture.LoadFromFile(icolist.Strings[61]);
  img62.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[61]),'');
  img63.Picture.LoadFromFile(icolist.Strings[62]);
  img63.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[62]),'');
  img64.Picture.LoadFromFile(icolist.Strings[63]);
  img64.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[63]),'');
  img65.Picture.LoadFromFile(icolist.Strings[64]);
  img65.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[64]),'');
  img66.Picture.LoadFromFile(icolist.Strings[65]);
  img66.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[65]),'');
  img67.Picture.LoadFromFile(icolist.Strings[66]);
  img67.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[66]),'');
  img68.Picture.LoadFromFile(icolist.Strings[67]);
  img68.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[67]),'');
  img69.Picture.LoadFromFile(icolist.Strings[68]);
  img69.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[68]),'');
  img70.Picture.LoadFromFile(icolist.Strings[69]);
  img70.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[69]),'');
  img71.Picture.LoadFromFile(icolist.Strings[70]);
  img71.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[70]),'');
  img72.Picture.LoadFromFile(icolist.Strings[71]);
  img72.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[71]),'');
  img73.Picture.LoadFromFile(icolist.Strings[72]);
  img73.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[72]),'');
  img74.Picture.LoadFromFile(icolist.Strings[73]);
  img74.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[73]),'');
  img75.Picture.LoadFromFile(icolist.Strings[74]);
  img75.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[74]),'');
  img76.Picture.LoadFromFile(icolist.Strings[75]);
  img76.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[75]),'');
  img77.Picture.LoadFromFile(icolist.Strings[76]);
  img77.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[76]),'');
  img78.Picture.LoadFromFile(icolist.Strings[77]);
  img78.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[77]),'');
  img79.Picture.LoadFromFile(icolist.Strings[78]);
  img79.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[78]),'');
  img80.Picture.LoadFromFile(icolist.Strings[79]);
  img80.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[79]),'');
  img81.Picture.LoadFromFile(icolist.Strings[80]);
  img81.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[80]),'');
  img82.Picture.LoadFromFile(icolist.Strings[81]);
  img82.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[81]),'');
  img83.Picture.LoadFromFile(icolist.Strings[82]);
  img83.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[82]),'');
  img84.Picture.LoadFromFile(icolist.Strings[83]);
  img84.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[83]),'');
  img85.Picture.LoadFromFile(icolist.Strings[84]);
  img85.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[84]),'');
  img86.Picture.LoadFromFile(icolist.Strings[85]);
  img86.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[85]),'');
  img87.Picture.LoadFromFile(icolist.Strings[86]);
  img87.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[86]),'');
  img88.Picture.LoadFromFile(icolist.Strings[87]);
  img88.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[87]),'');
  img89.Picture.LoadFromFile(icolist.Strings[88]);
  img89.Hint:=ChangeFileExt(ExtractFileName(icolist.Strings[88]),'');
  finally
  icolist.Free;
  end;
end;

end.