Exenin ICONunu Değiştirme

(CaeSaR)
Daimi Üye
saol suk1y3n güzelmiş.
Not: (Bu program için söylemiyorum) sadece exelerinmi iconu değişyor başka uzantılarında iconunu değiştirebilirmiyiz. mesela ".txt" ".cmd"...
 
DuBBaH
Çırak
güzel Saol Arıordum ama benm dosyanınkini degiştirmedi :S
Diğerleri Degişiyor ama istedigim dosya degişmiyor :(
 
TŞK EDERİM aslında exenin iconunu visual studio 2010 ile yaparız.

Aha :


Arkadaşlar Bazı Arkadaşlarımız Arıyordu veyada Hayla Arıyorlardır Arşivime Baktığım Zaman Kodlarını Buldum Bir Exenin İconunu Bu Kodlarla Değiştirebilirsiniz..


Gerekenler:
Alıntı:
2 Adet Textbox
1 Adet Open Filedialog
3 Adet Button
Yerleştirmeler:
Alıntı:
Textbox1 İşlevi = Exenin Url Sini Almak İçin Lazım Olucak
Textbox2 İşlevi = İconun Url Sini Almak İçin Lazım Olucak
Openfiledialog1 İşlevi=İcon ve Exeyi Seçerken Lazım Olucaktır.
Button1 İşlevi = Exeyi Seçme Butonu Olarak İşlev Görükcek
Button2 İşlevi= İconu Seçme Butonu Olarak İşlev Görücek
Button3 İşlevi=Seçilmiş Exenin İconunu Seçilmiş İcon Yapan Buton Olarak İşlev Görücek.

Button1`in Kodu:
Kod:
OpenFileDialog1.DefaultExt = "exe"
OpenFileDialog1.Filter = "Exe Dosyaları (*.exe)|*.exe"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox1.Text = String.Empty
TextBox1.Text = OpenFileDialog1.FileName
End If
Button2`nin Kodları :
Kod:
OpenFileDialog1.DefaultExt = "ico"
OpenFileDialog1.Filter = "İcon Dosyaları (*.ico)|*.ico"
OpenFileDialog1.FilterIndex = 1
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
TextBox2.Text = String.Empty
TextBox2.Text = OpenFileDialog1.FileName
End If
Button3`ün Kodları:
Kod:
If TextBox1.Text = "" Then Exit Sub

If TextBox2.Text = "" Then Exit Sub

Dim oIconFilenathu As New IconFile(TextBox2.Text)
Dim groupIconResource As GroupIconResource = oIconFilenathu.ConvertToGroupIconResource()
groupIconResource.SaveTo(TextBox1.Text)
MsgBox("İcon Başarıyla Değiştirildi")
 
Üst