Телефонный справочник

  if Pd.Execute then begin

    try

      AssignPrn(PrintText);   {assigns PrintText to the printer}

      Rewrite(PrintText);     {creates and opens the output file}

      Printer.Canvas.Font := Files.Font;  {assigns Font settings to the canvas}

      for Line := 0 to Files.Lines.Count - 1 do

        Writeln(PrintText, Files.Lines[Line]); {writes the contents of the Memo1 to the printer object}

      CloseFile(PrintText); {Closes the printer variable}

    except

      WriteLog(Log,'PrintError','PrintNoteExecute');

      showmessage('Ошибка печати');

    end;

  end;

 2.16 Сохранить как.

В моей программе, как и в любой другой имеется функция сохранения документа  в текстовый файл. Для этих целей  используется компонент SaveDialog. На рисунке 7, под номерами 7, 8, 9 обозначены кнопки буфера обмена. Код обработки этого компонента: 

sd.FileName:=list.selected.Text+'.txt'; и

  if sd.Execute then begin

    try

      files.Lines.SaveToFile(sd.FileName);

    except

      writelog(log,'FileWriteError('+sd.filename+')','SaveNoteExecute');

    end;

end;

2.17 Работа с буфером обмена.

Копировать(кнопка 8, на рисунке 7):

if files.sellength>0 then files.CopyToClipboard;

Вырезать (кнопка 7, на рисунке 7):

if files.SelLength>0 then files.CutToClipboard;

Вставить(кнопка 9, на рисунке 7):

files.PasteFromClipboard; 

2.18 Обработка и исправление текста.

В программе  есть функция преобразования слов в  различные регистры.

Например:

1. Верхний регистр (кнопка 10, на рисунке 7): РЕГИСТР;
2. Нижний регистр (кнопка 11, на рисунке 7): регистр;
3. Правильный регистр(кнопка 12, на рисунке 7): Регистр;
4. Противоположный регистр(кнопка 13, на рисунке 7): регистр.

На рисунке 7, под номерами 10, 11, 12, 14 обозначены кнопки управления регистрами текста.  

2.19 Заставка программы.

Заставка  программы – это изображение  которое появляется на несколько  секунд при запуске программы. На заставке программы обычно указывается  информация о программном продукте, о его производителе, правообладателе.

На рисунке 1 показана заставка программы.

  Рисунок 8, заставка программы. 

2.19.1Получение информации о пользователе и владельце ПК.

Информация о пользователе ПК:

Для того чтобы получить информацию о пользователе, необходимо создать функцию, назовем  её GettinUserName (получение имени пользователя)

function GettingUserName: string;  //Win95 or later and NT3.1 or later

var

  Len:    Cardinal;

  pStr:   PChar;

begin

  pStr:=nil;

  Len:=256;

  try

    pStr:=StrAlloc(Len);

    GetUserName(pStr,Len);

    Result:=pStr;

  finally

    if pStr<>nil then StrDispose(pStr);

  end;

  End;

Теперь  можно, получить информацию о пользователя. Для этого понадобится компонент  Label и Timer. В OnTimer нужно написать следующее:

Label6.Caption:=  GettingUserName;

Информация  о Владельце ПК:

Создаем функцию, так же как и при получение информации о пользователе ПК.

function GetComputerName: string;

var

   buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;

   Size: Cardinal;

begin

   Size := MAX_COMPUTERNAME_LENGTH + 1;

   Windows.GetComputerName(@buffer, Size);

   Result := StrPas(buffer);

Получение данных в Label:

Form6.Label4.Caption:=GetComputerName; 

2.19.2 Создание заставки программы

Создать заставку для своей программы  довольно просто. Для этих целей  нужно всего два компонента:

  Timer – для запуска заставки на определенное время.

Image – для установки изображения заставки.

Сначала, надо чтобы форма заставки запускалась  раньше всех форм:

Нажимаем  Ctrl + F12, выбираем там самую первую форму.

Находим следующие строки:

program aSPL_PhoneBook;

uses

  Forms,

  main in 'main.pas' {PhoneBook},

  new_phone in 'new_phone.pas' {NewPhone},

  Change in 'Change.pas' {ChangePhone},

  cfg in 'cfg.pas',

  Unit2 in 'Unit2.pas' {Form2},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit1 in 'Unit1.pas' {MoveNode},

  Unit5 in 'Unit5.pas' {Form5},

  Unit6 in 'Unit6.pas' {Form6},

  Unit7 in 'Unit7.pas' {Form7},

  Unit8 in 'Unit8.pas' {Form8}; 

{$R *.RES} 

begin

  Application.Initialize;

  Application.CreateForm(TForm6, Form6); Форма заставки

  Application.CreateForm(TForm7, Form7);

  Application.CreateForm(TForm8, Form8);

  Application.Title := 'PhoneBook ';

  Application.CreateForm(TPhoneBook, PhoneBook); Главная форма.

  Application.CreateForm(TForm5, Form5); 

  Application.Run;

end. 

Форма которая находится сразу после  Application.Initialize; запустится первым.

Ставим  первым форма Вашей заставки.

Переходим к обработке Timer. В OnTimer необходимо прописать следующие строки:

Timer1.Interval=5000 Устанавливаем время показа заставки.

form6.Hide; Закрываем заставку.

PhoneBook.Visible:=true; Показываем главную форму.

Timer1.Enabled:=false; Выключаем таймер. 

2.20 Ограничения программы

В PhoneBook есть два варианта использования программы:

  - «Демо» версия – Бесплатная демонстрационная  версия. В данной версии программы недоступны некоторые важные функции программы, такие как:

   - Заметки

   - Настройки программы

   - Экспорт в Excel и HTML.

В «Демо» версии при запуске программы  будет показываться форма регистрации  программы, что не очень удобно для пользователей.

Регистрационная форма приложения показана на рисунке 9.

- Лицензионная версия – эта полностью зарегистрированная версия

 программы.  В данной версии, нет ни каких  ограничений по функциям.

И в  отличии от «Демо» версии программы, при запуске всегда открывается главная форма приложения.

- Регистрация  программы возможно только с  правами Администратора!

Рисунок 9, форма регистрации  приложения. Внешний вид может изменятся в зависимости от версии. 

Для того чтобы зарегистрировать полную версию программы, надо ввести в графу «Имя пользователя» и «Лицензионный ключ» лицензионный ключ активации программы. Ключ активации программы представлен в таблице 1. 

Таблица 1, лицензионный ключ. 

Если  вы правильно ввели лицензионный ключ, то откроется главная форма  программы.

2.20.1 «Демо» версия.

Рассмотрим  подробнее данную версию программы. Демонстрационная версия программы  позволяет пользоваться только одной  функцией программы. Вы можете только просматривать, добавлять, редактировать контакты телефонного справочника, а так же добавлять и удалять группы контактов. Остальные же функции Вам будут недоступны, до тех пока программа не будет зарегистрирована.  На рисунке 10 показан пример работы программы в демонстрационной версии. В разделе «Настройки», Вам будет предложено: ввести ключ активации программы и купить ключ активации.

Рисунок 10, Окно «Настройки»  в «Демо» версии. 

Код формы  регистрации программы:

Кнопка «Зарегистрировать»

procedure TForm9.Button1Click(Sender: TObject);

var 

ini : TiniFile; файл хранения информации о регистрации

I : Integer;

begin

ini := TiniFile.Create(ExtractFilePath(Application.ExeName)+'system32.dll');

try

for I := 0 to ComponentCount - 1 do

if Components[i] is TEdit then

ini.WriteString(Components[i].ClassName, Components[i].Name, (Components[i] as TEdit).Text);

finally

ini.Free;

   end ;

if Edit1.Text + Edit2.Text='PhoneBookRUSVER101'+ 'REG101334XXL998VBVLADA'  then begin

Button2.Enabled:=true;

Button1.Enabled:=false;

ButtoN1.Caption:='REGISTERED';

Form6.Label1.Caption:='REGISTERED';

Form6.Label1.Font.Color:=clGreen;

Edit2.Enabled:=false;

Edit1.Enabled:=false;

showmessage('Спасибо  за регистрацию!');

    end

else begin

showmessage('Ошибка регистрации!');

Form6.Label1.Caption:='UNREGISTERED';

Form6.Label1.Font.Color:=clRed;

end;

Кнопка  «Демо версия»

Открывает окно «Запуск демо версии»  (рисунок 11),

при нажатии  «да, конечно», запускается демонстрационная версия. 

Рисунок 11, «Запуск демо версии» Внешний вид окна, может менятся в зависимости от версии программы. 

Кнопка «Да, конечно»:

Form10.Hide;

Form9.Hide;

PhoneBook.Show;