在主窗体上加一个ApplicationEvents控件(控件在Additional面板中)，在它的OnMessage事件中加入下述代码，一切搞定～！procedure TFrm_main_usermanager.ApplicationEvents1Message(var Msg: tagMSG;  var Handled: Boolean);var  hWnd: THandle;  aName:

在Delphi中实现输入时回车失效，同时不能使用Ctrl+V的粘贴功能。具体做法如下：在相应控件的OnKeyPress中加入：if key = # 13 then key := #0;//回车失效if key = # 22 then key := #0;//粘贴失效（D中Ctrl+V组合键键值为22）另外，也可以用拦截消息的方法：procedure WMPaste(var Me

我们的程序有时候只允许运行一次，并且最好的情况是，如果程序第二次运行，就激活原来的程序。网上有很多的方法实现程序只运行一次，但对于激活原来的窗口却都不怎么好。关键就在于激活原来的程序，一般的做法是在工程开始时，打开互斥量对象，如果打不开表示程序还没有运行，创建一个互斥量对象；如果打得开表示程序已经运行了，查找程序中一个特定的窗口，一般是主窗口，然后发送一个自定义消息，主窗口在这个消息处理中激活

ShellExecute函数：    在ShellAPI单元中，ShellExecute函数的定义为：function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,  Directory: PChar; ShowCmd: Integer): HINST; stdcall;作用：打开或打印一个指定的文件；参数说明：