Modified by Krusty
Code:
Public Class Form1
Dim file As String
Dim icon1 As String
Dim show_Icon As Icon
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Gucken,ob der Rehacker schon vorhanden ist.
If Not My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\rehacker.exe") Then
'Wenn der Reshacker noch niht vorhanden ist, dann droppen.
My.Computer.FileSystem.WriteAllBytes(My.Application.Info.DirectoryPath & "\reshacker.exe", My.Resources.ResHacker, False)
End If
'Reshacker mit der Commandline -delete und den Parametern starten, um das Icon der Datei zu löschen
Shell("reshacker.exe -delete " & Chr(34) & file & Chr(34) & "," & Chr(34) & file & Chr(34) & " ,ICONGROUP,,")
System.Threading.Thread.Sleep("200")
'Reshacker mit der Commantline -add und den Parametern starten, um ein Icon einzufgen.
Shell("reshacker.exe -add " & Chr(34) & file & Chr(34) & "," & Chr(34) & file & Chr(34) & ", " & icon1 & ",ICONGROUP,1,1033")
MsgBox("Icon wurde ersetzt", MsgBoxStyle.Information, "Erfolg")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Datei aussuchen
OpenFileDialog1.ShowDialog()
file = OpenFileDialog1.FileName
TextBox1.Text = file
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'Icon aussuchen
OpenFileDialog2.ShowDialog()
icon1 = OpenFileDialog2.FileName
TextBox2.Text = icon1
Try
'Icon in die Picture Box laden
show_Icon = New Icon(icon1, 32, 32)
PictureBox1.Image = show_Icon.ToBitmap
Catch ex As Exception
MsgBox("Eventuell ist die Datei, die Sie ausgewählt haben nicht im .ico Format", MsgBoxStyle.Critical, "Error")
End Try
End Sub