| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Текущий путь в проводнике. [D6, Win2k]
Dmitriy Polskoy © (2002-09-02 15:14:00)Уважаемые программеры подскажите как определить текущий путь в проводнике. Задача следующая: на все TXT-файлы в реестре я повесил свою программу, которая, например, находится в корне диска С:\. При нажатии правой кнопки мыши по TXT-файлу я выбираю свою прогу из контекстного меню. Так вот, внутри проги мне нужно получить путь к каталогу, в котором находился тот самый TXT- файл. Спасибо.
Dmitriy Polskoy (2002-09-02 16:08:00) [1]Прошу прощения. Это у меня от постоянного программерства уже глюки.
Ученик (2002-09-02 16:04:00) [2]Вообще то его создавать надо
MaskList:= TStringList.Create;
Dmitriy Polskoy (2002-09-02 16:03:00) [3]
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 15:56:00) [4]Хочет и работает :-)
Dmitriy Polskoy (2002-09-02 15:53:00) [5]Спасибо. Еще вопрос - почему в программе без формы не хочет работать TStringList?
Dmitriy Polskoy (2002-09-02 15:50:00) [6]
> Ученик © (02.09.02 15:44)
Ну, а в контексте нового понимания :-)
Ученик (2002-09-02 15:49:00) [7]В реестре после названия программы необходимо написать %1 и использовать ParamStr(1)
Ученик (2002-09-02 15:44:00) [8]>Dmitriy Polskoy © (02.09.02 15:41)
Да, я неправильно понял вопрос
Dmitriy Polskoy (2002-09-02 15:41:00) [9]2 Ученик
Или я не могу понять пример или это немного не то.
2 Ekaterina
Ничего не возвращается.
Ekaterina (2002-09-02 15:25:00) [10]if ParamCount>0 then path:=ExtractFilePath(ParamStr(1));
Ученик (2002-09-02 15:20:00) [11]Delphi6\Demos\ActiveX\ShellExt
| |
