Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18

Вывести в Caption название текущей папки

17.02.2015, 15:37. Показов 3081. Ответов 35
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
C++
1
ShellExecute(NULL, L"open", ExtractFilePath(Application->ExeName).c_str(), NULL,NULL,SW_SHOWNORMAL);//открывает папку в которой находиться сам exe
Можно ли вывести название папки в caption кнопки чтобы получилось примерно вот так : Открыть Name Folder (Name Folder - имя папки) ?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.02.2015, 15:37
Ответы с готовыми решениями:

Узнать имя папки с exe-шником и вывести в caption
ShellApi.ShellExecute(Handle, 'open', PChar(ExtractFilePath(Application.ExeName)), nil, nil, SW_SHOW); Как узнать имя папки в которой...

Получить название файлов с 1-ой папки , со 2-ой папки и вывести. Неправильный вывод
Есть такая задача: получить название файлов с 1-ой папки , со 2-ой папки и вывести название тех файлов , которые отличают эти папки между...

Вывести на экран размер текущей папки (сумма всех файлов)
Вывести на экран размер текущей папки (сумма всех файлов). помогите пожалуйста,а то я в ассемблере вообще не понимаю... заранее...

35
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 16:04  [ТС]
Студворк — интернет-сервис помощи студентам
SatanaXIII, вы поняли хоть что хочу сделать? походу не совсем!

А где название папки в которой лежит exe ?
Ведь сказал нужно в caption отобразить Открыть Name Folder (Name Folder - это имя папки в которой лежит exe)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33456 / 21556 / 8248
Регистрация: 22.10.2011
Сообщений: 37,009
Записей в блоге: 12
18.02.2015, 16:18
Цитата Сообщение от Estidilarn Посмотреть сообщение
вы поняли хоть что хочу сделать?
"Да как же тебя понять, коли ты ничего не говоришь?" (С) "Иван Васильевич меняет профессию"

Объясни толком, что нужно - получишь объяснение как это сделать. Вот тебе пример полный путь к приложению:

D:\\test\\MyProgram\\exe\\project.exe

Что надо куда поместить (причем не "примерно как-то вот-так вот", а с точностью до СИМВОЛА), и что открыть?
0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 16:40  [ТС]
Цитата Сообщение от D1973 Посмотреть сообщение
С++ или русский?
C++
Цитата Сообщение от D1973 Посмотреть сообщение
Дык что сделать-то?
Задача
Не знаю как вы это все реализовывать будете, может что то и получиться у вас...

На форме есть MainMenu в MainMenu есть пункт: Открыть New Folder он должен автомат. определить имя папки даже если она была переименова (в которой он сам находиться exe) и вывести в caption (Открыть New Folder) название папки и должен её открывать если был произведен клик.

P.S
Должно быть так:
Зашли в MainMenu там есть пункт :нажали на Открыть New Folder и открылась папка где лежит exe


exe-файл находиться по адресу: С:\New Folder\File.exe
Открыть - это просто приставка она никак не должна изменяться
New Folder - это имя папки в которой лежит скомпилированный exe-файл
0
Почетный модератор
Эксперт С++
 Аватар для SatanaXIII
5851 / 2862 / 392
Регистрация: 01.11.2011
Сообщений: 6,906
18.02.2015, 16:44
Цитата Сообщение от Estidilarn Посмотреть сообщение
вы поняли хоть что хочу сделать? походу не совсем!
Не совсем это слабо сказано.

Цитата Сообщение от Estidilarn Посмотреть сообщение
А где название папки в которой лежит exe ?
В заголовке окна текущей программы. Это такая полосочка верху окна, где буковки всякие и кнопочки свенуть/развернуть/закрыть.

Цитата Сообщение от Estidilarn Посмотреть сообщение
Не знаю как вы это все реализовывать будете
Адиос.
1
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 16:49  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Объясни толком
написал более подробно
0
 Аватар для Lelik-pahan
1709 / 905 / 207
Регистрация: 25.11.2009
Сообщений: 1,858
18.02.2015, 17:09
ну попробую и я )

я так понял, тебе нужно не полное имя (абсолютный путь), а только имя конечной директории
C++
1
2
3
4
5
    String pathName = ExtractFileDir(ParamStr(0));
    while (pathName.Pos("\\"))
        pathName.Delete(1, pathName.Pos("\\"));
 
    ShowMessage(pathName);
вот так его можно получить.
0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 17:14  [ТС]
Цитата Сообщение от Lelik-pahan Посмотреть сообщение
ну попробую и я )
Толку от вашего кода

caption не меняется, папка не открывается
0
 Аватар для Lelik-pahan
1709 / 905 / 207
Регистрация: 25.11.2009
Сообщений: 1,858
18.02.2015, 17:15
Как открыть папку и менять Caption тебе уже 100 раз тут написали, мог бы сам переделать.


//это конструктор формы
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    String pathName = ExtractFileDir(ParamStr(0));
    while (pathName.Pos("\\"))
        pathName.Delete(1, pathName.Pos("\\"));
 
    MI_Open->Caption = "Îòêðûòü " + pathName;  //MI_Open - это имя пункта меню
}
//---------------------------------------------------------------------------
//это событие, возникающее при клике по пункту меню
void __fastcall TForm1::MI_OpenClick(TObject *Sender)
{
    ShellExecute(NULL, "open", ExtractFilePath(Application->ExeName).c_str(), NULL,NULL,SW_SHOWNORMAL);  //для старых версий билдера
    //ShellExecute(NULL, L"open", ExtractFilePath(Application->ExeName).w_str(), NULL,NULL,SW_SHOWNORMAL);  //для новых
}
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33456 / 21556 / 8248
Регистрация: 22.10.2011
Сообщений: 37,009
Записей в блоге: 12
18.02.2015, 17:18
C++
1
2
    String path = ExtractFileName(ExtractFileDir(ParamStr(0)));
    ShowMessage(path);
1
place status here
 Аватар для gunslinger
3192 / 2227 / 640
Регистрация: 20.07.2013
Сообщений: 6,026
18.02.2015, 17:24
Полагаю, нужно уточнить у ТС (мало ли что)

Если полный путь к ехе
E:\\Games\\Warcraft III\\war3.exe
то в пункте меню должно быть написано
Открыть Warcraft III
По нажатию на пункт меню требуется открыть директорию
E:\\Games\\Warcraft III
Так?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33456 / 21556 / 8248
Регистрация: 22.10.2011
Сообщений: 37,009
Записей в блоге: 12
18.02.2015, 17:29
gunslinger, оставь его, это просто тролль, я уже задавал этот вопрос - он остался без ответа. Чего ты решил, что тебе он ответит? Любой первоклассник бы уже написал код по тем фрагментам, которые тут выложили.

P.S. Don't feed the Troll
0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 17:35  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
String path = ExtractFileName(ExtractFileDir(ParamStr( 0)));
* * ShowMessage(path);
Мне окошко не не надо,
надо в caption компонента

Добавлено через 51 секунду
Цитата Сообщение от gunslinger Посмотреть сообщение
Открыть Warcraft III
да так

Добавлено через 1 минуту
Цитата Сообщение от volvo Посмотреть сообщение
я уже задавал этот вопрос - он остался без ответа
какой вопрос ? я дал ответ что надо сделать!

Добавлено через 45 секунд
Цитата Сообщение от volvo Посмотреть сообщение
Объясни толком, что нужно - получишь объяснение как это сделать. Вот тебе пример полный путь к приложению
Задача
Не знаю как вы это все реализовывать будете, может что то и получиться у вас...

На форме есть MainMenu в MainMenu есть пункт: Открыть New Folder он должен автомат. определить имя папки даже если она была переименова (в которой он сам находиться exe) и вывести в caption (Открыть New Folder) название папки и должен её открывать если был произведен клик.

P.S
Должно быть так:
Зашли в MainMenu там есть пункт :нажали на Открыть New Folder и открылась папка где лежит exe


exe-файл находиться по адресу: С:\New Folder\File.exe
Открыть - это просто приставка она никак не должна изменяться
New Folder - это имя папки в которой лежит скомпилированный exe-файл

Добавлено через 2 минуты
Цитата Сообщение от gunslinger Посмотреть сообщение
E:\\Games\\Warcraft III
Можете и этот вариант сделать если вас не затруднит
0
Модератор
 Аватар для D1973
9945 / 6480 / 2460
Регистрация: 21.01.2014
Сообщений: 27,462
Записей в блоге: 3
18.02.2015, 17:47
Так, попытаюсь и я...
Попытка - не пытка. Л.Берия
1.
Цитата Сообщение от Estidilarn Посмотреть сообщение
На форме есть MainMenu
Единственное, что понятно на 100%
2.
Цитата Сообщение от Estidilarn Посмотреть сообщение
в MainMenu есть пункт: Открыть New Folder он должен автомат. определить имя папки даже если она была переименова (в которой он сам находиться exe)
Остановимся тут чуть-чуть подольше...
Вопрос 1.
в которой он сам находиться exe
Что это за ехе?
а) Это исполняемый файл твоего проекта?
б) Это просто какая-то левая программа, которую ты хочешь запустить из своего приложения?
в) Не знаю...
Вопрос 2.
даже если она была переименова
а) Ты предлагаешь искать какой-то файл File.exe по всему винчестеру и забирать в переменную имя папки, в которой он лежит?
б) Ты знаешь точно, где лежит файл File.exe?
в) Не знаю...
3.
Цитата Сообщение от Estidilarn Посмотреть сообщение
вывести в caption (Открыть New Folder) название папки
а) Caption должен влючать полный путь к папке?
б) Caption должен включать только каталог последнего уровня без имени exe-файла?
в) Caption должен включать только каталог последнего уровня с именем exe-файла?
г) Не знаю...

Ответь на вопросы вышепреведенного теста, тогда господам форумчанам будет более понятно, что ты хочешь и хочешь ли вообще...
0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 17:52  [ТС]
Цитата Сообщение от D1973 Посмотреть сообщение
Так, попытаюсь и я.
Можете даже исходник не смотреть просто exe проекта запустить
Там всё ясно чего хотел

P.S
Здесь за место полного пути показывает конечную папку в caption
Хотелось бы посмотреть ваш вариант
Вложения
Тип файла: rar test_code.rar (1.81 Мб, 8 просмотров)
0
0 / 0 / 0
Регистрация: 17.02.2015
Сообщений: 18
18.02.2015, 18:34  [ТС]
Цитата Сообщение от D1973 Посмотреть сообщение
Что это за ехе?
Цитата Сообщение от D1973 Посмотреть сообщение
даже если она была переименова
exe проекта
Цитата Сообщение от D1973 Посмотреть сообщение
Ты знаешь точно, где лежит файл File.exe?
Да знаю,в папке где лежит exe проекта
Цитата Сообщение от D1973 Посмотреть сообщение
Caption должен влючать полный путь к папке?
Можно полный путь

Добавлено через 33 секунды
Цитата Сообщение от D1973 Посмотреть сообщение
Ответь на вопросы вышепреведенного теста, тогда господам форумчанам будет более понятно, что ты хочешь и хочешь ли вообще...
Ответы даны!
0
 Аватар для Lelik-pahan
1709 / 905 / 207
Регистрация: 25.11.2009
Сообщений: 1,858
19.02.2015, 09:29
Цитата Сообщение от volvo Посмотреть сообщение
String path = ExtractFileName(ExtractFileDir(ParamStr( 0)));
ShowMessage(path);
Что-то я и не додумался, что директория - это тоже файл. Искал функцию на подобии ExtractDirName :-)



Estidilarn, с учётом поправки volvo вот этот код. Всего три строчки! что сложного? скажи, что у тебя тут не работает?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//это конструктор формы
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    String pathName = ExtractFileName(ExtractFileDir(ParamStr(0)));
    MI_Open->Caption = "Открыть " + pathName;  //MI_Open - это имя пункта меню
}
//---------------------------------------------------------------------------
//это событие, возникающее при клике по пункту меню
void __fastcall TForm1::MI_OpenClick(TObject *Sender)
{
    ShellExecute(NULL, "open", ExtractFilePath(Application->ExeName).c_str(), NULL, NULL, SW_SHOWNORMAL);  //для старых версий билдера
    //ShellExecute(NULL, L"open", ExtractFilePath(Application->ExeName).w_str(), NULL, NULL, SW_SHOWNORMAL);  //для новых
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.02.2015, 09:29

Вывести название папки и файла
Подскажите как вывести название папки ?

Название файла из label.caption в savedialog
Нужна помощь! сам я студент, но многого ещё не понимаю... Мне бы надо сделать так, чтоб savedialog сам брал текст из Label1.caption и...

Переменная текущей папки
Есть код Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "D:\Programs\off.bat", 0 Set oShell =...

Запуск из текущей папки
Приветвствую коллеги. Имеется наличии аленький исполняемый файл. В нем указан путь откуда нужно запускать *.exe и с каким ключем. Как...

Связь с данными из текущей папки
Привет всем любителям Access. Я импортировал таблицу из другой базы данных В её свойствах прописан адрес, откуда она берёт данные ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
36
Ответ Создать тему
Новые блоги и статьи
После бана на Пикабу не работает авторизация аккаунта с Яндекса.
Hrethgir 09.07.2026
В частности https:/ / auto. ru/ logbook/ zapret-na-vozhdenie-posle-65-let_1cf28789-07b4-4c75-a2f7-4cd4edf9deeb тут хотел оставить комментарий такой Зрите в корень - монополизация на разработку программ. . .
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude
MaGz GoLd 08.07.2026
Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker)
anaschu 07.07.2026
Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе
kumehtar 06.07.2026
Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii.
dcc0 05.07.2026
Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию
Maks 05.07.2026
Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв
anaschu 04.07.2026
200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле?
kumehtar 03.07.2026
Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru