Узнать имя папки с exe-шником и вывести в caption

@Oriamalannge · Регистрация: 04.06.2016

Author24 — интернет-сервис помощи студентам

Delphi

1	ShellApi.ShellExecute(Handle, 'open', PChar(ExtractFilePath(Application.ExeName)), nil, nil, SW_SHOW);

Как узнать имя папки в которой лежит EXE-файл и вывести его в caption MainMenu (N4.Caption:='Пункт меню'

?

@northener · 04.06.2016, 20:30

А почему вопрос задается сразу после ответа на него?

@Oriamalannge · 04.06.2016, 20:35 **[ТС]**

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

А почему вопрос задается сразу после ответа на него?

Это только открывает папку
Вопрос только как узнать имя и вывести в caption его

@northener · 04.06.2016, 21:12

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

ExtractFilePath(Application.ExeName)

Это и есть имя папки.

@Oriamalannge · 04.06.2016, 21:17 **[ТС]**

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

Это и есть имя папки

А как его caption вывести ?

Вот это выводит имя самого exe-шника !

Delphi

1	AppOpenFolder.Caption := ExtractFileName(Application.ExeName);

@northener · 04.06.2016, 21:56

А то же самое но с ExtractFilePath выведет имя папки.

@Oriamalannge · 04.06.2016, 22:06 **[ТС]**

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

А то же самое но с ExtractFilePath выведет имя папки

Мне нужно вывести только конечную папку а не весь путь!

Подробнее
С:\Folder\Folder2\Folder3\File.exe

Folder3\File.exe <- Только это нужно вывести а не целый путь !

@northener · 04.06.2016, 22:45

Delphi

1	ExtractFileName(ExtractFileDir(Application.ExeName))+'\'+ExtractFileName(Application.ExeName)

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	04.06.2016, 20:30	2
	А почему вопрос задается сразу после ответа на него? 0

@Oriamalannge 0 / 0 / 0 Регистрация: 04.06.2016 Сообщений: 4
	04.06.2016, 20:35 [ТС]	3
	Сообщение от northener А почему вопрос задается сразу после ответа на него? Это только открывает папку Вопрос только как узнать имя и вывести в caption его 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	04.06.2016, 21:12	4
	Сообщение от Oriamalannge ExtractFilePath(Application.ExeName) Это и есть имя папки. 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	04.06.2016, 21:56	6
	А то же самое но с ExtractFilePath выведет имя папки. 0

@Oriamalannge 0 / 0 / 0 Регистрация: 04.06.2016 Сообщений: 4
	04.06.2016, 22:06 [ТС]	7
	Сообщение от northener А то же самое но с ExtractFilePath выведет имя папки Мне нужно вывести только конечную папку а не весь путь! Подробнее С:\Folder\Folder2\Folder3\File.exe Folder3\File.exe <- Только это нужно вывести а не целый путь ! 0

	04.06.2016, 22:45