Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

имя программы


Iris ©   (2008-09-24 12:16:00) 

Нужно получить имя запущенного приложения
(можно полный путь к нему + имя).
Как это можно сделать?


Iris   (2008-09-24 13:17:00) [1]

всем спасибо


Dennis I. Komarov   (2008-09-24 12:53:00) [2]


> Dennis I. Komarov ©   (24.09.08 12:38) [8]

+ если нужен '\' то пользуй ExtractFilePath


Vlad Oshin   (2008-09-24 12:39:00) [3]

ShowMessage(ExtractFilePath(Application.ExeName)+' + ' +ExtractFileName(Application.ExeName));


Dennis I. Komarov   (2008-09-24 12:38:00) [4]


> Fiery dragon ©   (24.09.08 12:29) [7]

IncludeTrailingPathDelimiter


{RASkov}   (2008-09-24 12:29:00) [5]

> [4] Fiery dragon ©   (24.09.08 12:24)

Сам придумал? :)


Fiery dragon   (2008-09-24 12:29:00) [6]

Интересно, а как культурно?


Dennis I. Komarov   (2008-09-24 12:27:00) [7]


> if Directory[Length(Directory)]<>'\' then Directory:=Directory+'\';

Фу, как не культурно...


Fiery dragon   (2008-09-24 12:24:00) [8]

var
Directory:Shortstring;

begin
Directory:=Application.ExeName;Directory:=ExtractFileDir(Directory);
if Directory[Length(Directory)]<>'\' then Directory:=Directory+'\';
end;


Поросенок Винни-Пух   (2008-09-24 12:19:00) [9]

(можно полный путь к нему + имя).

Вот и интересно что такое имя, если полный путь это не оно.


Правильный$Вася   (2008-09-24 12:18:00) [10]

Application.exename
ParamStr(0)


Поросенок Винни-Пух   (2008-09-24 12:17:00) [11]

Имя? а что это?


Наверх

Титульная страница Поиск, карта сайта Написать письмо