Главная страница
    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.45 MB
Время: 0.005 c
1-30883
Nickolay
2002-05-28 15:13
2002.06.10
Как указать PAGECONTROL что бы закладки были с права?


6-30937
Kuzmich
2002-03-28 16:01
2002.06.10
Как работать с БД из Веб-сервиса?


7-31023
vajo
2002-03-15 18:37
2002.06.10
Рабочий стол


1-30859
Erlan
2002-05-29 15:20
2002.06.10
Насчет Bitmap


1-30821
undo
2002-05-29 18:03
2002.06.10
возможно ли запустить процесс асинхронно с помощью Create procces





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский