“РЛ" - НАЧИНАЮ Щ ИМ
[
RECT г;
®
r.left = 10;
r.top = 10;
r.right = 20;
r.bottom = 20;
ClipCursor(&r);
Часть 5
Музыка или непонятные звуки.
Код воспроизведения музыки в фор-
мате wav.
Для этого в начале кода после
#include <vcl.h>
напишем
#include “mm system .h”
И в обработчике кнопки допишем
после захвата мышки код (врезка 5).
Музыка находится в папке с про-
граммой. Понятно, что“1 апреля”-э то
название воспроизводимого звука.
Значит, повторим еще раз план
“операции”.
1. Создаем программу, у которой
вызывающее название и иконка, ко-
торая мигает все время в панели за-
дач; отключаем кнопку выключения;
так же на ней есть кнопка, при нажа-
тии на ее курсор не двигается; игра-
ет музыка. Вот и все с программиро-
ванием.
2. Вы идете с флешкой или дис-
ком, на которых находится програм-
ма. Включаете компьютер, скачива-
ете программу, и на рабочем столе
создаете ярлык своей программы.
Помните: нужно сделать, чтобы про-
грамма работала на любом компью-
тере (часть 2), но лучше всего, конеч-
но, протестировать на своем!
Все, теперь жди и не умри со смеху
(рис. 6) ©.
Правда, когда выйдет журнал,
уже будет не 1 апреля, но ведь и
“21 апреля никому не верь"!
Конечно, можно на форму добав-
лять различные картинки и т.п.
То есть все зависит только от ва-
шей фантазии; я же сделал про-
грамму как легкий набросок ху-
дожника!
Если что не получится, срочно
пишите
©.
Ресурсы
DWORD fdwSound = SND_ASYNC I SND_FILENAME;
PlaySound(“1 апреля.w av”,NULL, fdwSound);
Полный код программы.
//---------------------------:— ------------------------------------------------------------------------------ —-
#indude <vd.h>
#indude “mmsystem.h”
// чтобы музыка играла
#pragma hdrstop
#indude “Unitl .h”
//------------------------------------------------------------------------ ;-------------------------------------------
#pragma package(smartjnit)
#pragma resource “*.dfm”
TForml *Form1;
//--------------------------------------------------------------------!------------------------------------------------
__fastcall TForml ::TForm1 (TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------------------------------------------------
void _fastcall TForml ::FormCreate(TObject ‘Sender)
{
HWND hWnd = Forml ->Handle;
// отключаем кнопку закрытия
HMENU hMenu = GetSystemMenu(hWnd, false);
if (hMenu)
{
EnableMenuttem(hMenu, SC_CLOSE, MF_GRAYED);
}
}
//---------------------------------------------------------------------------------------------------------------------
void__fastcall TForml ::Button1 ClickfTObject ‘Sender)
{
RECT r;
// при нажатии на кнопку захватываем мышь и не отдаем
r.left = 10;
r.top = 10;
r.right = 20;
r.bottom = 20;
ClipCursor(&r);
DWORD fdwSound = SND_ASYNC I SND_FILENAME;
// воспроизводим звук
PlaySound(“n.wav”,NULL, fdwSound);
}
//---------------------------------------------------------------------------------------------------------------------
void _fastcall TForml ::Timer1 Timer(TObject ‘Sender)
{
FlashWindow(Application->Handle,false);
// мигаем кнопкой
FlashWindow(Application->Handle,true);
}
//---------------------------------------------------------------------------------------------------------------------
Радиолюбитель - 0 4 /2 0 0 8 U
37
предыдущая страница 37 Радиолюбитель 2008-04 читать онлайн следующая страница 39 Радиолюбитель 2008-04 читать онлайн Домой Выключить/включить текст