Путь к файлу

[SlavikSG]

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

var t:string;
begin
SelectDirectory( 'Выбор каталога', '',t);
edit1.Text:=t;
end;

Нашел в инете и опробовал код, которой так же прекрасно работает:

PROCEDURE TOptions.Button_PathClick(Sender: TObject);
VAR
  TitleName: String;
  lpItemID: PItemIDList;
  BrowseInfo: TBrowseInfo;
  DisplayName: Array[0..MAX_PATH] of char;
  TempPath: Array[0..MAX_PATH] of char;
BEGIN
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := Options.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Укажите нужную директорию';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  If lpItemId <> Nil Then
  Begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Path_Files.Text:=TempPath; {Пишем в поле готовый путь к папке}
    GlobalFreePtr(lpItemID);
  End;
END;

[Stilet]

artemavd

Вот прикинь такую идейку. Растяни на форме еще один ЛистБокс.
В процедуре поиска кидай полное имя файлу в один Лист - невидимый, а просто имя в другой, - видимый.
А потом при клике на итем видимого выбирай путь из невидимого и загружай по нему файл.

[XuTpbIu]

Ну тогда уж лучше создать TStrings. Не вижу смысла использовать визуальный компонент