Имя запускаемого файла.

← →
Gear (2005-07-22 11:05) [0]

Добрый день! Подскажите как узнать в запущенной консольной программе узнать имя её exe-файла?

← →
GLFox © (2005-07-22 11:14) [1]

ParamStr(0)

← →
Gear (2005-07-22 11:34) [2]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
writeln(ParamStr(0));
end.

ничего не выводит :(

← →
GLFox © (2005-07-22 11:39) [3]

Что значит ничего... Так не бывает.

← →
Чапаев © (2005-07-22 11:42) [4]

Сисутилсы зачем?
В конце ReadLn поставь...

← →
Anatoly Podgoretsky © (2005-07-22 11:59) [5]

Чапаев © (22.07.05 11:42) [4]
Лишнее

← →
Ботвин Дмитрий (2005-07-22 12:09) [6]

ExtractFileName(Application.ExeName) не катит?

← →
R768 (2005-07-22 12:17) [7]

GetModuleFileNameStr
??

← →
Чапаев © (2005-07-22 12:27) [8]

> Лишнее
ReadLn? Лишнее. Но для таких горе-писателей без него -- никак.

← →
Digitman © (2005-07-22 12:53) [9]

> консольной

а какая разница, консольная она у тебя или не консольная ?

надо понимать, если бы не консольной она была, то решение тебе известно ?

← →
alpet © (2005-07-22 13:02) [10]

[2] - лучший из возможных вариант.
Еще можно так (ala WinAPI):
function ExeName: string; var pstr: array [0..395] of char; begin GetModuleFileName (GetModuleHandle (0), pstr, 396); result := pstr; end;

← →
Fay © (2005-07-22 13:31) [11]

2 alpet © (22.07.05 13:02) [10]
395 - Это что ?

Fay © (22.07.05 13:31) [11]
Фиг знает, скопировал из имеющегося источника программ. Может в ранних осях это бы предел на "длинное имя файла" + "путь к нему".

Глянул в MSDN - GetModuleHandle вобщем не нужно, заместо него 0.

Насчет числа 395 загадка, т.к. MAX_PATH = 260.

← →
Ботвин Дмитрий (2005-07-22 14:43) [15]

Да вы чё? код

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

begin
writeln(ParamStr(0));
end.

рабочий!!! Я сам тока что проверил :-)))

← →
Gear (2005-07-22 14:44) [16]

да...сорри сглючило ..всё работает, спасибо!

Имя запускаемого файла. Найти похожие ветки