FiveTech Software tech support forums

... oButtFont := TFont():New( "Arial",27,-47,.F.,.T.,0,0,0,.T.) SET _3DLOOK ON SetBalloon( .T. ) c_path := CURDRIVE() + ":\" + GETCURDIR() DEFINE ICON oIco FILENAME c_path + "\Project\Super.ico" // Background Brush-define for Main-Window DEFINE WINDOW oWndMain FROM ...

... PRIVATE files_dir := "\\caja1\c\" PRIVATE nContador := 0 , oContador PRIVATE cEncargado := space(15) , oEncargado PRIVATE cCurDir := GetCurDir() PRIVATE lUsers := .F. PRIVATE dFecha := date() , oFecha PRIVATE cHora := time() , oHora

... Getbkcolor() GetCapture() GetCaretPos() GetClassName() GetClientRect() GetClpData() GetCommError() GetCoors() Getcpu() GetCpuSpeed() GetCtrlId() Getcurdir() GetCursorPos() GetDatas() GetDC() GetDesktopWindow() GetDeviceCaps() GetDialogBaseUnits() GetDlgBase() GetDlgItem() GetDrawIte() GetDrawMenu() ...

... cFileName Returns: <cFileName> Just the filename specified inside the full filename Path-Convert : cFull := CURDRIVE() + ":\" + GETCURDIR() + "\" + cFileNoPath( ".\test\test.bmp" ) msgalert( cFull ) => c:\test\test.bmp For full Path i use a Var inside my ...

... quiero es obtener directamente el nombre largo del directorio, sin tener que seleccionarlo a través del usuario. Por ejemplo la función Curdir() o GetCurDir me dan el nombre corto del directorio donde esta la aplicación, si lo intento pasar a nombre largo con SFN2LFN; no funciona; sigue como resultado ...

He intentado con las funciones GetCurDir y CurDir; pero solo se obtiene el nombre corto del directorio; debe habe runa función para esto, pero no la ubico en la ayuda de FW.

Saludos

Fernando Espinoza

... INIT SHOW_ALPHA(oPanel) return nil // ---------------------------- FUNCTION SHOW_ALPHA(oPanel) LOCAL oBar1 c_path := CURDRIVE() + ":\" + GETCURDIR() oTextFont := TFont():New("Arial", ,-20,.F.,.T. , , , ,.T. ) @ 20, 250 TITLE oBar1 size 200, 120 of oPanel TRANSPARENT NOBORDER ...

local i, hActiveWorkbook,ppp:=CurDrive()+':\'+GetCurDir()+'\' if !file(ppp+"prom.xls") return .f. endif oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Open(ppp+"prom.xls") oExcel:Visible := .T. oHoja1 ...

... RFID tag to any active input field. I think it may be possible solution (not fine, but it is work..) I start this back end application as: WinExec(GetCurDir()+"\UdlTags.exe",8) Can I check in any way that UdlTags.exe is already run, or can I kill running UdlTags.exe ? Regards Andrej.

... a la nueva construcción de Harbour para Pocket PC. * Nuevo: FWPPC. Nuevo #define en FWCE.CH que traduce las llamadas a CurDir() en llamadas a GetCurDir(). Por favor, reconstruye todos tus fuentes PRGs que usen CurDir(). * Corrección: El método New() de la clase TActiveX no usaba el estilo ...

... * New: FWPPC build adapted to the new Harbour for Pocket PC build. * New: FWPPC New #define in fwce.ch that translate CurDir() calls into GetCurDir() calls. Please recompile all your PRGs that use CurDir() * Fix: Class TActiveX Method New() was not using the style WS_TABSTOP. Now it uses ...

... librerias oCrw := CrystalReport():New() // Dice donde esta el programa instalado, se usa para ubicar las dbf wInstalado := Curdrive() + ":\" + Getcurdir() define icon oIco resource "ICONO_INICIO" DEFINE WINDOW oWnd MDI FROM 1, 5 TO 20, 75 TITLE "Prueba de Crystal Report + Fivewin" ICON oIco ...

Hi to all,
Just to finish the post...
The WinExec worked in all XP machines who aborted the FiveWin program in the ShellExecute calls.
I had to do some strange things like:
WinExec("cmd /c start \"+GetCurDir()+"\mergeout.rtf")
but anyway... I di not reinstall the Windows again.
Regards, Euclides

... local xSalida:=" " local lquery:=.f. local xPrint:="REPORTES" local xRutarun:=".\Runtime\RRWRUN /T" Local cPath :=(CurDrive() + ":\" + GetCurDir() + "\Datos") oRRw:= RRWNEW():NEW("",xRutaryr+xReport,xPagIni,xPagFin,xRutadbf) oRRw:SetPrinter("REPORTES") oRRw:SetMaster(xRutadbf) oRRw:SetCop( ...

... cNewDir ) // Checks an existing directory local cDir := CurDrive() + ":\" + CurDir() I linked in my own lIsDir() function changing CurDir() to GetCurDir() I will keep you posted regarding the GPF.