ey == - ) Key=0; (Key == laquo ; _ ) Key=0; (Key == + ) Key=0; (Key == =) Key=0; (Key == ? ) Key=0; (Key == : ) Key=0; (Key == , ) Key=0; (Key == ') Key=0; (Key == { ) Key=0; (Key == } ) Key=0; (Key == [) Key=0; (Key == ') Key=0; (Key == ] ) Key=0; (Key == | ) Key=0; (Key == /) Key=0; (Key == laquo ;; raquo ;) Key=0; (Key == " ) Key=0; (Key == ` ) Key=0;
} __ fastcall TForm2 :: Button7Click (TObject * Sender)
{(Application-gt;Handle,Llaquo;openraquo;,Llaquo;sprawkamraquo;,0,0,SW_SHOW);
}
# include lt; vcl.h gt;
# pragma hdrstop
# include Unit3.h
# include Unit2.h
# pragma package (smart_init)
# pragma resource *. dfm * Form3;
__ fastcall TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
} __ fastcall TForm3 :: CheckBox1Click (TObject * Sender)
{(Form3- gt; CheckBox1- gt; Checked == false)
{-gt;Edit1-gt;PasswordChar=laquo;*raquo;;-gt;Edit2-gt;PasswordChar=laquo;*raquo;;
}
{- gt; Edit1- gt; PasswordChar=NULL; - gt; Edit2- gt; PasswordChar=NULL;
}
} __ fastcall TForm3 :: Button1Click (TObject * Sender)
{* list=new TStringList; gt; LoadFromFile ( pass.data ); h=list [0] [0]; (Form3- gt; Edit1- gt; Text == h )
{gt;Clear();gt;Add(Form3-gt;Edit2-gt;Text);gt;SaveToFile(laquo;pass.dataraquo;);(laquo;Пароль змінений );
Form3- gt; Close ();
}
{( Чинний пароль не вірний ) ;;
}
}
