|
正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- [Files]
- Source: "C:\music.mp3"; Flags: dontcopy
- [Code]
- function mciSendString(lpstrCommand, lpstrReturnString: AnsiString; uReturnLength, hWndCallback: Integer): Integer;
- external 'mciSendStringA@winmm.dll stdcall';
- //备注:上面的 mciSendString 函数也可以修改成这样(使用 Unicode 字符串):
- //function mciSendString(lpstrCommand, lpstrReturnString: String; uReturnLength, hWndCallback: Integer): Integer;
- //external 'mciSendStringW@winmm.dll stdcall';
- procedure InitializeWizard();
- var
- s: string;
- begin
- //ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\music.mp3')));
- ExtractTemporaryFile('music.mp3');
- if FileExists(ExpandConstant('{tmp}\music.mp3')) then begin
- mciSendString(ExpandConstant('OPEN {tmp}\music.mp3 TYPE MPEGVIDEO ALIAS BGMUSIC'),s,255,0);
- mciSendString(ExpandConstant('PLAY BGMUSIC REPEAT'),s,255,0);
- end;
- end;
复制代码
|
|