Чтобы рисунок на рабочий стол сам ставился

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Чтобы рисунок на рабочий стол сам ставился

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

#11

12.02.2008, 09:53

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

С нами: 10021597

Репутация: 905

Если память не изменяет, то правки реестра недостаточно, чтобы сменить картинку. Вроде бы в конце нужно вставить

Код:

SystemParametersInfo (SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE)

Вот еще способ

Код:

uses ComObj, ShlObj;

procedure ChangeActiveWallpaper;
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
  ActiveDesktop.SetWallpaper('c:\windows\forest.bmp', 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

#12

12.02.2008, 14:14

Jes

Постоянный

Регистрация: 16.04.2007

Сообщений: 398

С нами: 10037186

Репутация: 1462

Может тебе нада просто запретить юзеру менять обои ?

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\ActiveDesktop
> NoChangingWallpaper

или
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System

> NoDispCPL
> NoDispBackgroundPage

#13

12.02.2008, 19:58

Tapaceuka

Участник форума

Регистрация: 13.01.2008

Сообщений: 125

С нами: 9645786

Репутация: 0

напишите плз кто нить исходник, а т я пробовал и умну невыходит чёто((

#14

13.02.2008, 08:45

~~De-visible~~

Banned

Регистрация: 06.01.2008

Сообщений: 904

С нами: 9655526

Репутация: 1821

Код:

var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel');
  Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\твой рисунок.bmp');
  Reg.WriteString('desktop', 'TileWallpaper', '0');
  Reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

можно так.....
-------------------
или вот:
SystemParametersInfo(
UINT uiAction, // Системный параметр
UINT uiParam, // зависит от параметра и действия
PVOID pvParam, // зависит от параметра и действия
UINT fWinIni // флаг: нужно ли обновить настройки пользователя(файл WinIni)
);
Эта функция позволяет изменять настройки системы...
В данном случае: параметр SPI_SETDESKWALLPAPER Устаналивает обои. pvParam-путь к картинке в формате BMP...
--

Код:

uses 
  windows; 
var 
  s: string; 
begin 
  s := paramStr(1); 
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @S[1], 
    SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE);

------------------
можно так....

Страница 2 из 2

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удаленный Рабочий Стол	KiLLeR™	Windows	18	06.01.2008 01:20
Изготавливаем эффектный водоблок своими руками	dinar_007	"Железо"	0	09.01.2006 19:43

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход