[delphi 6] Hoe filename krijgen uit ShellListView?

[El_kingo]

Tsja, de titel spreekt redelijk voor zich, hoe kom ik achter de filename bij een ShellListView?

[LordLarry]

code:

procedure TForm1.ShellListView1Click(Sender: TObject);
var
  ShellListView: TShellListView;
  ShellFolder: TShellFolder;
begin
  if (Sender is TShellListView) then
    if Assigned((Sender as TShellListView).Selected) then
    begin
      ShellListView := Sender as TShellListView;
      ShellFolder := ShellListView.Folders[ShellListView.Selected.Index] as TShellFolder;
      ShowMessage(ShellFolder.PathName);
    end;
end;

[ Voor 0% gewijzigd door LordLarry op 02-08-2002 12:39 . Reden: is ongelijk tekens geeft rare tekens ]