Ustawienie Tapety oraz zmiana obrazka na spacji

0

Witam :)

Mam dwie sprawy ponieważ robie program na zaliczenie "przegladarka graficzna" i zrobilem prosta na ktorej znajduje sie FileListBox, DirectoryListbox i z niego wczytywane sa obrazki do TImage.
I teraz chcial bym sie dowiedziec jak moge zrobic opcje taka jaka jest w acdsee, ze po nacisnieciu spacji wczytuje sie nastepne zdjecie w danym folderze i jak moge ustawic tapete na pulpit z tego TImage

Z Góry Dziekuje :)

0

Co do ustawienia tapety pulpitu, to z TImage'a zapisujes zdjęcie jako *.BMP. Następnie kopijuesz do folderu C:\WINDOWS korzystasz z funkcji SystemParametersInfo podając jej parametr SETDESKWALLPAPER:

var s: String;
...
s:='plik.bmp';

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

Co do przeglądarki, to w Expert plus 1/2005 jest gotowa przeglądarka w delphi. Zdjęcie Next\Prev realizowane jest za pomocą

//obsługa przycisków
procedure TfOkno.Opcje(Sender: TObject);
begin
   case TMenuItem(Sender).Tag of
     0 : if OtworzOkno.Execute then OtworzPlik(OtworzOkno.FileName);
     1 : Close;
     2 : Numer:=0;
     3 : if Numer<Lista.Count-1 then Inc(Numer) else Numer:=0;
     4 : if Numer>0 then Dec(Numer) else Numer:=Lista.Count-1;
     5 : Numer:=Lista.Count-1;
     6 : begin
             TMenuItem(Sender).Checked:=not TMenuItem(Sender).Checked;
             Lista.Visible:=TMenuItem(Sender).Checked;
         end;
     7 : begin
             TMenuItem(Sender).Checked:=not TMenuItem(Sender).Checked;
             Slajdy.Enabled:=TMenuItem(Sender).Checked;
         end;
     8 : RysunekDblClick(Self);
   end;
   PokazObrazek;
end;

Gdzie klawisze Backspace i space są zdefiniowane w menu, stąd w tej instrukcji obsługujemy pole Tag.

Daj maila to prześlę kody projektu. Zawierać będą one plik exe, tak więc mam nadzieję, że nie odfiltruje załącznika.

0
Oleksy_Adam napisał(a)

Daj maila to prześlę kody projektu. Zawierać będą one plik exe, tak więc mam nadzieję, że nie odfiltruje załącznika.

[email protected] :) z gory THX

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