Расположение файла

[Афанасий[vedma]]

в ОС Windows 7 есть свойство: когда делаешь поиск и выводится список наденных файлов, и когда нажимаешь правой кнопки мыши "Расположение файла", то открывается папка разположения этого файла.
Как реализовать это в Делфи, а точнее у меня в Listbox есть найденные файлы и как сделать функцию "Расположение файла"?

[ZuBy]

ну ты же путь к ним знаешь?
открывай через shellexecute

[dmitriegorovih]

открывай через shellexecute

Можно ещё так

procedure TForm1.Button1Click(Sender: TObject);
begin
   winexec('explorer /select, c:\windows\explorer.exe',SW_Restore)
end;

надо еще вот это добавить в uses - ShellApi

[spamer]

  ShellExecute(0, nil, PWideChar(ExtractFilePath(ListBox1.Items[ListBox1.ItemIndex])), nil, nil, SW_SHOWNORMAL)

[chertovich]

Не могу понять где вы в теме автора увидели просьбу показать как запустить программу?

[spamer]

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

Не могу понять где вы в теме автора увидели просьбу показать как запустить программу?

Кстати да, я тоже не пойму, где вы увидели, что вышеприведенный код запускает какую-то программу...