新注册的帐号只能给20分,请教三个小问题

Question

1、SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
2、mciSendString('set cdaudio door closed wait',nil,0,Handle);
   mciSendString('set cdaudio door open wait',nil,0,Handle);
   //uses mmsystem
3、?

Answer 1

1:
var
  path:pchar;
...
  path:=YourWallPaperFilePath;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @path, SPIF_SENDWININICHANGE);
2:同上
3:自己搜索了，然后一个一个添加，不过有控件啊！

Answer 2

有時SystemParametersInfo也不能馬上顯示出來.不過你將圖片轉換成bmp就行了.