13,826
社区成员
发帖
与我相关
我的任务
分享
HWND h = ::FindWindow("Notepad", "Untitled - Notepad");
if (::IsWindow(h))
Caption = IntToHex((int)h, 8);
else
Caption = "Nothing.";
var
s: THandle;
begin
s := FindWindow(nil,'无标题 - 记事本');
if IsIconic(s) then
Application.Title := '最小化'
else
Application.Title := '不是最小化';
end;