Как установить обои Windows програмно

Автор: Борисов Сергей
{codecitation class=»brush: pascal; gutter: false;» width=»600px»}
procedure SetWallpaper(S:PChar);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,S,SPIF_SENDWININICHANGE);
end;

//где S — путь к файлу

{/codecitation}

Добавить комментарий