Uzantı'yı Programınıza Entegre Edin (*.abc)

Visual basic projenize 1 Adet Command Buton Açmanız Yeterli bu kodları içine kopyalayabilirsiniz.

Private Sub Command1_Click()
Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\.abc\", ("DENE")
'Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\DENE\DefaultIcon\", "c:\1.exe" ' icon Dosyanız
'Set Reg = CreateObject("Wscript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\DENE\Shell\Open\Command\", "1.exe" ' çalıştırılacak program
End Sub

.abc Dosyalarını Windowsunuz artık 1.exe programınızla çalsıtıracaktır.
basit bir dongu...

daha sonra

Visual basic ile yardımcı kodunu veriyim

Açmak istediğiniz txt tarzı dosyalar ise

'FSO ile Belgeleri okutma kodunu kullana bilirsiniz.
'resim ise loadpicture(picture1.picture,veri) seklinde yapabilirsiniz.


sub from_load()
Dim Veri As String
veri = command$

Set oFS = Server.CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFS.OpenTextFile(veri,1)

text1.text = oTextStream.ReadAll

end sub

Tek Kelimeyle Super Uzun zamandir Bunu dusunuyordum yeni bir resim formati gelistirdim de acaba kendi yarattigim resmi cift tiklayinca nasil yine kendi programim ile acarim diye dusunuyordum cok sagol
cevap burda..

Hiç önemli değil Eyer işine yaradıysa Sevindim Arkadsım yardımcı olabileceğim birsey Olursa programına yardım etmeye calsırım.

Çok sağol arkadaşım sadece bu kodu C# a ceviremedim tek sorun orda onunla ilgilide bi kodun varsa super olur..

uzgunum arkadsım mc vb6 programcısıyım c+ hakkında bilgim yok ama bulursam yazarım buraya .. koylay gelsin sana.