//静态加载SwitchToThisWindow procedure SwitchToThisWindow(hWnd:Thandle;fAltTab:boolean);stdcall;external 'User32.dll';
procedure TForm1.Button1Click(Sender: TObject); var h:thandle; begin h:=findwindow(nil,'test'); //为外部EXE标题 SwitchToThisWindow(h,true); end;
|
请发表评论