控制一个窗口，不让创建多个实例的代码，为什么错误？

Question

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;

Answer 1

好像没你说的问题.
先最小化,再试应该可以看到效果的吧
showWindow(Found,SW_RESTORE);

Answer 2

跟我碰到的一样，我化了好久好久才明白原来在显示设计时的窗体。
运行时只好先关闭delphi。

Answer 3

if frmusers=nil then
frmUsers:=TFrmUsers.Create(application);
   frmUsers.Show;
在frmusers的ondestroy事件中加入
frmusers:=nil;(必需)

Answer 4

运行时必须关闭delphi或者delphi中的项目.

Answer 5

(模式)
if frmusers=nil then
  frmUsers:=TFrmUsers.Create(application);
frmUsers.ShowModal;
frmUsers.Free;
在frmusers的ondestroy事件中加入
frmusers:=nil;(必需)
(非模式)
if frmusers=nil then
  frmUsers:=TFrmUsers.Create(application);
frmUsers.ShowModal;
frmUsers.Free;
在frmusers的onclose事件中加入
action:=cafree;
frmusers:=nil;

Answer 6

if FrmTemp = nil then
  FrmTemp := TFrmTemp.Create(Application);
FrmTemp.Show;