Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как изменить иконку файла с собственным разширения, Как изменить иконку файла с собственным  
:(
    Опции темы
VolMyr
Дата 17.7.2008, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Awaiting Authorisation
Сообщений: 15
Регистрация: 16.7.2008

Репутация: нет
Всего: нет
 smile  мне нужно чтобы файлы с разширеням *.bee имели индивидуальный вид, например картинка на которой нарисовано пчела. Как это сделать?
PM MAIL   Вверх
Qu1nt
Дата 17.7.2008, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
Код

uses
  Registry;

procedure AppRegister(const Ext, IconPath: string);
begin
  with TRegistry.Create do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    LazyWrite := False;
    OpenKey('.' + Ext + '\shell\open\command', True);
    WriteString('', Application.ExeName + ' "%1"');
    CloseKey;
    OpenKey('.' + Ext + '\DefaultIcon', True);
    WriteString('', IconPath);
    CloseKey;
    Free;
  end;
  SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(PChar('RegistrySection')));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AppRegister('bee', 'c:\bee.ico');
end;


Это сообщение отредактировал(а) Qu1nt - 18.7.2008, 08:04
PM MAIL   Вверх
VolMyr
  Дата 17.7.2008, 23:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Awaiting Authorisation
Сообщений: 15
Регистрация: 16.7.2008

Репутация: нет
Всего: нет
а как сделать так, чтобы я мог использовать нарисовану мною иконку, потому что даные файлы ипользуют стандартную иконку делфи-приложения?
PM MAIL   Вверх
VolMyr
Дата 18.7.2008, 00:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Awaiting Authorisation
Сообщений: 15
Регистрация: 16.7.2008

Репутация: нет
Всего: нет
...чтоби иконка приложения и иконка файла были разными
PM MAIL   Вверх
Qu1nt
Дата 18.7.2008, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
Отредактировал свой предыдущий пост. Не забудь поменять путь к иконке.
PM MAIL   Вверх
Alkash
Дата 18.7.2008, 08:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


коллекционер жизни
**


Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет
Нарисовать свою и использовать, как показано выше


--------------------
Подпись >> /dev/null
PM MAIL ICQ MSN   Вверх
THandle
Дата 18.7.2008, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
Цитата(Qu1nt @  17.7.2008,  19:15 Найти цитируемый пост)
    WriteString('', IconPath);
    CloseKey;
    Free;
  end;



CloseKey здесь не нужен, так как:

Код

destructor TRegistry.Destroy;
begin
  CloseKey;
  inherited;
end;
PM   Вверх
Qu1nt
Дата 18.7.2008, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 5
Всего: 50
THandle, угу, но вот примеры мы пишем, в первую очередь, для новичков smile 
PM MAIL   Вверх
uranpro
Дата 18.7.2008, 11:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Qu1nt, не работает код у меня(( мб из-за того, что я пытаюсь создать запись для уже созданного разрешения(txt, dpr, pas ...) ???


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
Poseidon
Дата 25.7.2008, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
А доступ к реестру есть? В смысле права есть на изменение записей реестра?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
uranpro
Дата 25.7.2008, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1
Poseidon, ыыы))) любой юзер может поменять записи в реестре


--------------------
I want a perfect soul
PM MAIL ICQ   Вверх
Poseidon
Дата 27.7.2008, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133
Цитата(uranpro @  25.7.2008,  17:50 Найти цитируемый пост)
Poseidon, ыыы))) любой юзер может поменять записи в реестре 
Да ну... Хотелось бы увидеть как юзер с правами гостя или хотя бы пользователя меняет что-то в ветке HKEY_LOCAL_MACHINE. 

Забегая сразу на перед скажу, что писать все только "для админов системы" - это плохой тон.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1093 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.