如何取消桌面窗口的墙纸?

[hirong]

[929]

你说的是WALLPAPER吧？我试了可以用。你是不是没有发送更新消息，所以没有更新。
这是FWININI的取值
SPIF_UPDATEINIFILE Writes the new system-wide parameter setting to the user profile.
SPIF_SENDCHANGE Broadcasts the WM_SETTINGCHANGE message after updating the user profile.
SPIF_SENDWININICHANGE Same as SPIF_SENDCHANGE.
我用DELPHI写了一下，WALLPAPER已经取消了，我用的是NT4
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
bmpname:string;
begin
bmpname:='';
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Pointer(pchar(bmpname)),SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);
end;

end.

[929]

用这个函数试一下，它可以更改壁纸，用SPI_SETDESKWALLPAPER
BOOL SystemParametersInfo(

UINT uiAction, // system parameter to query or set
UINT uiParam, // depends on action to be taken
PVOID pvParam, // depends on action to be taken
UINT fWinIni // user profile update flag
);

[hirong]

不行,我一开始就是用这个函数的.