Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> .jpg Как фон рабочего стола 
:(
    Опции темы
Volkogriz
  Дата 11.12.2008, 00:59 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1
Доброе время суток!!!
Почему jpg неустонавливаються как фон что сделать чтобы картинки jpg установились как фон рабочего стола!!!
Веть точичьные bmp Весят много!?
Код:

Код

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;



procedure TForm3.FormCreate(Sender: TObject);
begin
ComboBox1.Items.LoadFromFile(extractfilepath(Application.ExeName)+'Data\xxx.log');
ComboBox2.Enabled:=false;
JvTransparentButton21.Enabled:=false;
end;

procedure TForm3.JvTransparentButton21Click(Sender: TObject);
begin
SetWallpaper(extractfilepath(Application.ExeName)+ 'Data\xxx\'+ComboBox2.Text+'.bmp', False);
JvTransparentButton21.Enabled:=false;
end;

procedure TForm3.ComboBox2Change(Sender: TObject);
begin
Image2.Picture.LoadFromFile(extractfilepath(Application.ExeName)+ 'Data\xxx\'+ComboBox2.Text+'.bmp');
JvTransparentButton21.Enabled:=true;
end;

procedure TForm3.JvTransparentButton22Click(Sender: TObject);
begin
ComboBox2.Enabled:=false;
JvTransparentButton21.Enabled:=false;
Form3.Close;
Form1.show;
end;

procedure TForm3.ComboBox1Change(Sender: TObject);
begin
ComboBox2.Items.LoadFromFile(extractfilepath(Application.ExeName)+'Data\'+ ComboBox1.Text+'.log');
ComboBox2.Enabled:=true;
end;

end.

Зарание Блогодарен!
С уважением волкогриз!!!


M
Alexeis		Модератор: используйте подсветку кода

--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Данкинг
Дата 11.12.2008, 01:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Volkogriz @  11.12.2008,  00:59 Найти цитируемый пост)
Почему jpg неустонавливаються как фон что сделать чтобы картинки jpg установились как фон рабочего стола!!!
Веть точичьные bmp Весят много!?

За эти фразы пять баллов. smile А ответ, думаю, лучше спросить у Билла Гейтса. Почему он не сделал поддержки .jpg в качестве обоев?
Да, а код ты к чему привёл? smile 

Это сообщение отредактировал(а) Данкинг - 11.12.2008, 01:21


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Volkogriz
Дата 11.12.2008, 01:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1
Мож кто чё паправит!!! smile

Добавлено через 5 минут и 57 секунд
Мож есть какой то вариант!
Чтото может можно придумать а? smile 
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Данкинг
Дата 11.12.2008, 01:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Volkogriz @  11.12.2008,  01:31 Найти цитируемый пост)
Чтото может можно придумать а?

Конвертнуть JPG->BMP, а затем уже ставить. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Volkogriz
Дата 11.12.2008, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1
А о-как! smile 
 smile  smile  
Плииизик!!! 
--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Данкинг
Дата 11.12.2008, 01:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(Volkogriz @ 11.12.2008,  01:43)
А о-как! smile 
 smile  smile  
Плииизик!!!

Пример из DelphiWorld:
Код

uses 
  JPEG; 

procedure JPEGtoBMP(const FileName: TFileName); 
var 
  jpeg: TJPEGImage; 
  bmp:  TBitmap; 
begin 
  jpeg := TJPEGImage.Create; 
  try 
    jpeg.CompressionQuality := 100; {Default Value} 
    jpeg.LoadFromFile(FileName); 
    bmp := TBitmap.Create; 
    try 
      bmp.Assign(jpeg); 
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp')); 
    finally 
      bmp.Free 
    end; 
  finally 
    jpeg.Free 
  end; 
end; 

Ну а вообще-то:
1) Это можно было и самому на форуме найти,
2) Одна тема - один вопрос! smile  smile  smile 

Это сообщение отредактировал(а) Данкинг - 11.12.2008, 01:47


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Volkogriz
Дата 11.12.2008, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: нет
Всего: 1
 smile огромное спасиба!!! smile  smile  smile 

   

--------------------
("`-''-/").___..--''"`-._`6_6  ) ,,,`-.  ( ''' ).` "_-.__.')(_Y_.)'  ._''' )  `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).'  ((!.-'
PM MAIL ICQ   Вверх
Rrader
  Дата 11.12.2008, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Поддерживает: jpg, png, gif, bmp и другие smile 
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, StdCtrls, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SetDesktopWallpaper(const Path: WideString): HRESULT;
var
  Dsk: IActiveDesktop;
begin 
  Dsk := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;  
  Result := Dsk.SetWallpaper(StringToOleStr(Path), 0);
  if Succeeded(Result) then
    Result := Dsk.ApplyChanges(AD_APPLY_ALL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    SetDesktopWallpaper(OpenDialog1.FileName);
end;

end.




--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Alexeis
Дата 11.12.2008, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(Rrader @  11.12.2008,  14:26 Найти цитируемый пост)
Поддерживает: jpg, png, gif, bmp и другие 

  Не совсем так, поддерживает компонент ActiveDesktop, который производит конвертацию на лету, с последующим сохранением картинки в виде *.bmp. В данном случае без разницы кто будет конвертить, результат один, в реестре будет путь к битмапке.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Rrader
  Дата 11.12.2008, 15:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
Ну это понятно, просто по мне лучше конвертацию на Windows переложить.


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
bems
Дата 11.12.2008, 15:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Цитата(Alexeis @  11.12.2008,  15:40 Найти цитируемый пост)
с последующим сохранением картинки в виде *.bmp
Хм... а это точно? 
Спрашиваю потому что в какой-то из старых винд натыкался на обработку жипега активдестопом через создание хэтэмэлэ страницы с жипегом на фоне. А дальше наверное работа происходила как с вебстраницей, поставленой на десктоп юзером. Это изменили? Хотя в любом случае код Rrader работает независимо от этих деталей, а значит так правильнее.


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Alexeis
Дата 11.12.2008, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
Цитата(bems @  11.12.2008,  14:56 Найти цитируемый пост)
Хм... а это точно? 

  Что мешает проверить?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
bems
Дата 11.12.2008, 16:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
да что-то не нахожу битмапного варианта


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Rrader
  Дата 11.12.2008, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191
bems, действительно, существуют два типа обоев: BMP и HTML. Может из-за этого не находится? smile 

А еще HKCU\Control Panel\Desktop\Wallpaper посмотрите.


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
bems
Дата 11.12.2008, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Rrader, да там ссылки на оригинал и битмапный вариант, а html нету никакого. Наверное это закончилось в реализации ActiveDesktopа в 9х 


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0611 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.