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

← →
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]

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

всем спасибо

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