ний продукт повинен працювати на будь-якому комп'ютері під управлінням операційної системи Windows 98 і вище.
Глава 2. Основний частини
Розробка робочого проекту
.1 Розробка програми
В В
Рисунок 3 - Головне вікно програми
На головній формі програми розташовуються: головне меню, поле вводу для введення імені файлу, що відкривається, кнопка "Відкрити" для вибору файлу, що відкривається через діалог відкриття файлів, кнопки В«ЗашифруватиВ» і В«Розшифрувати" для виклику процедури шифрування (дешифрування) відкритого файлу, два поля TMemo для виведення вихідного (відкривається) файлу та файлу призначення (файлу отриманого в результаті роботи процедури шифрування). У головному меню продубльовані всі основні дії, що викликаються кнопками на формі, і доданий пункт виклику вікна В«Про програмуВ». Так само на формі розташовуються: стандартний діалог відкриття файлів і компонент XP Manifest. br/>В
Рисунок 4 - Друга форма проекту В«Про програмуВ»
Друга форма програми В«About BoxВ» скопійована із стандартних форм середовища розробки. У ній розташована панель TPanel, на якій є елементи типу TLabel з текстом і TImage з малюнком логотипу програми. На формі так само є кнопка В«OKВ», в подію В«ButtonClickВ» якої доданий обробник закриття вікна В«Про програмуВ». Дане вікно показується модально, тобто його необхідно закрити для продовження роботи у головній формі програми. p align="justify"> Виконавчий файл програми називається Cesar.exe і для своєї роботи не вимагає ніяких додаткових файлів. Файли проекту розташованих у додатку Б.
.2 Текст програми
Модуль main.pas:
unit main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, Menus, About; = class (TForm) _open_file: TButton;: TOpenDialog;: TEdit; _Encript: TButton; _src: TMemo; _Decrypt: TButton; _dest: TMemo;: TStatusBar;: TLabel;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; Bt_open_fileClick (Sender: TObject); Bt_EncriptClick (Sender: TObject); Bt_DecryptClick (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); N3Click (Sender: TObject) ; N8Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm}
// Процедура шифрування і розшифровки файловen_de_crypt (e_d: char); _src, f_dest: textfile;: char;: byte;: boolean; _file_name: string; s: string [66] = fileexists (form1.Edit1.Text) then
ShowMessage ('Файл не вибраний або не існує')
else (f_src, form1.Edit1.Text); ...
