VB6 ile programı derlemeden önce içine dosya gömebiliyoruz... Eee hadi gömelim

RES dosyalarının kullanıma bir örnek vereceğim. Bu örnek kod vasıtasıyla EXE'nizin içine istediğiniz EXE, DLL, OCX ya da başka bir dosyayı gömebilirsiniz. Bunu VB 6.0 içinden gerçekleştireceğiz.

Vurgulama istediğim tek şey, bu kodu VB 6.0 içindeki RES Editor vasıtasıyla programınıza eklenen dosyaları dışarı çıkartmak için kullanabileceğinizdir. Yani bu kod ile EXE çalışırken içine herhangi bir dosya gömemezsiniz; EXE derlenmeden önce VB 6.0 içinden RES dosyası içine gömülen dosyaları dışarı atabilirsiniz.

RES Editor Tools menüsünde bulunur. Eğer yoksa Add-Ins menüsünden Add-In Manager komutunu çalıştırın. Karşınıza gelen pencerede VB 6 Resource Editor satırına tıklayın ve Loaded konumuna geçirin. Tamam deyip pencereyi kapatın. Tools menusundan ya da Araç Çubuğundan RES Editörünü çalıştırın.

RES Editör penceresinde araç çubuğundan Add Custom Resource komutunu verin. Hangi dosyayı EXE'nizin içine gömmek istiyorsanız RES dosyasına ekleyiniz. RES Dosyanızı kaydedin.

Formunuzun üzerine Command1 adlı bir düğ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

Düğmeye basıldığı zaman EXE'nizin yanında bir de gömdüğünüz dosya oluşacaktır. Burada birşeye dikkat edin. Ben "deneme.exe" dedim. Sizin dosyanız ne ise uzuntasını ona göre değiştirin. DLL ise "deneme.dll", "ZIP" ise "deneme.zip" olarak değiştirmeyi unutmayın.

İyi Çalışmalar.