使用互斥对象让程序只运行一次(2)

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

End;

End;

下面的工作是来完善这个程序，我们不仅希望程序可以不被重复运行，而且我们也希望当用户再次点击程序可执行文件时，已经运行的程序能够做出一些响应。在这里我们希望它能够变为最上层的活动窗口以提醒用户程序已经被运行。为了达到这个目的，我们必须先获得已经运行程序的窗口句柄，以便使用SetForeGroundWindow(handle)来使程序窗口最前并激活。为了得到这个句柄，我们必须使用windows枚举函数EnumWindows来遍历windows的窗口列表，该函数可以使用一个回调函数作为参数，并用这个回调函数来对每一个系统中的窗口进行调用直到最后一个窗口或回调函数返回false为止，这个回调函数规定有两个参数（handle,Cardinal，只用注意第一个handle参数它表示由枚举函数当前遍历到的窗口句柄）。我们只要编写这个函数并在其中不断的比较当前遍历到的窗口类名和我们的程序的主窗口类名，以及比较窗口可执行文件的名称和我们程序的名称直到找到相同的为止，将这时的窗口句柄保存下来就可以了，下面的代码加上了适当的注释：

function EnumWndProc(hwnd:Thandle;param:Cardinal):bool;stdcall;

//由于用于api回调函数，请使用windows传统的参数传递方式stdcall

var

ClassName,WinMoudleName:string;

WinInstance:THandle;

begin

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有