обои jpeg

← →
Sele © (2006-08-16 18:46) [0]

Подскажите как програмно сменить обои на раб столе (jpeg)
Искал в нете но находил тока как поставить bmp .

← →
Ega23 © (2006-08-16 18:56) [1]

Легко. Привести jpeg к bmp, а потом применить метод, найденный в тырнете.

← →
tButton © (2006-08-16 19:04) [2]

там помоему АПи функцие передаётся имя файла и без разницы жопег или бмп
мне оно не понравилось только из-за того что можно было только за центровать или затайлить
а хотелось растянуть

← →
Ketmar © (2006-08-16 22:01) [3]

> [2] tButton © (16.08.06 19:04)
с разницей.

← →
D@Nger © (2006-08-17 09:37) [4]

procedure TFmain.ChangeActiveWallpaper(file_path:string);
const
CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var ActiveDesktop: IActiveDesktop;
tmpBuffer:PWideChar;
begin
ActiveDesktop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
tmpBuffer := AllocMem(256);
try
stringtowidechar(file_path,tmpBuffer,256);
ActiveDesktop.SetWallpaper(tmpBuffer, 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
finally
FreeMem(tmpBuffer);
end;
end;

← →
Ketmar © (2006-08-17 10:07) [5]

> [4] D@Nger © (17.08.06 09:37)
местатель. отключи Active Desktop. повтори. удивись.

← →
DprYg © (2006-08-17 11:03) [6]

Информация об обоях в HKEY_CURRENT_USER\Control Panel\Desktop. Параметр Wallpaper-имя файла. А вот TileWallpaper и WallpaperStyle надо задавать парно. Соответственно 0,2(растянуть), 0,0(по центру), 1,0(замостить). Меняешь программно на то, что нужно и вызываешь SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, filename:pchar, SPIF_UPDATEINIFILE).
P.S. Не понимаю чем в данном случае bmp отличается от jpeg.

обои jpeg Найти похожие ветки