Zmiana tapety

0

Siema all!
Chcę zmienieć tapetę na pulpicie.
Korzystam z funkcji:

SystemParametersInfo(SPI_SETDESKWALLPAPER,0, PChar(s),  SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);

Ale ona mi tylko zmienia tapety bitmapy, a ja chcę .jpg. NIe wiem jak się za to zabrać...
Pomocy... [glowa]

0

Wiem że to głupi pomysł ale możesz (w ostateczności) przed wstawieniem przerobić *.jpg na bitmape...
Tu na stronce (chyab w dziale kody źródłowe) jest taki programik
Pozdr.

0

Wiem że to głupi pomysł ale możesz (w ostateczności) przed wstawieniem przerobić *.jpg na bitmape...
Tu na stronce (chyab w dziale kody źródłowe) jest taki programik
Pozdr.

to jest chyba jedyna możliwość :D

0

A może jakoś włączyć ActiveDesktop? Może to głupie, ale w Win98 to chyba jedyna możliwość ustawienia JPG na tapiecie?

0

Tapety o rozszerzeniach jpg są obsługiwane przez Active Desktop (czyli domyślnie nie możesz je mieć na Win95\NT tylko po instalacji IE5), musisz odświeżyć go. Może coś znajdziesz na msdn

0

Hmmm... poszukaj jakis komponentow, ale ja bym ci proponowal konwert jpg>bmp :) jak chcezs to zagadaj na gg to ci wszystko wytlumacze

0

Wiem że to głupi pomysł ale możesz (w ostateczności) przed wstawieniem przerobić *.jpg na bitmape...

Raczej nie głupi bo własnie tak robi Windows (i np. IE, ACDSee) ustawiając poprzez Własciwości: Ekran jgpa na tapetę.

0

No, też już myślałem, nad przerobieniem jpegu na bitmapę. Robiłem to w ten sposób, że zapisywałem ten sam plik pod innym rozszerzeniem, ale qrczę nie działało.
Ma ktoś jakiś pomysł na konwert jpega na bitmapę?
A może jakiś komponent???

0

Tak samo jak BMP na JPG tylko odwrotnie:

var
  B: TBitmap;
  J: TJPEGImage;
begin
  B := TBitmap.Create;
  J := TJPEGImage.Create;
  J.LoadFromFile('c:\plik.jpg');
  B.Assign(J);
  B.SaveToFile('c:\plik.bmp');
  B.Free;
end;
0

Bez kitu działa.
Dzięx

1 użytkowników online, w tym zalogowanych: 0, gości: 1