当窗体最小化到任务栏时,就没法取得上面控件的TEXT了;如果不最小化到任务栏就是好的,为什么?

[xxxfffcn]

问题1
当窗体最小化到任务栏时,就没法取得上面控件的TEXT了;如果不最小化到任务栏就是好的,为什么?

hCurrentWindow_Sub1 := ChildWindowFromPointEx(hCurrentWindow, Point(25,105),CWP_ALL);
hCurrentWindow_ComeFrom := ChildWindowFromPointEx(hCurrentWindow_Sub1, Point(25,85),CWP_ALL);
GetWindowText(hCurrentWindow_ComeFrom,@L_FromText,255
L_FromStr := StrPas(@L_FromText);

edit1.text := l_fromstr;

有没有更好的解决方法???

-------------------------------------------------------------
问题2
我知道窗体句柄,如果窗体被关闭了,我怎么判断它是否关闭??
我是这么做的

if IsWindowVisible(StrToInt('$'+ L_Caption_HWND)) then//判断当前句柄的窗体是否存在,如果窗体不可见了,就表示不存了;用16进制来比较
begin
//句柄为L_Caption_HWND的窗体存在
end
else
begin
//句柄为L_Caption_HWND的窗体不存在
end;

上面的代码是可以实现的,但有没有更好的思路???

[cdsgajxlp]

一个工程里
if Form1=nil then
begin
...
end
else
begin
...
end;

[cdsgajxlp]

procedure TForm1.Button1Click(Sender: TObject);
var
mHandle, fHandle: THandle;
begin
Application.Initialize;
mHandle := Windows.CreateMutex(nil, true, 'SendMessage');//SendMessage
if mHandle <> 0 then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
fHandle := FindWindow(PChar('Tfrom'), nil);
if (fHandle>0) then
begin
ShowWindow(fHandle, SW_RESTORE);
SetForeGroundWindow(fHandle);
Windows.ReleaseMutex(mHandle);
end;
Halt;
end;
end;
end;

[xxxfffcn]

兄弟:
我说的是监视其它程序,不是本身程序

[xxxfffcn]

why?