프로그램 창 상단 지정

var
  hform: Cardinal;
begin
  hForm := FindWindow('SciCalc', nil); //   
  if hform <> 0 then                   //       
  begin
    if IsIconic(hform) then            //     
    begin
      SetForegroundWindow(hform);
      ShowWindow(hform, SW_RESTORE);
    end;
    if SetWindowPos(hform, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE) then
      SetWindowPos(hform, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  end
  else
    ShowMessage('        ');
end;