Kreiranje vlastitih extenzijaprvo 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
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!!!
