Printable View
دوستان من میخوام یه نرم افزار uninstaller با زبان vb 2010 بسازم ولی حتی نمیدونم چه طور لیستی از نرم افزار های نصب شده روی سیستم رو بیارم چه برسه به اینکه حالا بخوام uninstall شونم بکنم
میشه راهنماییم کنین ؟
اگه کمپوننت خاصی هم داره ممنون میشم لینکشو بم بدین
دوستان تونستم لیستشون کنم ولی نمیدونم چه طور فایل setup رو اجرا کنم
اصل برنامه رو نوشتم شاخه و برگ دادن با خودتون مثل ارور گیری و نمایش پیغام ها و . . . .نقل قول:
[PHP]public List<string> ListPrograms()
{
List<string> programs = new List<string>();
ManagementObjectSearcher ManageObjSea = new ManagementObjectSearcher("SELECT * FROM Win32_Product");
foreach (ManagementObject ManageObj in ManageObjSea.Get())
{
programs.Add(ManageObj["Name"].ToString());
}
programs.Sort();
return programs;
}
public void Uninstall(string ProgramName)
{
ManagementObjectSearcher ManageObjSea = new ManagementObjectSearcher("SELECT * FROM Win32_Product WHERE Name = '" + ProgramName + "'");
foreach (ManagementObject ManageObj in ManageObjSea.Get())
{
if (ManageObj["Name"].ToString() == ProgramName)
{
ManageObj.InvokeMethod("Uninstall", null);
}
}
}[/PHP]
مرسی نرم افزار و کامل کردم البته نه با زبان c
الان یه مشکل دارم اونم اینه که نمیدونم چه طوری آیکون نرم افزار ها رو تو لیست نشون بدم
کدمم اینه :
[PHP] Private Sub GetInstalledPrograms()
On Error Resume Next
With ListView1.Columns
.Add("Software Name", 400) : .Add("Install Location", 300) : .Add("Publisher", 100)
End With
ListView1.View = View.Details ' Display Columns
Dim Software As String = Nothing
Dim SoftwareKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Install er\UserData\S-1-5-18\Products"
Using rk As RegistryKey = Registry.LocalMachine.OpenSubKey(SoftwareKey)
For Each skName In rk.GetSubKeyNames
Dim name = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("DisplayName")
Dim installocation = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("InstallLocation")
'InstallProperties
Dim publisher = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("Publisher")
Dim uninstallString = Registry.LocalMachine.OpenSubKey(SoftwareKey).Open SubKey(skName).OpenSubKey("InstallProperties").Get Value("UninstallString")
'Add the Software information to lstPrograms
If name.ToString <> "" Then
'Declare new ListView Item
Dim list As New ListViewItem
'Set Text Property to Name of Software
list.Text = name.ToString
'Add Install Location
list.SubItems.Add(installocation.ToString)
'Add Publisher
list.SubItems.Add(publisher.ToString)
list.Tag = uninstallString
' Add it to lstPrograms, a listview that will hold our Software List.
ListView1.Items.Add(list)
End If
Next
End Using
End Sub[/PHP]
من با وب بی کد نمیزنم که بتوانم بیش از این شما رو راهنمائی کنمنقل قول:
برای نمایش ایکون هم الان چیز خاصی یادم نیست