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;
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;
解决方案 »
- delphi #0#0#0#0#0#0#0#0 是多少?
- 如何限定在DBGrid中限定特定的列的输入类型
- 循环问题
- 做了一个题库系统,把每个试题内容(含图片,公式等)和难度、区分度、知识点等作为一项写入word中,保存为rtf格式,如何实现这些数据分段保存到数据库呢,急等。。。
- 如果得出一个目录下所有子文件夹的名称。
- 加分http://expert.csdn.net/Expert/topic/2312/2312977.xml?temp=.3351099,
- 请教各位大虾个问题:怎么在DBGrid里根据查询到的记录某个字段值的不同显示不同的颜色?
- MaskEdit控件,怎样指定输入的数据指能为数字还有
- 如何在使用MIDAS的基础上封装企业对象
- fastreport 3.0 与 adoquery 连接 奖20分
- 关于数据显示格式的转换
- 有没有无锡的公司招兼职程序员
先最小化,再试应该可以看到效果的吧
showWindow(Found,SW_RESTORE);
运行时只好先关闭delphi。
frmUsers:=TFrmUsers.Create(application);
frmUsers.Show;
在frmusers的ondestroy事件中加入
frmusers:=nil;(必需)
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;
FrmTemp := TFrmTemp.Create(Application);
FrmTemp.Show;