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

Вниз

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

 
aslanbek   (2008-10-09 13:46) [0]

Как узнать путь файла, который был открыт последним.
Например Я нажимаю на файл и открывается моя программа, а моя программа должна определить путь того файла.

Никак не смог додуматься


 
Сергей М. ©   (2008-10-09 13:53) [1]

Полный путь к файлу передается тебе 1-ым параметром ком.строки запуска твоего приложения.

Доступ к ком.строке осущ-ся с пом. ф-ции ParamStr()


 
Ega23 ©   (2008-10-09 14:03) [2]


program Project2;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
 i : Integer;

begin

 for i:=0 to ParamCount do
   WriteLn("Param("+IntToStr(i)+") = " + ParamStr(i));
 ReadLn;
end.


 
aslanbek   (2008-10-09 14:14) [3]

Нет нет, вы не так поняли меня, мне не надо путь приложения, мне надо путь файла.

Например у меня два файла 2.aud и table_form_100.00.exe.

Я нажимаю на 2.aud  и открывается table_form_100.00.exe. и мне нужен путь 2.aud .


 
MBo ©   (2008-10-09 14:17) [4]

Испытай данные тебе советы в своей программе table_form_100.00.exe


 
Ega23 ©   (2008-10-09 14:21) [5]


> Нет нет, вы не так поняли меня, мне не надо путь приложения,
>  мне надо путь файла.


Всё мы так поняли.
Открытие файла 2.aud с помощью файла table_form_100.00.exe  с точки зрения ОС будет выглядеть

C:\Что-что-там\table_form_100.00.exe Полный_путь_к_открываемому_файлу\2.aud

Соответственно, ParamStr(0) даст тебе полное имя exe.
ParamStr(1) - даст полное имя 2.aud

А вот что будет, если в полном пути к 2.aud есть пробелы и как это побороть - это уже отдельная песня.


 
aslanbek   (2008-10-09 14:29) [6]

Работает, СПАСИБО ВАМ ОГРОМНОЕ,
Да действительно я брал результаты ParamStr(0), а оказывается надо ParamStr(1). СПАСИБО


 
Anatoly Podgoretsky ©   (2008-10-09 15:30) [7]

> aslanbek  (09.10.2008 14:29:06)  [6]

Это ты эту программу пытаешься защитить?



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

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

Наверх




Память: 0.48 MB
Время: 0.009 c
15-1221674501
Subzero
2008-09-17 22:01
2008.11.16
Intel® Threading Building Blocks


2-1223490086
AlexDan
2008-10-08 22:21
2008.11.16
Системный реестр..


2-1223362300
123-ий
2008-10-07 10:51
2008.11.16
Экранирование одинарной кавычки


15-1221678183
@!!ex
2008-09-17 23:03
2008.11.16
Программа для создания врапперов


11-1195726026
Vinum
2007-11-22 13:07
2008.11.16
Вопрос по Canvas