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

SetLength(ClassName,100);

GetClassName(hwnd,pchar(ClassName),length(ClassName));//获得当前遍历窗口的类名

ClassName:=pchar(ClassName);//在字符串后加结束符，确定字符串结束

if ClassName=TForm1.ClassName then//比较

begin

WinInstance:=GetWindowLong(hwnd,GWL_HINSTANCE);//获得当前遍历窗口的实例

setlength(WinMoudleName,100);

GetModuleFileName(WinInstance,pchar(WinMoudleName),length(WinMoudleName));

//获得当前遍历窗口的程序文件名

WinMoudleName:=pchar(WinMoudleName);

if WinMoudleName=MoudleName then//MoudleName为工程全局变量，自身程序的文件名

begin

FindHid:=hwnd;//FindHid为工程全局变量保存找到的句炳

result:=false;//找到以后就结束遍历

end;

end;

标签：

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