Application topmost

[Timm]

Hi!

Is it possible to make an application topmost after calling it with Execute()?

::hProcessIE := Execute( AppData:cBrowserExecute )

SetWindowPos( ???, HWND_TOPMOST, 0, 0, 0, 0, nOr( SWP_NOMOVE, SWP_NOSIZE ) )

Best regards, Timm.

[ignacio]

Not tested:

Código: Seleccionar todo

FOR EACH hWnd IN EnumWindows()
  IF GetWindowThreadProcessID( hWnd ) == hMyProcessID
    SetWindowPos( hWnd, HWND_TOPMOST, 0, 0, 0, 0, nOr( SWP_NOMOVE, SWP_NOSIZE ) )
    EXIT
  ENDIF
NEXT

#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>

HB_FUNC( GetWindowThreadProcessId ) // GetWindowThreadProcessId( hWnd ) --> hProcesssID
{
   hb_retnl( GetWindowThreadProcessId( (HWND) hb_parnl( 1 ), NULL ) );
}
#pragma ENDDUMP

Regards,

[Timm]

Ingnacio,

sorry, the code does not work.

GetWindowThreadProcessID( hWnd ) is never hMyProcessID

Best regards, Timm.

[ignacio]

Try with:

Execute( AppData:cBrowserExecute,"c:\StartDirectory", .f., SW_SHOWNORMAL, @nProcessID )

Regards,

[Timm]

Hi Ignacio,

no, it does not work.

Best regards, Timm.

[ignacio]

Then, I believe your only chance is to use GetWindowText( hWnd ). No more clues. Sorry.

Regards,

[Timm]

Ignacio,

GetWindowText( hWnd ) works for me, many thanks!

Best regards, Timm.

[ignacio]

Great!! Glad to help