. txt uzantılı dosyaya kliklediğimizde Notepad bu dosya ile açılır. . xyz uzantlı bir dosya da üzerine kliklediğimizde bizim yazacağımız xyzPad editöründe açılsın bunun için xyzPad programı. xyz uzantılı dosyalarını nasil tanimlamalı ve nasil kaydetmeli. Yanı bu dosyanın neresine shell(&quot;xyzPad. exe &quot;,1) kodunu yazıp gömeceğiz. Hadi bunu yaptık dosya xyzPad'e nasil beni aç komutunu çalıştırdacak. Bu konuda bilgisi olan varsa lütfen fikrini söylesin.

end sub koymayi unutma

yeni bir projeye yeni bir module ekle, bu modulun icine bunlari koy ' MODULE Declare Function RegCreateKey Lib &quot;advapi32. dll&quot; Alias _ &quot;RegCreateKeyA&quot; As Long Declare Function RegSetValue Lib &quot;advapi32. dll&quot; Alias _ &quot;RegSetValueA&quot; As Long Public Const ERROR_SUCCESS = 0&amp; Public Const ERROR_BADDB = 1&amp; Public Const ERROR_BADKEY = 2&amp; Public Const ERROR_CANTOPEN = 3&amp; Public Const ERROR_CANTREAD = 4&amp; Public Const ERROR_CANTWRITE = 5&amp; Public Const ERROR_OUTOFMEMORY = 6&amp; Public Const ERROR_INVALID_PARAMETER = 7&amp; Public Const ERROR_ACCESS_DENIED = 8&amp; Public Const HKEY_CLASSES_ROOT = &amp;H80000000 Public Const MAX_PATH = 260&amp; Public Const REG_SZ = 1 ' Form`a bir button koy, ve formun koduna da sunu ekle ' FORM Private Sub Command1_Click Dim sKeyName As String 'Holds Key Name in registry. Dim sKeyValue As String 'Holds Key Value in registry. Dim ret&amp; 'Holds error status if any from API calls. Dim lphKey&amp; 'Holds created key handle from RegCreateKey. ' &quot;MyApp&quot; adinda root entry yarat. sKeyName = &quot;MyApp&quot; sKeyValue = &quot;My Application&quot; ret&amp; = RegCreateKey&amp; ret&amp; = RegSetValue&amp;(lphKey&amp;, &quot;&quot;, REG_SZ, sKeyValue, 0&amp;) ' sKeyName'i istegidin extensiona ayarla sKeyName = &quot;. XXX&quot; ' asagidaki butun &quot;MyApp&quot;lari senin programin ismiyle degis sKeyValue = &quot;MyApp&quot; ret&amp; = RegCreateKey&amp; ret&amp; = RegSetValue&amp;(lphKey&amp;, &quot;&quot;, REG_SZ, sKeyValue, 0&amp;) ' &quot;MyApp&quot; icin command line'i ayarla sKeyName = &quot;MyApp&quot; 'asagidaki c:\mydir\my. exe'yi dosyayi calistirmasini istedigin programla degis sKeyValue = &quot;c:\mydir\my. exe %1&quot; ret&amp; = RegCreateKey&amp; ret&amp; = RegSetValue&amp; ' hepsi bu formun ustundeki buttona basinca. xxx uzantisi belirttigin programla calismasi gerek.