Сменить обои рабочего стола - delfcode
Четверг, 08.12.2016, 01:13 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » Сменить обои рабочего стола (Важно!)
Сменить обои рабочего стола
GReIIIHuKДата: Вторник, 13.12.2011, 19:18 | Сообщение # 1
Участник
Зарегистрирован: 15.05.2011
Группа: Пользователи
Сообщений: 98
Статус: Offline
Подскажите, как можно сменить обои, не только на картинки с расширением .bmp(это все что я нашел в поиске) но и такие как .jpg , .png и т.д.
+ в репу за помощь happy


Skype:"greiiihuk."


Да, я преступник. Мое преступление — любопытство.
Быть может умру я, умрут многие, но идея останется жить навсегда.
Я работаю не только за спасибо.(+) ©


Сообщение отредактировал GReIIIHuK - Вторник, 13.12.2011, 19:18
 
GReIIIHuKДата: Вторник, 13.12.2011, 20:49 | Сообщение # 2
Участник
Зарегистрирован: 15.05.2011
Группа: Пользователи
Сообщений: 98
Статус: Offline
Поискал еще в интернете, нашел вот это:
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 протокол))

Просто удаляет обои, не зависимо от расширение файла.


Skype:"greiiihuk."


Да, я преступник. Мое преступление — любопытство.
Быть может умру я, умрут многие, но идея останется жить навсегда.
Я работаю не только за спасибо.(+) ©


Сообщение отредактировал GReIIIHuK - Вторник, 13.12.2011, 20:51
 
delfcode » Delphi » Вопросы по Delphi » Сменить обои рабочего стола (Важно!)
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2016 Хостинг от uCoz