Текущий архив: 2002.09.12;
Скачать: 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 вся ветка
Текущий архив: 2002.09.12;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.013 c
