Контекстное меню

[Михаил Юрьевич]

Мой текстовый редактор стал для текстовых файлов по умолчанию,но раньше при нажатии на рабочем столе правой кнопкой мыши открывалось контекстное меню,и там на вкладке создать можно было выбрать "блокнот" для создания
текстового файла. Подскажите как програмно можно добавить в это меню свою программу для создания текстового файла,
И как програмно вернуть по умолчанию Блокнот,но не просто связать его с текстовыми файлами,а что бы он как и раньше отоброжался в контекстном меню.

[BaronTreep]

HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\D iscardable\PostSetup\ShellNew

В реестре находится список новых файлов.

Аналогичный вопрос - будет ли работать такой код:

uses ..., Registry;

...

var
  RegIni : TRegIniFile;
begin
  RegIni := TRegIniFile.Create('Software');
  RegIni.RootKey:=HKEY_CURRENT_USER;
  RegIni.OpenKey('Software', true);
  RegIni.OpenKey('Microsoft', true);
  RegIni.OpenKey('Windows', true);
  RegIni.OpenKey('CurrentVersion', true);
  RegIni.OpenKey('Explorer', true);
  RegIni.OpenKey('Discardable', true);
  RegIni.OpenKey('PostSetup', true);
  RegIni.WriteString('ShellNew', '***','lisp.lsp');  //Что сюда нужно записать точно?
  RegIni.Free;
end;

[Kotofff]

Сообщение от Михаил Юрьевич

Мой текстовый редактор стал для текстовых файлов по умолчанию,но раньше при нажатии на рабочем столе правой кнопкой мыши открывалось контекстное меню,и там на вкладке создать можно было выбрать "блокнот" для создания
текстового файла. Подскажите как програмно можно добавить в это меню свою программу для создания текстового файла,
И как програмно вернуть по умолчанию Блокнот,но не просто связать его с текстовыми файлами,а что бы он как и раньше отоброжался в контекстном меню.

Немного теории с применением реестра : http://forum.sources.ru/index.php?showtopic=272244
Там обрати внимание на приведенную функцию получения каталога Windows - убережешь себя от глюков при использовании ...

[Hottabych]

Еще один вопрос: как передать своей программе параметры?
Например, выделяем файлы и через контекстное меню проводника отправляем в мою программу...
Как программе получить список имен файлов?

[Evgeniy26]

http://www.programmersforum.ru/showthread.php?p=278574

[Neeter]

как передать своей программе параметры?

Есть такая функция ParamCount - возвращает количество параметров.
Есть еще одна функция ParamStr(index: integer) - возвращает переданный параметр по индексу.
ParamStr(0) - путь к Exe-файлу программы, так что его не считаем.
Вот пример:

procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 if ParamCount <> 0 then
  for i := 1 to ParamCount do   //Начинаем с единицы
   ListBox1.Items.Add(ParamStr(i));
end;