其中，参数lpCalssName 是要查找的窗口的类的名称，参数lpWindowName是要查找的窗口的标题（Caption）。 如果找到了相应的窗口实例，将返回一个非0 的该窗口句柄的整型值，否则返回0 。因此，只要判断应用程序的主窗口（或者伴随着应用程序存在而存在的窗口）是否存在就可以判断是否已经有实例存在了。

例如：

H := FindWindow(''TForm1'', nil);

if H = 0 then begin

ShowMessage(''没有发现相同的应用程序实例。'');

//加入加载应用程序的语句

//

end else begin

ShowMessage(''应用程序已经加载。'');

SetActiveWindow(H);

end;

其中，参数lpWindowName的位置以Delphi保留字nil 代替，是因为窗口的标题可能在应用程序中是变化的。Windows API 函数SetActiveWindow 用于指定活动窗口。