Вниз
Скачать: CL | DM;

имя программы   Найти похожие ветки 

← →
Iris ©   (2008-09-24 12:16) [0]

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


← →
Поросенок Винни-Пух ©   (2008-09-24 12:17) [1]

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


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

Application.exename
ParamStr(0)


← →
Поросенок Винни-Пух ©   (2008-09-24 12:19) [3]

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

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


← →
Fiery dragon ©   (2008-09-24 12:24) [4]

var
Directory:Shortstring;

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


← →
Dennis I. Komarov ©   (2008-09-24 12:27) [5]


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

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


← →
{RASkov} ©   (2008-09-24 12:29) [6]

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

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


← →
Fiery dragon ©   (2008-09-24 12:29) [7]

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


← →
Dennis I. Komarov ©   (2008-09-24 12:38) [8]


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

IncludeTrailingPathDelimiter


← →
Vlad Oshin ©   (2008-09-24 12:39) [9]

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


← →
Dennis I. Komarov ©   (2008-09-24 12:53) [10]


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

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


← →
Iris ©   (2008-09-24 13:17) [11]

всем спасибо



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c
2-1222435595
workbench
2008-09-26 17:26
2008.11.02
Uninstall


2-1222244324
grav
2008-09-24 12:18
2008.11.02
Не работает переход по Tab


2-1222247658
Jiura
2008-09-24 13:14
2008.11.02
Как в Delphi скомпилировать Native DLL?


15-1221060690
keymaster
2008-09-10 19:31
2008.11.02
как избавиться от хинта?


2-1222246161
DevExpress
2008-09-24 12:49
2008.11.02
При задании фильтра вылетает ошибка:




   Наверх