[Amzi]

Сообщение от NumLock

Код:

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('clouds.bmp');
  PaintBox1.OnPaint:=PaintBox1Paint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.StretchDraw(PaintBox1.ClientRect, Image1.Picture.Graphic);
end;

так, конечно, все отлично работает, но как выдернуть путь из shelllistview, чтоб потом его использовать.

Код:

procedure TForm2.sShellListView1Click(Sender: TObject);
var
   path: string;
 begin
   for i:=0 to sShellListView1.SelCount-1 do
   begin
     path := sShellListView1.Folders[sShellListView1.GetNextItem(sShellListView1.Selected,
               sdAll,[isSelected]).Index+i-1].PathName;
  end;
end;

такая штука не робит