RES dosyalarının kullanıma bir ornek vereceğim. Bu ornek kod vasıtasıyla EXE'nizin icine istediğiniz EXE, DLL, OCX ya da başka bir dosyayı gomebilirsiniz. Bunu VB 6.0 icinden gercekleştireceğiz.

Vurgulama istediğim tek şey, bu kodu VB 6.0 icindeki RES Editor vasıtasıyla programınıza eklenen dosyaları dışarı cıkartmak icin kullanabileceğinizdir. Yani bu kod ile EXE calışırken icine herhangi bir dosya gomemezsiniz; EXE derlenmeden once VB 6.0 icinden RES dosyası icine gomulen dosyaları dışarı atabilirsiniz.

RES Editor Tools menusunde bulunur. Eğer yoksa Add-Ins menusunden Add-In Manager komutunu calıştırın. Karşınıza gelen pencerede VB 6 Resource Editor satırına tıklayın ve Loaded konumuna gecirin. Tamam deyip pencereyi kapatın. Tools menusundan ya da Arac Cubuğundan RES Editorunu calıştırın.

RES Editor penceresinde arac cubuğundan Add Custom Resource komutunu verin. Hangi dosyayı EXE'nizin icine gommek istiyorsanız RES dosyasına ekleyiniz. RES Dosyanızı kaydedin.

Formunuzun uzerine Command1 adlı bir duğme yerleştirin. Bunun Click olayına aşağıdaki kodu ekleyin.

Kod:
Private Sub Command1_Click() Dim resbytes() As Byte resbytes = LoadResData(101, "CUSTOM") Dim no As Byte no = FreeFile Open App.Path & "\deneme.exe" For Binary As #no Put #no, , resbytes Close #no Shell App.Path & "\deneme.exe", vbNormalFocus End Sub
Duğmeye basıldığı zaman EXE'nizin yanında bir de gomduğunuz dosya oluşacaktır. Burada birşeye dikkat edin. Ben "deneme.exe" dedim. Sizin dosyanız ne ise uzuntasını ona gore değiştirin. DLL ise "deneme.dll", "ZIP" ise "deneme.zip" olarak değiştirmeyi unutmayın.

İyi Calışmalar.
__________________