怎么把已经打开的窗体设置为当前窗体
如何把已经打开的窗体设置为当前窗体?
比如打开了一个程序如：招商证券或暴风影音，然后最小化
如何用delphi程序把招商证券或是暴风影音设置为当前窗体？
------解决方案--------------------
以计算器为例:
procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
begin
h:=FindWindow(0,'计算器'); //窗口标题
if (h=0) then
begin
ShowMessage('程序没找到!');
exit;
end;
ShowWindow(h,SW_SHOWNORMAL);
end;
比如打开了一个程序如：招商证券或暴风影音，然后最小化
如何用delphi程序把招商证券或是暴风影音设置为当前窗体？
------解决方案--------------------
以计算器为例:
procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
begin
h:=FindWindow(0,'计算器'); //窗口标题
if (h=0) then
begin
ShowMessage('程序没找到!');
exit;
end;
ShowWindow(h,SW_SHOWNORMAL);
end;