Omega Owners Forum

Chat Area => General Discussion Area => Topic started by: TD on 02 May 2016, 17:14:14

Title: Win10 question
Post by: TD on 02 May 2016, 17:14:14

Ive managed to break it somehow..

Before if I had Edge open and then started another program, the new program (ie calc) used to open over the top of edge.

Now the new app opens behind Edge.....so to get to it I have to minimize Edge to see it....

Its like Edge has a setting 'Always on top', but I cannot find any such setting  :-\

What have I managed to do??

Title: Re: Win10 question
Post by: TheBoy on 02 May 2016, 18:42:44

There are fancy utilities to do this, so check running processes.

AFAIK, no setting in the core OS

Title: Re: Win10 question
Post by: zirk on 02 May 2016, 22:43:51

Calculator, here you go -

      Option Explicit
      Dim THandle As Long

      Private Declare Function BringWindowToTop Lib "user32" (ByVal _
         hwnd As Long) As Long

      Private Declare Function FindWindow Lib "user32" Alias _
         "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName _
         As Any) As Long

      Private Sub Form_Load()
         Command1.Caption = "Run the Calculator"
         Command2.Caption = "Find Calculator's Handle"
         Command3.Caption = "Bring Calculator To The Top"
         Command2.Enabled = False
         Command3.Enabled = False
      End Sub

      Private Sub Command1_Click()
         Dim X As Long
         X = Shell("Calc.exe", 1)
         If X <> 0 Then
            Command2.Enabled = True
         End If
      End Sub

      Private Sub Command2_click()
         THandle = FindWindow(vbEmpty, "Calculator")
         If THandle = 0 Then
            Command3.Enabled = False
            MsgBox "Sorry, the calculator is running"
            Exit Sub
         End If
         Command3.Enabled = True
      End Sub

      Private Sub Command3_click()
         Dim iret As Long
         iret = BringWindowToTop(THandle)
      End Sub

 ;D ;D :D :D ;D ;D

Title: Re: Win10 question
Post by: TD on 03 May 2016, 08:00:20

A reboot fixed it  :y

But that doesn't explain why  :-\