CSC-SY

Imports System.Windows.Forms
Imports System.Diagnostics
Imports System.Reflection
Imports System.IO
Imports Microsoft.Win32

<System.ComponentModel.RunInstaller(True)> _

Public Class SetupApp
    Inherits System.Configuration.Install.Installer
    Private Const INI_FILE As String = "\setup.ini"

    Private Sub Installer_AfterInstall(ByVal sender As Object, _
       ByVal e As System.Configuration.Install.InstallEventArgs) _
       Handles MyBase.AfterInstall
        '---to be executed when the application is installed---
        Dim ceAppPath As String = GetWindowsCeApplicationManager()
        If ceAppPath = String.Empty Then
            Return
        End If
        Dim iniPath As String = GetIniPath()
        Process.Start(ceAppPath, iniPath)

    End Sub

    Private Sub Installer_AfterUninstall(ByVal sender As Object, _
      ByVal e As System.Configuration.Install.InstallEventArgs) _
      Handles MyBase.AfterUninstall
        '---to be executed when the application is uninstalled---
        Dim ceAppPath As String = GetWindowsCeApplicationManager()
        If ceAppPath = String.Empty Then
            Return
        End If
        Dim iniPath As String = GetIniPath()
        Process.Start(ceAppPath, String.Empty)
    End Sub

    Public Shared Function GetWindowsCeApplicationManager() As String
        '---check if the Windows CE Application Manager is installed---
        Dim ceAppPath As String = KeyExists()
        If ceAppPath = String.Empty Then
            MessageBox.Show("Windows CE App Manager not installed", _
                            "Setup", MessageBoxButtons.OK, _
                            MessageBoxIcon.Error)
            Return String.Empty
        Else
            Return ceAppPath
        End If
    End Function

    Public Shared Function GetIniPath() As String
        '---get the path of the .ini file---
        Return """" & _
           Path.Combine(Path.GetDirectoryName( _
           System.Reflection.Assembly. _
           GetExecutingAssembly().Location), "Setup.ini" & """"
    End Function

    Private Shared Function KeyExists() As String
        '---get the path to the Windows CE App Manager from the registry---
        Dim key As RegistryKey = _
           Registry.LocalMachine.OpenSubKey( _
           "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\CEAPPMGR.EXE"
        If key Is Nothing Then
            Return String.Empty
        Else
            Return key.GetValue(String.Empty, String.Empty)
        End If
    End Function
End Class

السلام عليكم أحتاج الى هذا الكود بس بال سي شارب

 
public class SetupApp : System.Configuration.Install.Installer
{ 
private const string INI_FILE ="\\setup.ini";private void Installer_AfterInstall(object sender , System.Configuration.Install.InstallEventArgs e)
{ 
 
}
}

طيب اذا الكود كبير ، فيكم تساعدوني هل هذا التحويل مظبوط كمان هذا السطرما فهمته

<System.ComponentModel.RunInstaller(True)> _ 

الحقيقة السيد BEN ADAM عطاني رابط بيحول فورا مشكورر

[System.ComponentModel.RunInstaller(true)]
 
public class SetupApp : System.Configuration.Install.Installer
{private const string INI_FILE = "\\setup.ini";private void Installer_AfterInstall(object sender, System.Configuration.Install.InstallEventArgs e)
{
//---to be executed when the application is installed--- 
 string ceAppPath = GetWindowsCeApplicationManager();if (ceAppPath == string.Empty)
{return;
}
string iniPath = GetIniPath();Process.Start(ceAppPath, iniPath);
}private void Installer_AfterUninstall(object sender, System.Configuration.Install.InstallEventArgs e)
{
//---to be executed when the application is uninstalled--- string ceAppPath = GetWindowsCeApplicationManager();
 if (ceAppPath == string.Empty)
{return;
}string iniPath = GetIniPath();Process.Start(ceAppPath, string.Empty);
}public static string GetWindowsCeApplicationManager()
{
//---check if the Windows CE Application Manager is installed--- string ceAppPath = KeyExists();if (ceAppPath == string.Empty)
{
MessageBox.Show("Windows CE App Manager not installed", "Setup", MessageBoxButtons.OK, MessageBoxIcon.Error);return string.Empty;
}
else
{return ceAppPath;
}
}public static string GetIniPath()
{
//---get the path of the .ini file--- return "\"" + Path.Combine(Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location), "Setup.ini") + "\"";
}private static string KeyExists()
{
//---get the path to the Windows CE App Manager from the registry--- RegistryKey key = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\CEAPPMGR.EXE");if (key == null)
{return string.Empty;
}
else
{return key.GetValue(string.Empty, string.Empty); 
}
}
} 

بس السطر الأخير ضمن ELSE الأخيرة عم يعطي خطأ

Error 1 Cannot implicitly convert type 'object' to 'string'. An explicit conversion exists (are you missing a cast?)

return (String)key.GetValue(string.Empty, string.Empty); 

متل هاد قصدك.

الرابط ممتاز كتير عطاني الكود ودغري Start Without Debbuging

هلأ فهمت عليك يا عفريت ، عم تشتغل بال CIA بعد الدوام

الرابط

http://labs.developerfusion.co.uk/convert/vb-to-csharp.aspx

و بدك تتأكد خلي أحد المشرفين يطلع على رسائلي الخاصة

بس بتعرف هيك صارت دعاية تمام

هلأ ما عاد فهمت عليك...

شو هاي عفريت ؟؟؟؟ و دعاية ؟؟؟ ورسائل خاصة ؟؟

لك يا أخي و بعدين يعني و بعدين

من بعد اذنك بدك تشاركني بالموضوع بشغلة مفيدة أهلا و سهلا