完成安裝的聲音

Question

我正在製作自己的安裝程序，它幾乎完成。唯一缺乏的是安裝完成時的聲音。這是一個Windows API調用，或者我將需要找到該音頻文件，並從源代碼播放？

Answer 1

使用MessageBeep功能。

Answer 2

您可以輕鬆播放系統默認的聲音通過：

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(); 

Answer 3

這個函數的小集合將爲任何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 3秒：\路徑\要\ File.WAV文件。

您可以使用：

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