Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.02 c
3-35621
NIKI
2002-08-20 16:27
2002.09.12
CheckListBox


1-35801
VladP
2002-08-31 19:50
2002.09.12
Где ж его взять? (resource not found)


1-35712
Markiz
2002-09-02 17:45
2002.09.12
!!!


1-35720
dim-
2002-08-31 20:29
2002.09.12
Как работать с DrawGrid?


1-35733
АлексейТр
2002-08-30 13:14
2002.09.12
InstallShield - подскажите где найти русское руководство?