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

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

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. Запуск из приложения внешних программ

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

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

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

S1 ‑ строка с командой: Open (выполнение командной строки S2, если по расширению файла S2 Windows не может запустить программу обработки этого файла), 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