Search found 85 matches: getactivewindow

Return to advanced search

Re: envio de emails

tente isso, testei apenas no windows 7 try nRetorno := ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0) catch end if nRetorno <= 32 MsgStop('Não ...
by karinha
Thu Feb 11, 2021 3:16 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: envio de emails
Replies: 8
Views: 644

Re: envio de emails

tente isso, testei apenas no windows 7 try nRetorno := ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0) catch end if nRetorno <= 32 MsgStop('Não ...
by MGA
Thu Feb 11, 2021 2:44 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: envio de emails
Replies: 8
Views: 644

Re: To Mister Nages - xBrowser

... := 250 :bStrData := { || oMensagem:getValueByPos( 13 ) } :oDataFont := oFonte_browse :nDataStrAlign := AL_TOP :blDClickData := { || HTMLPOP( GetActiveWindow(), nil, 0x000E, RTrim( oMensagem:getValueByPos( 13 ) ) ) } :bPaintText := <|oCol, hDC, cText, aRect, aColors| FW_SayTextHilite( hDC, ...
by oliveiros junior
Mon Aug 17, 2020 7:33 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: To Mister Nages - xBrowser
Replies: 21
Views: 2135

Re: Child of Folder

Thanks, but i have only the result of getactivewindow(). In a dialog with folders normally this gives the handle from the selected one of the dialogs in the folder. But i will check if this handle is a handle from a dialog in a folder. Also ...
by byte-one
Mon Dec 31, 2018 7:34 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Child of Folder
Replies: 2
Views: 572

Re: Referencing a dialog from a different class ?

It returns a numeric. So you can't use :hide()

oWdlg:hide()

cannot be replaced with

hDlg := GetActiveWindow( )
hDlg:hide()


However, this does work:

hDlg := GetActiveWindow( )
ShowWindow( hDlg, 0 ) // Hides
then
ShowWindow( hDlg, 1 ) // Shows it again in normal size

Thank you.
by TimStone
Fri Sep 22, 2017 4:53 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Referencing a dialog from a different class ?
Replies: 11
Views: 2295

Re: Ayuda DLL

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...
by ricardog
Thu Aug 31, 2017 2:56 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Ayuda DLL
Replies: 24
Views: 6286

Re: text file

Uwe,
sample :

nSticketnumber:= "123456" number of the ticket

ShellExecute(GetActiveWindow(),'Open',oApp():cPath+"\"+nSticketnumber+".bat",,,4)
by Silvio.Falconi
Thu Jun 01, 2017 4:26 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: text file
Replies: 3
Views: 479

Re: MsgRun()-Question

I think this is a better code:

ACTIVATE DIALOG oDlg ON PAINT oDlg:SayText( oDlg:cMsg ) ;
ON INIT oDlg:Center( oWndParent )

sometimes GetActiveWindow() may return a window that does not belong to our app
by Antonio Linares
Mon May 08, 2017 5:31 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: MsgRun()-Question
Replies: 15
Views: 2860

Re: FiveODBC Error Message

... oDlg:bValid := nil oDlg:BMMoved := nil oDbf:Gotop() endif Browse() oDbf:End() Return nil STATIC FUNCTION ChkCursor(n, oDbf, oDlg) local hWnd := GetActiveWindow() if hWnd != oDlg:hWnd if n == 0 SetWindowText(hWnd, "Rows completally retrieved: "+ Transform(oDbf:RecCount(), "999,999")) ...
by Compuin
Mon Dec 26, 2016 4:50 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FiveODBC Error Message
Replies: 27
Views: 4157

Re: Save all the Screen to BMP

I tried the GETACTIVEWINDOW() and it works, but it saves only the windows/dialog focused instead of all the screen.

I try to find other solution !

Hi
by Romeo
Wed Oct 07, 2015 5:12 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Save all the Screen to BMP
Replies: 13
Views: 1834

Re: Cerrar un dialogo

... DEFINE DIALOG...ACTIVATE, es decir después del ACTIVATE, a veces me ha pasado. Si no, prueba con la segunda fórmula: oBrw:bLostFocus := { || IF(GetActiveWindow() # oDlg:hWnd,oDlg:End(),) } Espero te sirva. Un saludo
by antolin
Mon Jun 01, 2015 8:38 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Cerrar un dialogo
Replies: 11
Views: 1920

Re: Getting the current active window handle

Hi, thank you,
I tried, also as Shellexecute(0,GetActiveWindow()) but always return 42
by Marco Turco
Tue Dec 09, 2014 3:19 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Getting the current active window handle
Replies: 11
Views: 1420

Getting the current active window handle

... ? Thank you. ---- #include "FiveWin.ch" function Main() local n,hwnd n:=Seconds() do while .t. sysrefresh() if seconds()>n+20 hWnd:=GetActiveWindow() if msgyesNo("Active Window handle is "+str(hWnd,10)+" Finish test ?") exit endif n:=Seconds() endif enddo ----
by Marco Turco
Tue Dec 09, 2014 11:59 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Getting the current active window handle
Replies: 11
Views: 1420

Re: What is lWRunning?

emotta_no,

There is a sample WINPOP4.prg
Maybe it gives You the infos You need.

hActiveWnd = If( ::oWnd != nil, ::oWnd:hWnd,;
If( nDlgCount > 1 .or. lWRunning(),;
GetActiveWindow(), GetWndApp() ) )


Best regards
Uwe :?:
by ukoenig
Thu Mar 13, 2014 12:44 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: What is lWRunning?
Replies: 3
Views: 659

Re: FWH 13:08 Default Printer

Linares,

We select one of two ways:

In the menu system using the command:
GetPrintDC (GetActiveWindow ())

Or before printing with the command:
PRINTERSETUP ()

Thanks,
by ORibeiro
Wed Oct 09, 2013 1:19 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FWH 13:09 Default Printer
Replies: 61
Views: 12460
Next

Return to advanced search

cron