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

← →
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]

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

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;
А тут не работает :-)

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

MaskList:= TStringList.Create;

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

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