Выбор директории

[grb1zli]

Мне не обходимо для начала сделать так, чтобы можно было выбрать папку, в которой находятся файлы, которые будут использоваться, т.е. мне необходимо сохранить ее адрес.Может в Delphi существует атрибут, который выбирает атрибут?Заранее спасибо 

[RXL]

Может в Delphi существует атрибут, который выбирает атрибут?

Что ты имеешь в виду? Нифига не понятно...

См. в сторону CommonControls - там есть и открытие/сохранение файла, и выбор директории, и всякий прочий сервис.

[grb1zli]

Извиняюсь...я имела в виду:Может в Delphi существует атрибут, который выбирает директорию?
посмотрю в сторону CommonControls...

[RXL]

Что такое "атрибут"?

[PooH]

нарыл в сети:
FileCtrl в раздел Uses потом процедура SelectDirectory('Select dir',' ',s); открывает диалог выбора папки и сохраняет выбранную в s

[zubr]

Код:

uses ShlObj;

function GetUserSelectDirectory(TitleName: string; WithCreateDir: boolean; var DisplayName: string): string;
var
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DispName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  Result := '';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := 0;
  BrowseInfo.pszDisplayName := @DispName;
  BrowseInfo.lpszTitle := PChar(TitleName);
  if WithCreateDir then
  BrowseInfo.ulFlags :=BIF_EDITBOX or $40
  else
  BrowseInfo.ulFlags :=BIF_EDITBOX;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := string(PChar(string(TempPath)));
    DisplayName := string(PChar(string(DispName)));
    GlobalFreePtr(lpItemID);
  end;
end;

//пример использования
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
begin
  Edit1.Text := GetUserSelectDirectory('Выберите каталог', True, s);
end;

[grb1zli]

Cпасибо  )