Новые книги

• The only project book on the PIC 18 series using the C programming language

• Features 20 complete, tried and test projects

• Includes a CD-ROM of all the programs, hex listings, diagrams, and data sheets
Подумайте, сколько ценной информации хранится на вашем компьютере – начиная с достаточно безобидных сведений о вас и вашей работе и заканчивая действительно конфиденциальными данными (пароли к кредитным картам, финансовые документы, личная переписка и т. д.). А теперь представьте, что ваш компьютер взломали и вся зга информация стала доступна посторонним людям. Или злобный вирус уничтожил половину содержимого жесткого диска, и вы потеряли готовый проект, который необходимо сдавать через два дня. Представили? Понравилось?

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

Именно для тех, кто желает защитить свой компьютер и себя от неприятных сюрпризов, и написана эта книга. С ее помощью вы научитесь защищаться от вирусов и прочих вредоносных программ, распознавать и отражать хакерские атаки, уловки интернет-мошенников, контролировать доступ к тем ресурсам, которые не должен посещать ваш ребенок.

Вопрос и Ответ 58



Вопросы и Ответы


      58. Как заставить перерисоваться весь экран?

      Добиться обновления содержимого всего экрана можно различными способами, но наверное, самый правильный - это воспользоваться функцией RepaintScreen из библиотеки USER.

      procedure RepaintScreen; external 'USER' index 275;

      Данная функция не требут передачи каких-либо параметров - она просто заставляет обновить содержимое всех окон и видимую область рабочего стола.

      Пример:

      unit Unit1;

      interface

      uses

        SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;


    • type

        TForm1 = class(TForm)

          Button1: TButton;
          procedure Button1Click(Sender: TObject);
          private
          { Private declarations }
          public
          { Public declarations }

        end;

      var

        Form1: TForm1;

      procedure RepaintScreen;

      implementation

      {$R *.DFM}

      procedure RepaintScreen; external 'USER' index 275;

      procedure TForm1.Button1Click(Sender: TObject);
      begin

        RepaintScreen;

      end;

      end.


...предыдущая страница следующая...
оглавление



"Вопрос и Ответ 58"
Copyright © "В помощь Веб-Мастеру" (Alexander D. Belyaev) 2005-2024 .
При перепечатке любого материала видимая ссылка на источник "В помощь Веб-Мастеру" и все имена, ссылки авторов обязательны!
Время генерации страницы: 0.007