Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.10;
Скачать: CL | DM;

Вниз

Путь к файлу   Найти похожие ветки 

 
Striker ©   (2002-05-29 09:37) [0]

Мастера подскажите как получить полный путь директории где запустилось моя прога.


 
Ally ©   (2002-05-29 09:40) [1]

GetCurrentDirectory() - The GetCurrentDirectory function retrieves the current directory for the current process.


 
Lord Warlock ©   (2002-05-29 09:44) [2]

ParamStr(0)


 
Dimka Maslov ©   (2002-05-29 09:47) [3]

ExtractFilePath(Application.ExeName);
ExtractFilePath(ParamStr(0));


 
Anatoly Podgoretsky ©   (2002-05-29 09:52) [4]

Эпидемию FindFirst вроде как побороли, теперь идет эпидемия своего пути


 
Кулюкин Олег ©   (2002-05-29 10:54) [5]

Пора в ФАК добавить


 
antonyo   (2002-05-29 11:08) [6]

Помнится и мне такое!!!
var s:string;
s:=application.exename;
while s[length(s)]<>"\" do
begin
setlength(s,length(s)-1);
end;
После всего этого бреда s будет содержать директорию типа
s:="c:\programfiles\example\"


 
yozhik   (2002-05-29 11:20) [7]

используй ExtractFileDir(Application.ExeName)


 
yozhik   (2002-05-29 11:26) [8]

для более корректного получения дирректории, я использую такую ф-цию.

function GetPath(sFileName:string):string;
begin
Result := ExtractFileDir(sFileName);
if Length(Result)>3 then
Result := Result +"\";
end;


 
Anatoly Podgoretsky ©   (2002-05-29 11:27) [9]

Кулюкин Олег © (29.05.02 10:54)
Так тогда придется все функции добавлять, а такой фак уже есть, называется Дельфи хелп, речь видимо идет о переводе справовочной системы на русский язык



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

Текущий архив: 2002.06.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
3-30726
ват
2002-05-18 16:26
2002.06.10
импорт таблицы EXCEL


6-30950
LiNkS
2002-03-29 23:20
2002.06.10
Изменить IP-адрес при отправки почты.


4-31043
BigError
2002-04-07 15:53
2002.06.10
Это вообще возможно реализовать?


1-30866
dimich
2002-05-29 14:37
2002.06.10
Вопрос про иконки!!!!


3-30732
sizmrebi
2002-05-18 12:31
2002.06.10
Stoperd Procedure