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

Вниз

Как просто и быстро зарегистрировать расширение?   Найти похожие ветки 

 
@Ujin   (2002-10-06 15:41) [0]

Как просто и быстро зарегистрировать раширение и асоциировать его со своей программкой?


 
@Ujin   (2002-10-06 15:46) [1]

Ни кто не в курсе?


 
Ученик   (2002-10-06 16:00) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=sysiface&id=10189


 
Avsam   (2002-10-06 18:35) [3]

Посмотри ветку реестра HKEY_CLASSES_ROOT или
HKEY_LOCAL_MACHINE\SOFTWARE\Classes


 
brestmarket   (2002-10-07 01:15) [4]

Ребята, по указанной ссылке пример без иконки - как еще и иконку определенному типу сопоставить?


 
Внук   (2002-10-07 09:25) [5]

Ну ленивые :))
Посмотрите у себя в реестре по расширению, например, .doc (Word.Document.X), подраздел DefaultIcon


 
Viktor Kushnir   (2002-10-08 07:35) [6]

Лучше Notepad и .txt я на нем разбирался.


 
turusov   (2002-10-08 07:52) [7]

//Регистрировать иконку ассоциации. Иконка в ресурсах
procedure RegisterAssociatedIcon(const IconResourceName, TypeFileName: shortstring);
var
i: TIcon;
TempStr: string;
R: TRegIniFile;
S: String;
begin
i:= TIcon.Create;
try
SetLength(S,Length(IconResourceName)+5);
S:=Copy(IconResourceName, 1, 256);
i.Handle:= LoadIcon(hInstance,PChar(s));
TempStr:= IncludeTrailingBackslash(_GetWindowsDirectory)+IconResourceName+".ico";
i.SaveToFile(TempStr);
finally
i.Free;
end;

R:= TRegIniFile.Create("");
try
with R do begin
RootKey:= HKEY_CLASSES_ROOT;
WriteString("."+IconResourceName,"",IconResourceName);
WriteString(IconResourceName,"",TypeFileName);
WriteString(IconResourceName+"\DefaultIcon","",TempStr);
end;//with
finally
R.Free;
end;
end;

function _GetWindowsDirectory: string;
var
pcWindowsDirectory: PChar;
dwWDSize : DWORD;
begin
dwWDSize:= MAX_PATH + 1;
GetMem(pcWindowsDirectory, dwWDSize); // allocate memory for the string
try
if Windows.GetWindowsDirectory(pcWindowsDirectory, dwWDSize) <> 0 then Result:= pcWindowsDirectory
else Result:= "";
finally
FreeMem(pcWindowsDirectory); // now free the memory allocated for the string
end;
end;
Если что упустил обращайся


 
turusov   (2002-10-08 07:57) [8]

Использую, даже, в
procedure Register;
begin
RegisterComponents("Turusov", [TNsDublicateApplication]);
RegisterPropertyEditor(TypeInfo(string), TNsTextMessage,
"OutputFileName",TNsFilenameProperty);
RegisterPropertyEditor(TypeInfo(string), TNsMicrosoftAgentControl2,
"AgentFileName",TNsFilenameProperty);
RegisterAssociatedIcon(ag_ini, TNsDublicateApplication.ClassName);
end;


 
REA   (2002-10-08 11:54) [9]

А для чего? Инсталляторы это делают.



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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
1-27921
Kolya
2002-11-28 22:50
2002.12.09
Где скачать?


6-28165
Alex_win
2002-10-11 16:54
2002.12.09
перехват почты


14-28212
Александр Павлов
2002-11-17 05:59
2002.12.09
FindFirst( Украина Донецк Гуру.MAN ,faНеРедиска, Delphi + Beer );


1-28094
Comp
2002-11-25 20:05
2002.12.09
Почему файл остаётся пустым?


14-28246
vopros
2002-11-18 11:22
2002.12.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
Английский Французский Немецкий Итальянский Португальский Русский Испанский