Mega Code Archive

 

Categories / Delphi / System

 

[] Dosyaların sağ tuş menusune programım ile aç ekleme [scan with norton antivirus gibi]

{Aşağıdaki kod, uzantılı-uzantısız tüm dosyaların menusunde Benimle aç seçeneğinin görünmesini sağlar. Sadece tek bir uzantıdaki dosyalarda görünmesini istiyorsanız * yerine uzantıyı yazın. (Ör:'.mp3\shell\Benimle aç\command') Programınızın açılmasını sağlayan dosya nın yolu ve adı 1 numaralı parametre olarak ("Paramstr(1)")gelir (%1 sayesinde).} Var regist:TRegistry; Begin Try Regist:=TRegistry.Create; regist.RootKey:=HKEY_CLASSES_ROOT; if regist.openkey('*\shell\Benimle aç\command',true) then Regist.WriteString('','C:\Program\program.exe'+' %1'); Finally regist.free; end; end;