1.7.7.Воспроизведение звуков

Beep[(G,T:Cardinal)]:Boolean‑ подача звукового сигнала с частотойGгерц (37‑32767) и длительностьюTмиллисекунд (только дляWindowsNT).

MessageBeep(N):Boolean‑ подача звукового сигнала типаN:mb_Icon­Nas­te­risk(звездочка),mb_IconExclamation(восклицание),mb_IconHand(крити­чес­кая ошибка),mb_IconQuestion(вопрос),mb_Ok(стандартный звук). Звуки устанавливаются панелью управленияWindows.

PlaySound(S; Hmod : Hinst; fdwSound : Cardinal):Boolean‑ воспроизводит звук источникаS(функция в модулеmmsystem).Hmod=0 для звукового файла. ЕслиS=0, то звук прекращается. ПараметрfdwSoundзадает флаги (через операциюOr) воспроизведения звука (основные):Snd_Async(асинхронное воспроизведение),Snd_FileName(источник звука ‑ файл под именемS),Snd_Loop(повторение звука),SndResource(Sявляется именем ресурса,Hmod‑ дескриптор выполняемого файла с загружаемым ресур­сом),Snd_Purge(останавливает любые звуки).

Пример: PlaySound('c:\Win98\media\The Microsoft Sound.wav',0,

snd_FileName or snd_Async);

1.7.8. Запуск из приложения внешних программ

Функции запуска являются функциями APIWindowsи находятся в модулеShellAPI. Если функция возвращает значение меньшее или равное 32, то это указывает на ошибку при выполнении. Отсутствие аргумента при обращении к функции указывается константойNil.

ShellExecute(W:HWnd,S1,S2,S3,S4;R):THandle‑ позволяет выполнить лю­бое приложениеWindows, распечатать файл или открыть папку:

W‑ родительское окно запускаемого приложения (свойствоHandle);

S1 ‑ строка с командой:Open(выполнение командной строкиS2, если по расширению файлаS2Windowsне может запустить программу обработки этого файла),Print(печать документаWordпод именемS2),Explore(вывод проводником содержимого папкиS2);

S2 ‑ имя открываемого (выполняемого) файла, распечатываемого докумен­та или выводимой папки;

S3 ‑ параметры приложения (для открываемого документаS3=Nil);

S4 ‑ имя умалчиваемого каталога;

R‑ режим открытия, задаваемый константами:SW_Hide(окно скрыто):SW_Minimize(окно сворачивается),SW_Maximize(окно развертывается);SW_Restore(окно восстанавливается, активизируется и отображается);SW_ShowилиSW_ShowMaximizedилиSW_ShowMinimized(окно акти­ви­зи­руется и отображается с текущими размерами или в развернутом или в свернутом виде, соответственно),SW_ShowMinNoActivate(отображается в свернутом виде без активизации),SW_ShowNA(отображает окно с текущими размерами без активизации),SW_ShowNoActivate(отображает окно с его последними размерами без активизации),SW_ShowNormal(отображение окна в первоначальном виде).

Примеры:

ShellExecute(Handle,Nil,'D: \Vb.dot',Nil,Nil,SW_Restore); //запуск Word

ShellExecute(Handle,’Print’,'D:\Vb.dot',Nil,Nil,SW_Restore); //печать Vb.dot

ShellExecute(Handle,'Open','Calc',Nil,Nil,SW_Restore); //запуск калькулятора

ShellExecute(Handle,'Open','C:\Far\far.exe',Nil,Nil,SW_Show);//запуск Far.exe

ShellExecute(Handle,'Explore','D:\Plehev',Nil,Nil,SW_Restore); //папка Plehev

FindExecutable(S1,S2,S3):THandle‑ функция формирует полное имя вы­пол­няемой программы (S3), которая обрабатывает файл (S1) из умал­чи­ваемого каталогаS2.

Примеропределения имени программы обработки файлаVb.dot:

Var Np:Array [0..254] Of Char; ...

FindExecutable('D:\Plehev\Vb.dot',Nil,Np);//имя программы обработки в Np

//можно вызвать функцию и так: FindExecutable('Vb.dot','D:\Plehev',Np);

Label1.Caption:=Np;//вывод: c:\Program Files\Microsoft Office\Winword.exe

WinExec(S,R):Integer‑ позволяет выполнить командную строкуS. Второй параметр аналогичен последнему параметруRфункцииShellExecute.

Пример:WinExec('C:\\Far\far.exe',SW_Show); //запускFar.exe