A TREEVIEW használatában tudnátok segíteni?

uses Windows, ShellApi, SysUtils ;

type

TForm1 = class(TForm)

TreeView1: TTreeView;

Label1: TLabel;

procedure TreeView1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

end;

type

PRec = ^TRec;

TRec = record

FileName: String;

end;

// Feltölti a TreeView1-et fájlnevekkel.

procedure TForm1.FormCreate(Sender: TObject);

var RecPtr: PRec;

begin

New(RecPtr); TreeView1.Items[0].Data := RecPtr; RecPtr^.FileName := 'file1.txt';

New(RecPtr); TreeView1.Items[1].Data := RecPtr; RecPtr^.FileName := 'file2.txt';

New(RecPtr); TreeView1.Items[2].Data := RecPtr; RecPtr^.FileName := 'file3.txt';

end;

// A TreeView1.OnClick eseményekor hajtódik végre.

procedure TForm1.TreeView1Click(Sender: TObject);

var FileName : String ;

var Directory : String ;

var FilePath : String ;

begin

FileName := PRec(TreeView1.Selected.Data)^.FileName ;

Label1.Caption := FileName ;

Directory := ExtractFileDir(Application.ExeName) ;

FilePath := Directory + '\' + FileName ;

if ShellExecute(Handle, 'open', PChar(FilePath), '', PChar(Directory), SW_SHOW) <= 32 then

Label1.Caption := 'Can not open file. '+ FileName ;

end;