Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Включение wav-файла в exe и проигрывание этого wav-файла
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Включение wav-файла в exe и проигрывание этого wav-файла
Зависимости: Uses MMSystem
Автор: Осипов Евгений Анатольевич, ICQ:114205759, Бузулук
Copyright: Нашёл в интернете
Дата: 31 мая 2002 г.
***************************************************** }
// В файл MyWave.rc пишешь:
MyWave RCDATA LOADONCALL MyWave.wav
// Затем компилируешь
brcc32.exe MyWave.rc, получаешь MyWave.res.
// В своей программе пишешь:
{$R MyWave.res}
procedure RetrieveMyWave;
var
hResource: THandle;
pData: Pointer;
begin
hResource := LoadResource(hInstance, FindResource(hInstance, 'MyWave',
RT_RCDATA));
try
pData := LockResource(hResource);
if
pData = nil
then
raise
Exception.Create('Cannot read MyWave');
// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound(pData, 0, SND_MEMORY + SND_ASYNC + SND_NOSTOP);
//Для PlaySound используется модуль MMSystem}
//SND_ASYNC - при проигрывании не останавливать работу программы
//SND_NOSTOP - проиграть звук до конца
//SND_STOP - прекратить играть прежний звук и начать новый
finally
FreeResource(hResource);
end
;
end
;