ini file

[Shouldercannon]

Сообщение от Devil9313

Да просто хочу чтобы данное расширение читала только моя программа

у меня ошибка в переменной
var
FList: TStringDynArray; все переместил в свой проект но почему то тут ошибка

добавь в Uses для своей версии Delphi

// Delphi 7
Types
// Delphi XE
System.Types

[Devil9313]

Спасибо

[northener]

Сообщение от Devil9313

Да просто хочу чтобы данное расширение читала только моя программа

А нифига вам это нужно? Текстовый файл прекрасно читается блокнотом независимо от расширения. Даже современная кухарка/домохозяйка легко сможет его прочитать. Не говоря уже о юных пионерах.

[digitalis]

Извините, если оффтоп, но вспомнился случай - ну прямо сюда (насчет расширений).
Уезжая в длительную командировку, оставил жене (теперь уж бывшей) ввиду ее безработности опр. сумму денег. Зная ее, чтоб не потратила враз, положил в разные места, которые она могла узнать, только запустив для этого написанный .exe - шник. Он сверял текущую дату с графиком и указывал места. Приезжаю - "а у меня совсем нет денег" - "так спроси у компа" - "ну я нашла этот .exe - шник, нажала F3 - и он мне сказал, что дата еще не наступила, но деньги там и вот там. Вот я их в тот же день..." .
Да, недооценил бывшую, хоть и не хватавшую звезд с неба, программистку Надо было сообщения в отдельный файл закинуть и зашифровать.

Sorry

[northener]

2 digitalis. Повторю банальную истину. "Бывших" программистов не бывает! Если у человека мозги заточены соответствующим образом, то они и будут так работать, даже если человек ушел с этой работы.

[digitalis]

Сообщение от northener

2 digitalis. Повторю банальную истину. "Бывших" программистов не бывает!

Да это бесспорно (Word поправил бы на "бес с порно"), это я по себе знаю. Хоть и на пенсии, а тянет постоянно замутить какую-нить прогу, хоть бы электронный кубик для игры с внуком в шеш-беш. Но бывают программисты по призванию (ну пускай даже - по ремеслу), а бывают (чаще -стки ) - по диплому и по графе в штатном расписании. Их удел - набивать исходники, форматировать дискеты (в те дремучие времена), печатать файлы техописаний. Мой случай - из этих.

[Devil9313]

Помогите пожалуйста мне нужно чтобы при ассоциации файлов настроек с программой к файлу настроек.vr присваивалась иконка не от программы а допустим которая лежит в папке с программой в папке ICON c названием VR.ico
Вот процедура ассоциации файла настроек с программой

procedure TForm1.AssociatFile;
var
 S: string;
 Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT; 

  Reg.OpenKey('.vr\OpenWithProgids\', True);
  Reg.WriteString('Settings.vr', '');

  Reg.OpenKey('\Settings.vr\DefaultIcon\', True);
  S := Application.ExeName + ',0';
  Reg.WriteString('', S);

  Reg.OpenKey('\Settings.vr\Shell\Open\', True);
  Reg.WriteString('', 'Открыть в My Program');

  Reg.OpenKey('command\', True);
  S := '"' + Application.ExeName + '" "%1"';
  Reg.WriteString('', S);

  Reg.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

[p51x]

Ну так и пишите нужное вам имя, а не имя вашей программы. Проблема в чем?

[Devil9313]

За место имени программы указывал путь до иконки но почему то не работает иконка на файле настроек не отображается

[JoLan]

Сообщение от Devil9313

За место имени программы указывал путь до иконки но почему то не работает иконка на файле настроек не отображается

Вложи в ресурсы самого приложения эту иконку и вместо ExeName+',0' указывай ExeName+',1'.

Вот так код ассоциации формата файла с приложением выглядит в моём проекте:

  Reg := TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  if (Reg.KeyExists('Software\Classes\.pck')) then Reg.DeleteKey('Software\Classes\.pck');
  Reg.OpenKey('Software\Classes\.pck',true);
  Reg.WriteString('FriendlyTypeName', 'Angelica File Package'); //описание формата в проводнике
  Reg.CloseKey;
  Reg.OpenKey('Software\Classes\.pck\shell\open',true);
  Reg.WriteString('', 'Редактировать архив в PCK Module'); //Имя действия по-умолчанию в контекстном меню файла
  Reg.WriteString('icon', ParamStr(0)+',0');
  Reg.CloseKey;
  Reg.OpenKey('Software\Classes\.pck\shell\open\command',true);
  Reg.WriteString('','"'+ParamStr(0)+'" "%1"'); //командная строка для действия по-умолчанию при двойном клике на файл
  Reg.CloseKey;
  Reg.OpenKey('Software\Classes\.pck\DefaultIcon',true);
  Reg.WriteString('',ParamStr(0)+',1'); //оффсет иконки
  Reg.CloseKey;
  Reg.Free;
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); //посылаем проводнику сообщение, что надо бы обновить ассоциации