Высокоуровневые методы информатики и программирования. Сивохин А.В - 74 стр.

UptoLike

51
файл формата *.rtf преобразовывается в файл *.hlp. Вызов справочного файла
*.hlp осуществляется следующим образом:
Application.HelpFile:=’OrlovNotebook.hlp’;
Application.HelpCommand(0).
Вызов справочного файла в формате *.doc реализуется следующими обра-
ботчиками:
AppPath: String; // — глобальная переменная;
…………………………………………………………………
procedure TOrlovMainForm.FormActivate(Sender: TObject);
begin
OrlovMainForm.OnActivate:= nil;
AppPath:= ExtractFilePath(Application.ExeName);
end;
procedure TOrlovMainForm.miOrlovZapFormClick(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open', PChar(AppPath+'PZ.doc'), nil, nil,
SW_SHOWNORMAL);
end;
Заключение
Современные информационные технологии и наличие в достаточном
количестве аппаратных средствлокальных вычислительных сетей, компьютеров,
сканеров
и печатающих устройств как в университете, так и в личном пользовании
позволили реализовать курсовой проект в полном объеме в соответствии с
техническим заданием. В итоге разработана полномасштабное приложение Delphi,
включающее свыше десяти модулей и имеющее хорошо структурированную
архитектуру и удобный пользовательский интерфейс, а также полномасштабную
справочную систему по проектной документации.
Приложение будет
использовано в учебном процессе по базам данных и
сетевым технологиям.
      файл формата *.rtf преобразовывается в файл *.hlp. Вызов справочного файла
*.hlp осуществляется следующим образом:
      Application.HelpFile:=’OrlovNotebook.hlp’;
      Application.HelpCommand(0).
      Вызов справочного файла в формате *.doc реализуется следующими обра-
ботчиками:


      AppPath: String; // — глобальная переменная;
      …………………………………………………………………
      procedure TOrlovMainForm.FormActivate(Sender: TObject);
      begin
       OrlovMainForm.OnActivate:= nil;
       AppPath:= ExtractFilePath(Application.ExeName);
      end;


      procedure TOrlovMainForm.miOrlovZapFormClick(Sender: TObject);
      begin
       ShellExecute(Application.Handle, 'open', PChar(AppPath+'PZ.doc'), nil, nil,
                                                            SW_SHOWNORMAL);
      end;
                                       Заключение

     Современные    информационные       технологии     и   наличие    в   достаточном
количестве аппаратных средств – локальных вычислительных сетей, компьютеров,
сканеров и печатающих устройств как в университете, так и в личном пользовании
позволили реализовать курсовой проект в полном объеме в соответствии с
техническим заданием. В итоге разработана полномасштабное приложение Delphi,
включающее свыше десяти модулей и имеющее хорошо структурированную
архитектуру и удобный пользовательский интерфейс, а также полномасштабную
справочную систему по проектной документации.
     Приложение будет использовано в учебном процессе по базам данных и
сетевым технологиям.

51