FiveTech Software tech support forums

Antonio,

Así la estoy pasando:

cPathAddons := Strtran(alltrim(CurDir()+"\")," ","_")

ShellExecute( GetActiveWindow() , "open", CurDir()+"\addons\addons1.exe", cPathAddons )


Un Saludo,
Joaquín

... Desde que instalé la nueva versión, tengo un problema que no había visto porque no daba error. Desde mi aplicación llamo a otra: ShellExecute( GetActiveWindow() , "open", CurDir()+"\addons\addons1.exe", "DirQueQuier") Y en la otra recibo el parámetro con esto: Function Main() Parameters cPath ...

Prueba de esta forma: IF GetPrintDefault(GetActiveWindow())<>0 oPrn:=PrintBegin("",.F.,,,.T.) oPrn:SetPage(1) PrintEnd() ELSE MsgAlert("Configure una impresora como predeterminada"+CRLF+ ; "o no podrá visualizar los reportes.","Precaución!") ...

... foco o activa * asi de esta manera puedo aplicar el menu a cualquier ventana que yo * seleccione previamente o lo solicite. IF !( cx := GetProp( GetActiveWindow(), "WP" ) ) == 0 oWin := GetAllWin() [cx] ELSE oWin := Twindow() oWin:hWnd := GetActiveWindow() ENDIF *---------- fin MENU oMenu FOR ...

... "windows", "device", cCbx ) SysRefresh() PrinterInit() DeleteDC( oDevice:hDC ) // Sugestion by Enrico M. Giordano oDevice:hDC := GetPrintDefault( GetActiveWindow() ) oWnd:End() // To close current preview // Insert here the function to create the report SysRefresh() WriteProfString( "windows", ...

... return nil function bldMenu() LOCAL oMenu MENU oMenu MENUITEM "Start" ; ACTION f_code() ENDMENU return oMenu func f_code LOCAL hWnd := GetWindow( GetActiveWindow(), GHW_HWNDFIRST ) LOCAL cTask := "" *-------------------------------------------- while hWnd != 0 cTask = GetModuleFileName( GetWindowWord( ...

... is my code. Regards Otto func ziRechnung LOCAL cHSTIni := ".\INI\WINHOTEL.INI" LOCAL WIN_HOT_VER := "" LOCAL nPos := "" LOCAL hWnd := GetWindow( GetActiveWindow(), GHW_HWNDFIRST ) LOCAL cTask :="" LOCAL ktowahlaufruf := 0 local cTest :="" *-------------------------------------------- WIN_HOT_VER ...

You can checking this:

local cLink := "http://www.lesoir.be"
SHELLEXECUTE (GetActiveWindow(), nil, cLink, '', '', 5)

Hello, Today , i have problems , when i try to use : ? Shellexecute(GetActiveWindow(),"open",xlsfile) // returns 42 , not a error The xlsfile is created with ClipWks (for xharbour) and can be launched from windows with clicking on it. FUNC MAIN(cFile) IF cFile ...

... puedan manipular libremente la pda y solo quieren que éjecuten su aplicación en exclusiva. Para ello, esto nos puede servir. ON INIT SHFullScreen(GetActiveWindow() , 0x0020 ) Válido para Pocket y WCE. Saludos Toni Sales Adjunto imágenes con y sin la aplicacion en exclusiva. Aplicacndo lo anterior ...

... GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", cCbx ) SysRefresh() PrinterInit() oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) RETURN nil Manuel, Haz concemplado el cambio de resolucion por eltipo ...

... GetProfString( "windows", "device" , "" ) WriteProfString( "windows", "device", cCbx ) SysRefresh() PrinterInit() oDevice:hDC := GetPrintDefault( GetActiveWindow() ) SysRefresh() WriteProfString( "windows", "device", cPrinter ) RETURN nil

... Aca va mi GetTasks() //----------------------------------------------------------------------------// Function GetTask() local hWnd := GetWindow( GetActiveWindow(), GHW_HWNDFIRST ) local aTasks := {} local cTask while hWnd != 0 #ifdef __CLIPPER__ cTask = GetModuleFileName( GetWindowWord( hWnd, ...

... James --------------------- Posted: 12/25/03 Evans, Try putting this line in your main prg before open any databases. xHd := GetPrintDefault( GetActiveWindow() ) Regards and Merry Christmas -- Kleyber Derick Batalha Ribeiro Diretor de Produtos TK Informídia Ltda email: kleyber@tkinformidia.net ...

... James --------------------- Posted: 12/25/03 Evans, Try putting this line in your main prg before open any databases. xHd := GetPrintDefault( GetActiveWindow() ) Regards and Merry Christmas -- Kleyber Derick Batalha Ribeiro Diretor de Produtos TK Informídia Ltda email: kleyber@tkinformidia.net ...