/>
Перевірка пароля
unit WwodParol ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TButton ;: TEdit ;: TLabel ;: TButton; FormCreate (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject);
{Private declarations}
{Public declarations} ;: TParol;, res1, s, s_: string;, j, res: integer;: tsearchrec;, fill, realF, f: textfile; Osn, Nastr;
{$ R * .dfm} TParol.FormCreate (Sender: TObject);:=FindFirst (extractfilepath (paramstr (0)) + p.001 , faanyfile, sr); res= 0 do_:=sr.name;:=findnext(sr);;(sr);(f,extractfilepath(paramstr(0))+laquo;p.001raquo;);(f);(f,s);(f);;TParol.Button1Click(Sender: TObject); s=Edit1.Text then.Show ;;. MessageBox ( Невірний пароль! Raquo;, Помилка , mb_OK) ;;; TParol.Button2Click (Sender: TObject) ;. Close ;; TParol.FormShow (Sender: TObject);:=FindFirst (extractfilepath (paramstr (0)) + p.001 , faanyfile, sr); res=0 do_:=sr.name;:=findnext(sr);;(sr);(f,extractfilepath(paramstr(0))+laquo;p.001raquo;);(f);(f,s);(f);;..html
lt;! DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN # justify gt; lt; html xmlns= # justify gt; lt; head gt;
lt; meta http-equiv= Content-Type content= text/html; charset=windows - 1251 / gt;
lt; title gt; Документ Без Імені lt;/title gt;
lt; style type= text/css gt;
lt;! -
. стіль16 {color: # 0000FF; size: 14px; weight: bold;
}
. стіль24 {font-size: 14px; color: # 0000FF; }
. стіль26 {font-weight: bold; font-size: 14px;}
. стіль27 {font-size: 14px}
. стіль28 {color: # 0000FF}
. стіль29 {color: # 0000FF; font-size: 14px; font-weight: bold; }
. style4 {color: # 000000;
}
- gt;
lt;/style gt;
lt;/head gt;
lt; body gt;
lt; p gt; lt; img src= перв.jpeg width= 150 height= 103 / gt; lt;/p gt;
lt; p gt; lt; cite gt; lt; a href= Vvedenie.html target=laquo;mainFrameraquo;gt;lt;ugt;amp;#1042;amp;#1074;amp;#1077;amp;#1076;amp;#1077;amp;#1085;amp;#1080;amp;#1077;lt;/ugt;lt;/agt;lt;/citegt;lt;/pgt;
lt; p gt; lt; cite gt; lt; u gt; lt; a href= 11.html target=laquo;mainFrameraquo;gt;amp;#1043;amp;#1083;amp;#1072;amp;#1074;amp;#1072;amp;nbsp;1.amp;nbsp;amp;#1054;amp;#1073;amp;#1097;amp;#1072;amp;#1103;amp;nbsp;amp;#1093;amp;#1072;amp;#1088;amp;#1072;amp;#1082;amp;#1090;amp;#1077;amp;#1088;amp;#1080;amp;#1089;amp;#1090;amp;#1080;amp;#1082;amp;#1072; amp; # 1040; amp; # тисячі сорок-вісім; amp; # 1057; lt;/a gt; lt;/u gt; lt;/cite gt; lt;/p gt;
lt; p gt; lt; cite gt; lt; u gt; lt; a href= 11.html target=laquo;mainFrameraquo;gt;1.1.amp;nbsp;amp;#1040;amp;#1048;amp;#1057;:amp;nbsp;amp;#1086;amp;#1089;amp;#1085;amp;#1086;amp;#1074;amp;#1085;amp;#1099;amp;#1077;amp;nbsp;amp;#1087;amp;#1086;amp;#1085;amp;#1103;amp;#1090;amp;#1080;amp;#1103;amp;nbsp;amp;#1080;amp;nbsp;lt;/agt;lt;/ugt;lt;/citegt;lt;citegt;lt;ugt;lt;a href= 11.html target=laquo;mainFrameraquo;gt;amp;#1086;amp;#1087;amp;#1088;amp;#1077;amp;#1076;amp;#1077;amp;#1083;amp;#1077;amp;#1085;amp;#1080;amp;#1103;lt;/agt;lt;/ugt;lt;/citegt;lt;/pgt;
lt; p gt; lt; cite gt; lt; u gt; lt; a href= 12.html target=laquo;mainFrameraquo;gt;1.2.amp;nbsp;amp;#1048;amp;#1085;amp;#1092;amp;#1086;amp;#1088;amp;#1084;amp;#1072;amp;#1094;amp;#1080;amp;#1086;amp;#1085;amp;#1085;amp;#1099;amp;#1077; amp;#1087;amp;#1086;amp;#1090;amp;#1086;amp;#1082;amp;#1080;amp;nbsp;amp;#1080;amp;nbsp;lt;/agt;lt;/ugt;lt;/citegt;lt;citegt;lt;ugt;lt;a href= 12.html target=laquo;mainFrameraquo;gt;amp;#1085;amp;#1077;amp;#1086;amp;#1073;amp;#1093;amp;#1086;amp;#1076;amp;#1080;amp;#1084;amp;#1086;amp;#1089;amp;#1090;amp;#1100;amp;nbsp;amp;#1080;amp;#1093;amp;nbsp;amp;#1072;amp;#1074;amp;#1090;amp;#1086;amp;#1084;amp;#1072;amp;#1090;amp;#1080;amp;#1079;amp;#1072;amp;#1094;amp;#1080;lt;/agt;lt;/ugt;lt;/citegt;lt;/pgt;
lt; p gt; lt; span gt;
lt; p gt; lt; cite gt; lt; u gt; lt; a href= 131.html target= mainFrame gt; 1.3.1. amp; # тисячу п'ятьдесят сім; amp; # 1 086; amp; # тисячу вісімдесят-дев'ять; amp; # 1090; amp; # тисячі сімдесят дві; amp; # +1074; amp; # 1040; amp; # тисячі сорок-вісім; amp; # 1057; lt;/a gt; lt;/u gt; lt;/cite gt; lt;/p gt;
