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.