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

Текущий путь в проводнике.   Найти похожие ветки 

← →
Dmitriy Polskoy ©   (2002-09-02 15:14) [0]

Уважаемые программеры подскажите как определить текущий путь в проводнике. Задача следующая: на все TXT-файлы в реестре я повесил свою программу, которая, например, находится в корне диска С:\. При нажатии правой кнопки мыши по TXT-файлу я выбираю свою прогу из контекстного меню. Так вот, внутри проги мне нужно получить путь к каталогу, в котором находился тот самый TXT- файл. Спасибо.

---

← →
Ученик ©   (2002-09-02 15:20) [1]

Delphi6\Demos\ActiveX\ShellExt

---

← →
Ekaterina ©   (2002-09-02 15:25) [2]

if ParamCount>0 then path:=ExtractFilePath(ParamStr(1));

---

← →
Dmitriy Polskoy ©   (2002-09-02 15:41) [3]

2 Ученик
Или я не могу понять пример или это немного не то.

2 Ekaterina
Ничего не возвращается.

---

← →
Ученик ©   (2002-09-02 15:44) [4]

>Dmitriy Polskoy © (02.09.02 15:41)
Да, я неправильно понял вопрос

---

← →
Ученик ©   (2002-09-02 15:49) [5]

В реестре после названия программы необходимо написать %1 и использовать ParamStr(1)

---

← →
Dmitriy Polskoy ©   (2002-09-02 15:50) [6]

> Ученик © (02.09.02 15:44)

Ну, а в контексте нового понимания :-)

---

← →
Dmitriy Polskoy ©   (2002-09-02 15:53) [7]

Спасибо. Еще вопрос - почему в программе без формы не хочет работать TStringList?

---

← →
Ученик ©   (2002-09-02 15:56) [8]

Хочет и работает :-)

---

← →
Dmitriy Polskoy ©   (2002-09-02 16:03) [9]

procedure Activate;
var
Str: string[8];
MaskList: TStringList;
begin
GetMem(APath, 200);
GetCurrentDirectory(200, APath);

AssignFile(DataFile,"c:\Data.ini");
Reset(DataFile);

while not Eof(DataFile) do
begin
Readln(DataFile, Str);
MaskList.Add(Str);
end;//while
CloseFile(DataFile);
end;
А тут не работает :-)

---

← →
Ученик ©   (2002-09-02 16:04) [10]

Вообще то его создавать надо

MaskList:= TStringList.Create;

---

← →
Dmitriy Polskoy ©   (2002-09-02 16:08) [11]

Прошу прощения. Это у меня от постоянного программерства уже глюки.

---

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

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



Память: 0.47 MB
Время: 0.017 c