Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 01:08 25.04.24 
Компютри и Интернет
   >> Delphi
Всички теми Следваща тема *Кратък преглед

Тема Как се слага линк на десен клавиш на W.explorer?  
Автор gydi (engineer)
Публикувано24.05.07 18:01



Как се слага програма(линк) при натискане на десен клавиш в windows explorer -a върху някой файл ?



Тема От регистратурата, разбира сенови [re: gydi]  
Автор andrew_nikoloff (bugbuster)
Публикувано25.05.07 11:35



Ако искаш да сложиш команда Print на файловете с разширение my_file_type, която да извиква твоя програма правиш следните ключове:

HKEY_CLASSES_ROOT\.my_file_type
HKEY_CLASSES_ROOT\.my_file_type\Shell
HKEY_CLASSES_ROOT\.my_file_type\Shell\Print
За Default слагаш "Print"
HKEY_CLASSES_ROOT\.my_file_type\Shell\Print\Command
За Default слагаш "C:\\Program Files\\My Program\\MyProgram.exe \"%1\" -print"

За пример виж какво има по останалите ключове там.



Тема Re: tenksнови [re: andrew_nikoloff]  
Автор gydi (engineer)
Публикувано25.05.07 16:26



....



Тема Re: сорс....нови [re: gydi]  
Автор gydi (engineer)
Публикувано25.05.07 17:14



uses Registry;

function RegisterFileTypeCommand(fileExtension, menuItemText, target: string) : boolean;
var
reg: TRegistry;
fileType: string;
begin
result := false;
reg := TRegistry.Create;
with reg do
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('.' + fileExtension, True) then
begin
fileType := ReadString('') ;
if fileType = '' then
begin
fileType := fileExtension + 'file';
WriteString('', fileType) ;
end;
CloseKey;
if OpenKey(fileType + '\shell\' + menuItemText + '\command', True) then
begin
WriteString('', target + ' "%1"') ;
CloseKey;
result := true;
end;
end;
finally
Free;
end;
end;

function UnRegisterFileTypeCommand(fileExtension, menuItemText: string) : boolean;
var
reg: TRegistry;
fileType: string;
begin
result := false;
reg := TRegistry.Create;
with reg do
try
RootKey := HKEY_CLASSES_ROOT;
if OpenKey('.' + fileExtension, True) then
begin
fileType := ReadString('') ;
CloseKey;
end;
if OpenKey(fileType + '\shell', True) then
begin
DeleteKey(menuItemText) ;
CloseKey;
result := true;
end;
finally
Free;
end;
end;
**************************

//Register ... use
RegisterFileTypeCommand('pas','Preview in Notepad','C:\WINDOWS\Notepad.exe') ;

//Unregister
UnRegisterFileTypeCommand('pas','Preview in Notepad') ;




Всички темиСледваща тема*Кратък преглед
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2024 Dir.bg Всички права запазени.