[ programer15 @ 29.09.2011. 15:00 ] @
Za sve one koje zele da imaju svoju extenziju prvo unesete u svoj program u vb6 ovaj kod: Code: Private Sub Form_Load() Dim cmd As String, StrBuff As String Dim tFile As Long cmd = Command$ If Len(Trim(cmd)) <= 0 Then Exit Sub Else tFile = FreeFile Open cmd For Binary Access Read As #tFile StrBuff = Space(LOF(tFile)) Get #tFile, , StrBuff Close #tFile ' Text1.Text = StrBuff StrBuff = "" cmd = "" End If End Sub pa skinete ovaj program i u njega upisete lokaciju gdje se nalazi vas program pa ikonicu mora biti u .ico pa ime svoje extenzije pa kliknete install extension i to je to!!! |