Question

我正在制作自己的安装程序，它几乎完成了。唯一缺少的是安装完成后的声音。这是一个Windows API调用还是我需要找到该音频文件并从源代码中播放？

Answer 1

Answer 2

这个小功能集将为任何MCI支持的声音文件加载，播放，停止和转储（可用内存）。 [* .wav，* .mp3，* .wma等......]

uses MMSystem;

function LoadMediaFile(absoluteFile,clipName: String): Integer;
var
  pc2: PChar;
  pc3: String;
    begin
      pc3 := '"'+absoluteFile+'"';
      pc2 := PChar('Open ' + pc3 + ' Alias '+ clipName);
      Result := mciSendString(pc2, PChar(0), 0, 0);
    end;

function StartMediaFile(clipName: String) : Integer;
var
  pc2: PChar;
    begin
      pc2 := PChar('Play ' + clipName + ' From ' + '0');
      Result := mciSendString(pc2, PChar(0), 0, 0);
    end;

function StopMediaFile(clipName: String): Integer;
var
  pc2: PChar;
  i: Integer;
    begin
      pc2 := PChar('Stop ' + clipName + ' wait');
      i := 0;
      while (mciSendString(pc2, PChar(0), 0, 0)<>0) and (i < 250) do
        begin
          Result := mciSendString(pc2, PChar(0), 0, 0); i := i + 1;
        end;
    end;

function DumpMediaFile(clipName: String): Integer;
var
  pc2,pc3: PChar;
  i: Integer;
    begin
      pc2 := PChar('Stop ' + clipName + ' wait');
      pc3 := PChar('Close ' + clipName + ' Wait');
      i := 0;
      while (mciSendString(pc2, PChar(0), 0, 0)<>0) and (i < 250) do
        begin
          mciSendString(pc2, PChar(0), 0, 0); i := i + 1;
        end;
      i := 0;
      while (mciSendString(pc3, PChar(0), 0, 0)<>0) and (i < 250) do
        begin
          Result := mciSendString(pc3, PChar(0), 0, 0); i := i + 1;
        end;
    end;

像这样使用它们：

ResultInteger1 := LoadMediaFile('X:\Path\To\File.WAV', 'ClipName');
ResultInteger2 := StartMediaFile('ClipName');
Sleep(3000);
ResultInteger3 := StopMediaFile('ClipName');
ResultInteger4 := DumpMediaFile('ClipName');

将播放X：\ Path \ To \ File.WAV文件的3秒。

您可以使用：

if ResultInteger2 <> 0 then ShowMessage('ClipName did not play.');
//or
if ResultInteger2 = 0 then ShowMessage('ClipName did play.');

Answer 3

您可以使用以下方法轻松播放默认系统声音：

System.Media.SystemSounds.Beep.Play();
System.Media.SystemSounds.Asterisk.Play();
System.Media.SystemSounds.Exclamation.Play();
System.Media.SystemSounds.Hand.Play();
System.Media.SystemSounds.Question.Play();

声音安装完成

3 个答案: