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

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

← →
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 - Это что ?

---

← →
alpet ©   (2005-07-22 13:34) [12]

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

---

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

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

---

← →
alpet ©   (2005-07-22 13:40) [14]

Насчет числа 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]

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

---

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

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



Память: 0.48 MB
Время: -0.974 c