Поискал еще в интернете, нашел вот это:
Code
procedure SetWallpaper(sWallpaperBMPPath: string; bTile: boolean);
var
reg: TRegIniFile;
begin
reg := TRegIniFile.Create('Control Panel\Desktop');
with reg do
begin
WriteString('', 'Wallpaper',
sWallpaperBMPPath);
if (bTile) then
begin
WriteString('', 'TileWallpaper', '1');
end
else
begin
WriteString('', 'TileWallpaper', '0');
end;
end;
reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil,SPIF_SENDWININICHANGE);
end;
Взов:
Code
SetWallpaper(pchar(st), False);
((st - стринговая переменная, содержит принятый текст(ICQ протокол))
Просто удаляет обои, не зависимо от расширение файла.
