Главная
Регистрация
Вход
Четверг
23.11.2017
12:15
Приветствую Вас, Гость | RSS

Меню сайта

Категории раздела
Программы с GUI [8]
Создание программ с графическим интерфейсом пользователя

Форма входа


Наш опрос
Как вам новый дизайн сайта?
Всего ответов: 399

Пользователи

Онлайн всего: 1
Гостей: 1
Пользователей: 0

 Каталог статей 
Главная » Статьи » C++ Builder 6 - GUI » Программы с GUI

PDA-версия страницы

Программа - розыгрыш (имитация форматирования жесткого диска)

Создание программы-прикола.

Наверняка вам когда-нибудь хотелось разыграть своего знакомого/соседа/приятеля.
Так как на дворе 21 первый век, то розыгрыш мы сделаем на компьютере. Подобные программы
можно найти в сети, но сделать самому всегда приятнее. Итак, начнем!

Запускаем C++ Builder. Я буду делать это в шестой версии, все это применимо и к другим.
Начнем с размещения компонентов на форме. Вот как я их расположил:



Обратите внимание - RadioGroup размещена по ошибке. Вместо неё нужно использовать GroupBox. Но в данном случае это не существенно. Так что можно оставить RadioGroup.

Какие именно, понятно из картинки. Самый нижний - это компонент CGauge с вкладки Samples.
Теперь я сделаю подписи. Вот так:





Кроме того я изменил размеры компонентов. Это вы сделаете самостоятельно, на свой вкус.
Как вы заметили, у Label5 я стер значение Caption, и поменял цвет(чтобы не слился с фоном).
Для чего это - поймете в дальнейшем. Привожу таблицу заполнения свойств компонентов.

Label    AutoSize       Caption                              Visible
1          false               Выберите жесткий диск      true
2          false               Файловая система              true
3          false               Размер кластера                true
4          false               Метка тома                        true
5          false                                                        true

Button  Caption              Enabled   
1           Форматировать   false
2           Выход                true

Edit  Text
1     Локальный диск

CheckBox     Enabled          Caption
1                   true                Быстрое (Очистка оглавления)
2                   false               Создание загрузочного диска MS-DOS

ComboBox  Text                                Items                                         Style
1                                                                                                        csOwnerDrawFixed
2                 NTFS (По умолчанию)     NTFS (По умолчанию)                 по умолчанию
                                                        FAT 32
3                4096 байт                       Стандартный размер кластера     по умолчанию
                                                        512 байт
                                                        1024 байт
                                                        2048 байт
                                                        4096 байт
                                                        8192 байт
                                                        16 КБ
                                                        32 КБ
                                                        64 КБ
                              
Form  Color     BorderStyle    BorderIcons                                Position
1        clWhite   bsSingle           Все false кроме biSystemMenu       poDesktopCenter


Добавляем на форму два Timer и компонент ImageList.



Из свойства Enabled устанавливаем в false. Свойство Interval для первого ставим 400,
для второго 1.

Теперь пишем код.
В событие OnMouseMove кнопки Button2 два пишем:

 if(Button2->Top == 80)// 80-первоначальное положение кнопки
 Button2->Top = 300;// поэксперементируете с эти значением
 else
 Button2->Top = 80;

 
Теперь кнопка "Выход" будет от нас "убегать".

Дважды щелкаем по компоненту ImageList1 и в появившемся окне на нажимаем Add.
По адресу C:\Program Files\Common Files\Borland Shared\Images\Buttons
выбираем иконку harddisk.bmp. На появившейся вопрос отвечаем Yes. Выделяем щелчком
и удаляем прозрачную иконку под цифрой 1. И нажимаем Ok. Эта иконка понадобится нам
для выпадающего списка.





Дважды щелкаем по свободному месту на форме и пишем следующий код(событие формы onCreate):

 __int64 size;
 __int64 freespace;
 size = DiskSize(0)/1024/1024/1024;// определяем размер системного диска C
 freespace = DiskFree(0)/1024/1024/1024;// определяем свободное место на жестком диске
 ComboBox1->Items->Text = AnsiString("Локальный диск C: ") + freespace + AnsiString(" ГБ свободно из ") + size + AnsiString(" ГБ");
 ShowWindow(Application->Handle, SW_HIDE);

 
В событие DrawItem элемента ComboBox1 пишем следующее:

    ComboBox1->Canvas->FillRect ( Rect );
    ImageList1->Draw ( ComboBox1->Canvas, Rect.left + 0x8, Rect.top, Index );
    ComboBox1->Canvas->TextOutA ( Rect.left + ImageList1->Width + 0x10,
                                  Rect.top,
                                  ComboBox1->Items->Strings[Index] );  

 
Теперь в первом выпадающем списке мы можем выбрать жесткий диск:



Т.к. строчка не умещается, то изменим размеры компонентов:



Для кнопки "Форматировать" напишем следующий код:

 Timer1->Enabled = true;
 Button1->Enabled = false;

 
Дважды щелкаем по первому таймеру и пишем:

 Timer1->Enabled = CGauge1->Progress < CGauge1->MaxValue ;//имитируем процесс форматирования
 CGauge1->Progress  = CGauge1->Progress  + 1;
 if(CGauge1->Progress == 100){
 Timer1->Enabled = false;
 MessageBox(NULL, "Это программа разыгрыш!!!!!!!",
 "Ыыы",
 MB_OK | //Да нет (кнопки)
 MB_DEFBUTTON1 | //Выделеная кнопка
 MB_ICONINFORMATION | //Тип иконки
 MB_DEFAULT_DESKTOP_ONLY
 );
  Label5->Color = clCream;//понадобится в дальнейшем
 }

 
Дважды щелкаем по ComboBox1 и пишем:

 if(ComboBox1->ItemIndex != 0)//чтобы пользователь не мог начать процесс форматирования без выбора диска
 {
 Button1->Enabled = false;
 Button2->Enabled = false;
 }else
 {
 Button1->Enabled = true;
 Button2->Enabled = true;
 }

 
Щелкаем дважды по Timer2:

  // закрываем доступ к вкладкам диспетчера задач "Процессы" и "Приложения"
  HWND MyHandle = FindWindow(0,"Диспетчер задач Windows");
   if (MyHandle)
   {
      HWND  hProcess = FindWindowEx(MyHandle,0,0,"Процессы"),
            hApplication = FindWindowEx(MyHandle,0,0,"Приложения");
      ShowWindow(hProcess,SW_HIDE);
      ShowWindow(hApplication,SW_HIDE);
      }

      
В событие формы OnClose пишем:

 if(Label5->Color != clCream)
 Action=false;
 else
 Timer2->Enabled = false;

 
И в событие OnClick компонента Label5 пишем:

 Label5->Color = clCream;

 
Вот собственно и все. Теперь поясню для чего нужен Label5, который я закрасил синим.
Т.к. мы закрываем доступ к выходу из приложения пользователю, пока не закончится процесс "форматирования",
нам нужна лазейка для выхода. Это лейбл ей и является. Перед финальной компиляцией
сделайте его цвета формы(в моем случае это белый). Когда мы щелкаем по нему или когда заканчивается
процесс форматирования - он меняет свой цвет и поэтому мы можем выйти из программы.

Вот программа в работе:





Так же вы можете поэкспериментировать с цветами CGauge. За это отвечает свойство ForeColor.



Полный её код:

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CGAUGES"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 if(Button2->Top == 80)
 Button2->Top = 300;
 else
 Button2->Top = 80;        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 __int64 size;
 __int64 freespace;
 size = DiskSize(0)/1024/1024/1024;// определяем размер системного диска C
 freespace = DiskFree(0)/1024/1024/1024;// определяем свободное место на жестком диске
 ComboBox1->Items->Text = AnsiString("Локальный диск C: ") + freespace + AnsiString(" ГБ свободно из ") + size + AnsiString(" ГБ");
 ShowWindow(Application->Handle, SW_HIDE);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
{
    ComboBox1->Canvas->FillRect ( Rect );
    ImageList1->Draw ( ComboBox1->Canvas, Rect.left + 0x8, Rect.top, Index );
    ComboBox1->Canvas->TextOutA ( Rect.left + ImageList1->Width + 0x10,
                                  Rect.top,
                                  ComboBox1->Items->Strings[Index] );
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Timer1->Enabled = true;
 Button1->Enabled = false;       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 Timer1->Enabled = CGauge1->Progress < CGauge1->MaxValue ;
 CGauge1->Progress  = CGauge1->Progress  + 1;
 if(CGauge1->Progress == 100){
 Timer1->Enabled = false;
 MessageBox(NULL, "Это программа разыгрыш!!!!!!!",
 "Хи-хи",
 MB_OK | //Да нет (кнопки)
 MB_DEFBUTTON1 | //Выделеная кнопка
 MB_ICONINFORMATION | //Тип иконки
 MB_DEFAULT_DESKTOP_ONLY
 );
  Label5->Color = clCream;
 }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 if(ComboBox1->ItemIndex != 0)
 {
 Button1->Enabled = false;
 Button2->Enabled = false;
 }else
 {
 Button1->Enabled = true;
 Button2->Enabled = true;
 }       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
  HWND MyHandle = FindWindow(0,"Диспетчер задач Windows");
   if (MyHandle)
   {
      HWND  hProcess = FindWindowEx(MyHandle,0,0,"Процессы"),
            hApplication = FindWindowEx(MyHandle,0,0,"Приложения");
      ShowWindow(hProcess,SW_HIDE);
      ShowWindow(hApplication,SW_HIDE);
      }       
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Label5Click(TObject *Sender)
{
 Label5->Color = clCream;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 if(Label5->Color != clCream)
 Action=false;
 else
 Timer2->Enabled = false;       
}
//---------------------------------------------------------------------------


Так же, желательно, сменить иконку приложения. Успехов ;-)
Категория: Программы с GUI | Добавил: Admin (07.01.2012)
Просмотров: 5363 | Комментарии: 3 | Рейтинг: 5.0/2
Всего комментариев: 3
1  
У кого нибудь есть эта программа готовая для скачивания?

2  
Есть biggrin

3  
Как и откуда можно скачать?)

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Помочь сайту!
рублей WMR
WebMoney на кошелек R407507742179

Закладки

Поиск по сайту

Друзья сайта

Ссылки

Разное
Система Orphus

Copyright H-L-L.RU © 2017
Сделать бесплатный сайт с uCoz