控制一个窗口,不让创建多个实例的代码,为什么错误?
var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
begin
Hold := '系统用户管理';//窗口的caption
StrPCopy(ZAppName, Hold);
Found := FindWindow(nil, ZAppName); // 查找窗口
if Found<>0 then
begin
showWindow(Found,SW_RESTORE);
end
else
begin
frmUsers:=TFrmUsers.Create(application);
frmUsers.Show;
end;
这段代码不行,各位看看还有没有别的方法,谢谢
end;