Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Вниз

Аналог папки Fonts   Найти похожие ветки 

 
Nomolos   (2004-11-20 16:24) [0]

Мне необходимо:
а) Создать папку, открывающуюся в Explorer"е подобно WINDOWS\Fonts, т.е. ассоциировать определённую библиотеку dll с папкой (какова структура этой dll - ?, но Windows делает именно так).
б) Поместить ярлык на эту папку в "Панель управления".
Не знаю, каким оброзом. Возможно, вы знаете?


 
Alekc   (2004-11-20 17:16) [1]


> а) Создать папку, открывающуюся в Explorer"е подобно WINDOWS\Fonts,
> т.е. ассоциировать определённую библиотеку dll с папкой
> (какова структура этой dll - ?, но Windows делает именно
> так).

Нет, папка Windows\Fonts - это такая же папка на диске, как и Windows\System... ну или почти такая же...


 
VMcL ©   (2004-11-20 17:19) [2]

desktop.ini

[.ShellClassInfo]
UICLSID={BD84B380-8CA2-1069-AB1D-08000948F534}


HKEY_CLASSES_ROOT\CLSID\{BD84B380-8CA2-1069-AB1D-08000948F534}

[HKEY_CLASSES_ROOT\CLSID\{BD84B380-8CA2-1069-AB1D-08000948F534}]
@="Fonts"

[HKEY_CLASSES_ROOT\CLSID\{BD84B380-8CA2-1069-AB1D-08000948F534}\DefaultIcon]
@=hex(2):25,53,79,73,74,65,6d,52,6f,6f,74,25,5c,53,79,73,74,65,6d,33,32,5c,66,\
 6f,6e,74,65,78,74,2e,64,6c,6c,2c,2d,31,30,31,00

[HKEY_CLASSES_ROOT\CLSID\{BD84B380-8CA2-1069-AB1D-08000948F534}\Hierarchical]
@="0"

[HKEY_CLASSES_ROOT\CLSID\{BD84B380-8CA2-1069-AB1D-08000948F534}\InProcServer32]
@="fontext.dll"
"ThreadingModel"="Apartment"


 
Nomolos   (2004-11-20 21:52) [3]

А попподробнее? Кто такой fontext? Ресурсы? Чьи? Записи в реестре? Зачем? Какие? Как интерпритируются системой?


 
VMcL ©   (2004-11-20 23:48) [4]

>>Nomolos  (20.11.04 21:52) [3]

Подробнее, думаю, есть в MSDN.


 
#Master#   (2004-11-23 19:53) [5]

Для использования апплета измените его расширение с "dll" на "cpl" и поместите в системную директорию. Аплет(если ты не знаешь) - твоя прога в панеле инструментов. Вот тебе примерный кодик. Пользуйся!!!

library Project1; {Измените "program" на "library"}

uses
 Cpl, {используем модуль Cpl}
 Windows,
 Forms,
 Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

procedure ExecuteApp;
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end;

{Сallback-функция для экспорта в Панель Управления}

function CPlApplet(hwndCPl: THandle; uMsg: DWORD;
 lParam1, lParam2: LongInt): LongInt; stdcall;
var
 NewCplInfo: PNewCplInfo;
begin
 Result := 0;
 case uMsg of
   {Инициализация должна возвращать True.}
   CPL_INIT:
     Result := 1;
   {Число апплетов}
   CPL_GETCOUNT:
     Result := 1;
   {Помещаем информацию об этом апплете в Панель управления.}
   CPL_NEWINQUIRE:
     begin
       NewCplInfo := PNewCplInfo(lParam2);
       with NewCplInfo^ do
       begin
         dwSize := SizeOf(TNewCplInfo);
         dwFlags := 0;
         dwHelpContext := 0;
         lData := 0;
         {Иконка для отображения на Панели Управления.}
         hIcon := LoadIcon(HInstance, "MAINICON");
         {Имя апплета}
         szName := "Project1";
         {Описание этого апплета.}
         szInfo := "Это тестовый апплет.";
         szHelpFile := "";
       end;
     end;
   {Выполнение апплета.}
   CPL_DBLCLK:
     ExecuteApp;
 else
   Result := 0;
 end;
end;

{Экспортирование функции CplApplet}
exports
 CPlApplet;
begin

end.


 
Poirot ©   (2004-11-23 19:57) [6]

А аплет тут причём? илия недогоняю мысли?:)


 
#Master#   (2004-11-23 20:01) [7]

Poirot, ЧИТАЙ ВОПРОС ВНИМАТЕЛЬНО!!!



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.051 c
14-1103208751
}|{yk
2004-12-16 17:52
2005.01.09
Из журнала Мир Интернет


9-1092420346
JUS
2004-08-13 22:05
2005.01.09
С DelphiХ я незнаком хочу вникнуть,но ошибки меня сбивают с толку


1-1103714004
Автор333
2004-12-22 14:13
2005.01.09
Переход между компонентами?


14-1103610971
Kerk
2004-12-21 09:36
2005.01.09
Вторничная задачка


1-1103618080
paule
2004-12-21 11:34
2005.01.09
Проблема с переменной





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский