Вниз
Скачать: 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.011 c
2-1222028467
programmer90
2008-09-22 00:21
2008.11.02
Проблема с маской


15-1220940925
Ламо777
2008-09-09 10:15
2008.11.02
3D в вебе


11-1195121648
Альберт
2007-11-15 13:14
2008.11.02
при установки kol не найден exptintf.dcu


2-1222216922
Lamer6666
2008-09-24 04:42
2008.11.02
Zeos+MySQL


15-1220608809
quake
2008-09-05 14:00
2008.11.02
Тип файла




   Наверх