取得本dll路径的方法及按键Hook的方法

badboy518

2.   public static class Xsys
   
3.   {
   
4.     /// <summary>
   
5.     /// 取得本dll的路径
   
6.     /// </summary>
   
7.     /// <returns></returns>
   
8.     public static string GetAssemblyPath()
   
9.     {
   
10.       string _CodeBase = System.Reflection.Assembly.GetExecutingAssembly().CodeBase;
    
11. 
    
12.       _CodeBase = _CodeBase.Substring(8, _CodeBase.Length - 8);    // 8是 file:// 的长度
    
13. 
    
14.       string[] arrSection = _CodeBase.Split(new char[] { '/' });
    
15. 
    
16.       string _FolderPath = "";
    
17.       for (int i = 0; i < arrSection.Length - 1; i++)
    
18.       {
    
19.         _FolderPath += arrSection[i] + "/";
    
20.       }
    
21.       return _FolderPath;
    
22.     }
    
23.   }

  public static class Xsys<br />   {<br />     /// <summary><br />     /// 取得本dll的路径<br />     /// </summary><br />     /// <returns></returns><br />     public static string GetAssemblyPath()<br />     {<br />       string _CodeBase = System.Reflection.Assembly.GetExecutingAssembly().CodeBase;<br /> <br />       _CodeBase = _CodeBase.Substring(8, _CodeBase.Length - 8);    // 8是 file:// 的长度<br /> <br />       string[] arrSection = _CodeBase.Split(new char[] { '/' });<br /> <br />       string _FolderPath = "";<br />       for (int i = 0; i < arrSection.Length - 1; i++)<br />       {<br />         _FolderPath += arrSection[i] + "/";<br />       }<br />       return _FolderPath;<br />     }<br />   }

1.   /// <summary>
   
2.   /// 消息Hook，目前仅Hook了WM_KEYDOWN，事件发生时会发送回按键码
   
3.   /// </summary>
   
4.   public class MessageHook
   
5.   {
   
6.     const int WM_KEYDOWN = 0x100;
   
7. 
   
8.     public delegate void KeyDown(int keycode);//事件所需要的委托(注意，声明委托，必须加上括号)
   
9.     public event KeyDown OnKeyDown;//事件声明
   
10.     public void SetKeyHook()
    
11.     {
    
12.       Application.PreTranslateMessage += Application_PreTranslateMessage;
    
13.     }
    
14.     public void UnKeyHook()
    
15.     {
    
16.       Application.PreTranslateMessage -= Application_PreTranslateMessage;
    
17.     }
    
18.     void Application_PreTranslateMessage(object sender, PreTranslateMessageEventArgs e)
    
19.     {
    
20.       if (e.Message.message == WM_KEYDOWN)
    
21.       {
    
22.         //Tools.WriteMessageWithReturn(e.Message.wParam.ToString());
    
23.         OnKeyDown(e.Message.wParam.ToInt32());
    
24.       }
    
25.     }
    
26. 
    
27. 
    
28.   }

复制代码

chpmould

获取的路径没有程序名称

badboy518

第11行时，已取得成功。只是我故意做的过滤，只取路径

zlg258369

这样行不行
string _CodeBase = System.Reflection.Assembly.GetExecutingAssembly().CodeBase
_CodeBase.Substring(0 , _CodeBase.LastIndexOf('\') )

badboy518

可能更好，

huaxiamengqing

        Dim Mnetp As String = Microsoft.VisualBasic.Compatibility.VB6.Support.GetPath()
        Dim Mnetn As String = Microsoft.VisualBasic.Compatibility.VB6.Support.GetEXEName()
simple and work well! Though old.

/ty天涯/ty

请问一下您是CAD200几的，我2008的好像不行！