Создание расширения

← →
Gaffer (2005-04-16 18:53) [0]

1)не подскажите компанент для создания расширения?
2)как зарегистрировать за своей прогой новое расширение?
3)дайте хотя бы ссылку.
Заранее спасибо!

← →
Ученик (2005-04-16 19:52) [1]

самое простое, запустить regedit

посмотреть содержимое

HKEY_CLASSES_ROOT\.txt
HKEY_CLASSES_ROOT\txtfile\shell\open\command

для своего расширения сделать то же самое

← →
DARKir © (2005-04-16 20:02) [2]

Если нужно только для работы с этой программой, создай файл с этим расширением, а уже в программе опиши как текстовый или какой там тебе надо...

← →
Anatoly Podgoretsky © (2005-04-16 20:25) [3]

Компонент это слишком, хватит и функции Random в цикле

← →
Экспериментатор (2005-04-17 14:52) [4]

Например

unit uRegFile; interface uses Registry; procedure RegisterFileType(FileType, FileTypeName, Description : string; IconID : integer; ExecCommand:string); implementation uses Windows, SysUtils; procedure RegisterFileType(FileType, FileTypeName, Description : string; IconID : integer; ExecCommand:string); begin if (FileType="") or (FileTypeName="") or (ExecCommand="") then exit; if FileType[1]<>"." then FileType:="."+FileType; if Description="" then Description:=FileTypeName; with TRegIniFile.create do try RootKey := HKey_Classes_Root; WriteString(FileType, "", FileTypeName); WriteString(FileTypeName, "", Description); WriteString(FileTypeName + "\DefaultIcon", "" , ExecCommand+","+IntToStr(IconID)); WriteString(FileTypeName + "\shell\open\command","", ExecCommand+" "%1""); finally Free; end; end; end.

Функцию использовать например так:

RegisterFileType("app","MyApp.File", "MyApp", 0, ParamStr(0));

← →
Экспериментатор (2005-04-17 14:52) [5]

Удалено модератором

← →
Экспериментатор (2005-04-17 14:53) [6]

Пардон за дубль

← →
Экспериментатор (2005-04-17 14:58) [7]

Удалено модератором

Создание расширения Найти похожие ветки