怎么把打开的程序放前面

如何把打开的程序放前面？

var
  hform:hwnd;
begin
  hform:=findwindow(nil,'系统帮助');
  if   (hform=0)  then
     ShellExecute(0, 'Open', pchar('系统帮助.chm'), nil, nil, SW_SHOWNORMAl);
  else
    //把 系统帮助.chm‘ 放最前面。

请问如何把系'统帮助.chm' 放最前面。

[解决办法]

SetWindowPos(hform,?HWND_TOPMOST,?0,?0,?0,?0,?SWP_NOMOVE?or?SWP_NOSIZE)?

[解决办法]

  if IsIconic(hform) then
    ShowWindow(hform, SW_RESTORE);
  SetForegroundWindow(hform);

查看更多 下一篇