Передача параметров программе
Добавлено: 08 май 2005, 20:15
Люди , помогите если кто знает.Мне нужно , чтобы при нажатии строки в контекстном меню , файл запускался в моей программе , но мне нужно получить пути к выделенным файлам . Если файл один , то путь к нему передается как параметр, а вот как получить пути к нескольким файлам?Ниже преведен мой код создания строки в контекстном меню для моего расширения. Если я открываю несколько файлов , то открывается несколько моих программ и каждой передается один путь.
Код: Выделить всё
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.LazyWrite := false;
reg.OpenKey(edit2.Text+'\shell\open\command', true);
reg.WriteString('', application.ExeName+' %1');
reg.CloseKey;
reg.OpenKey(edit2.text+'\DefaultIcon',true);
reg.WriteString('', application.ExeName+',0');
reg.CloseKey;
reg.free;
end;
//В edit2 у меня расширение которое надо зарегистрировать