1Opendialog i Tapety Windows

Witam!
Mam 2 pytanka:
Pyt1.
Jak zaznaczając np. 10 plików w Opendialog "wsadzić" je wszystkie wraz ze ścieżkami do ListBox-a. Tak jak to jest np w Winampie!

i Pyt2.
Jak na tapecie windows wybrać położenie za pomocą Delphi.
Np. Rozciągnięcie, Sąsiadująco???

Z góry thx.

Na pierwsz nie znam odp.
A na drugie pochodzi FAQ

var
S : string;
begin
S := 'c:\windows\bąbelki.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER,0, PChar(s), SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);
end;

Działa to jedynie dla plików bmp.
Jeżeli chcesz ustawić sąsiadująco, rozciągnięte lub wyośrodkowane to musisz w rejestrze zmienić wpisy w kluczu: HKEY_CURRENT_USER\Control Panel\Desktop
Odpowiednie wartości:

1. Do środka:
   TileWallpaper := 0
   WallpaperStyle := 0

2. Sąsiadująco:
   TileWallpaper := 1
   WallpaperStyle := 0

3. Rozciągnięte:
   TileWallpaper := 0
   WallpaperStyle := 2

ad1,) w Inspektorze Obiektow komponentu OpenDialog masz opcje OPTIONS :-) i tam zanzacz AllowMultiSelect czy jakos podobnie :)

AD 1:

var
i:integer;
begin
  OpenDialog.Execute;
  if OpenDialog.FileName <> '' then
  begin
    for i:=0 to OpenDialog.Files.Count-1 do
    begin
      if not (Lista.items.indexof(OpenDialog.Files[i])<>-1) then
      begin
        List.Items.Add(OpenDialog.Files[i]);
     // Podopisuj sobie "End`y" :)

Ad1.

Nie chce mi sie sprawdzac, ale chyba jest cos takiego:

ListBox1.Items.Assign(OpenDialog1.Files);

WIELKIE DZIĘKI