L
LUJIAYU110
Unregistered / Unconfirmed
GUEST, unregistred user!
我在想判断程序是否运行,如运行最小化则恢复,后台则显示到前台,但有个问题,如在PROJECT中指定Application.Tile:='汉字字符',则程序最小化时 isiconic(wnd)反回值不为TRUE,不知如何解决。
var
wnd:hwnd;
wnd:=findwindow(nil,pchar('汉字字符'));
if wnd<>0 then
if isiconic(wnd) then
showwindow(wnd,sw_restore)
else
setforegroundwindow(wnd);
var
wnd:hwnd;
wnd:=findwindow(nil,pchar('汉字字符'));
if wnd<>0 then
if isiconic(wnd) then
showwindow(wnd,sw_restore)
else
setforegroundwindow(wnd);