Как узнать путь до папки

[mt10forex]

Скажите пожалуйста как узнать путь до папки.
я имею C:\дельфи там лежит всего одна папка имя которой неизвестно или будет изменено. Как вычислить путь до неё или узнать имя? И возможно ли в неё как то перейти для поиска файла?(опять же незная её имя)

[DIgorevich]

Если из этой неизвестной папки запускается программа, то:

ExtractFilePath(Application.ExeName)

[mt10forex]

не она запускается не там

[ZaRDaK]

С помощью функций FindFirst и FindNext с параметром faDIRECTORY можно найти нужную папку по нужному пути.

[Serge_Bliznykov]

C:\дельфи там лежит всего одна папка

я правильно Вас понял, что есть заданный каталог, в нём есть строго одна папка. Нужно получить имя этой папки?!

так это же элементарно, Ватсон!
Язык программирования не указан, позволю себе пример написать под Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var sr : TSearchRec;
  iOk : integer;
  kDir : integer;
  dirName : string;
begin
  kDir := 0;
  dirName := '';

  iOk := FindFirst('C:\Temp\*.*', faAnyFile, sr);
  while iOk=0 do begin
    if  ((sr.Attr and faDirectory) <> 0)
      and (sr.Name <> '.') and (sr.name <> '..') then
    begin
      inc(kDir); {увеличили счётчик директорий}
      if kDir=1 then dirName := sr.Name;
    end;
    iOk := FindNext(sr);
  end;
  FindClose(sr);

  Application.MessageBox(
    PChar(
     'Всего найдено директорий: '+IntToStr(kDir)+#13+#10+
     'Первая из них имеет имя: '+dirName),
     'Информация к размышлению', MB_ICONINFORMATION or MB_OK);

end;

[mt10forex]

спасибо Serge_Bliznykov, ткнул меня носом прям куда нужно!