有劳那位大侠帮忙.

Question

小弟正在做一个屏保软件,有两个问题请教大侠:
  1.想加入背景音乐,源文件是MP3,有3M,最好用什么工具把它转换成那一种文件,又怎样用代码加入,播放音乐要循环.
  2.软件有6种动画特效,如百叶窗,旋转等,有6个控件都分别加载了图片,怎样随机产生一个数字随机调用一幅图片,不用CASE语句.
var
   k:integer;
begin
   k:=rodom(6);//随机产生一个数,让它调用ＩＭＭＡＧＥＫ.
   image[k].visible:=true;
end;   
   上面的语句编译不过去,怎样改进它.
  谢谢.

Answer 1

Randomize;
k := Random(6);

Answer 2

var
   k:integer;
begin
   Randomize;
   k:=random(6);//随机产生一个数,让它调用ＩＭＭＡＧＥＫ.
   TImage(FindComponent('image'+InttOStr(k))).visible:=true;
end;   Mp3你用MediaPlayer1播放，你把它隐藏掉好了，开始就直接播放