Hi Uwe, could You share Diskinfo sources?
Reagards
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Diskinfo help for spanish translation
Hello,
for my new project ( metro-style looking )
I will include Diskinfo, but with a modern looking style.
It will be completely redesigned.
because it is in spanish, I need some translations. ( english )
MsgInfo( "Debe colocar la ruta del recuso",;
"Mensaje del Sistema" )
MsgAlert( "Recurso no encontrado, por favor verifique" + CRLF + CRLF +;
"NOTA: EL TIEMPO QUE TARDA EN VERIFICAR SI ESXISTE O NO" + CRLF +;
"EL RECURSO DE RED ES DETERMINADO POR EL S.O., YA QUE SE" + CRLF +;
"INTENTA CONSEGUIR POR TODOS LOS MEDIOS EL RECURSO. OJO",;
"Mensaje del Sistema" )
// Verifica si es un Recurso de Red tipo UNC \\SERVIDOR\RECURSO
If ::lResourceUNC // Add By Antonio Castro 26/03/08
::nDiskType := 8 // Nuevo tipo agregado que no devuelve el API
)
cDrive := cDrive + "\" // Termina en \ si es un recurso UNC \\SERVIDOR\RECURSO\
// esto es para que trabajen las funciones del API
::cDriveType := acDrive[ ::nDiskType ]
::cLabel := "No disponible"
::cFileSystem := "Desconocido"
best regards
Uwe
for my new project ( metro-style looking )
I will include Diskinfo, but with a modern looking style.
It will be completely redesigned.
because it is in spanish, I need some translations. ( english )
MsgInfo( "Debe colocar la ruta del recuso",;
"Mensaje del Sistema" )
MsgAlert( "Recurso no encontrado, por favor verifique" + CRLF + CRLF +;
"NOTA: EL TIEMPO QUE TARDA EN VERIFICAR SI ESXISTE O NO" + CRLF +;
"EL RECURSO DE RED ES DETERMINADO POR EL S.O., YA QUE SE" + CRLF +;
"INTENTA CONSEGUIR POR TODOS LOS MEDIOS EL RECURSO. OJO",;
"Mensaje del Sistema" )
// Verifica si es un Recurso de Red tipo UNC \\SERVIDOR\RECURSO
If ::lResourceUNC // Add By Antonio Castro 26/03/08
::nDiskType := 8 // Nuevo tipo agregado que no devuelve el API
)cDrive := cDrive + "\" // Termina en \ si es un recurso UNC \\SERVIDOR\RECURSO\
// esto es para que trabajen las funciones del API
::cDriveType := acDrive[ ::nDiskType ]
::cLabel := "No disponible"
::cFileSystem := "Desconocido"
best regards
Uwe
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Hi uwe,
MsgInfo( "Resource path Needed",;
"System Message" )
MsgAlert( "Resources not Found, please verfiy" + CRLF + CRLF +;
"NOTE: THE TIME TO VERIFY IF THE NET RESOURCE IS AVAILABLE" + CRLF+
"DEPENDS ON OPERATING SYSTEM, THIS IS TRYING TO GET BY"+ CRLF+
"BY ALL MEANS", "System Message")
// Verify if net source is UNC type \SERVER\RESOURCE
If ::lResourceUNC // Add By Antonio Castro 26/03/08
::nDiskType := 8 // New added type not available on API 
)
cDrive := cDrive + "\" // Finished on \ if resource is UNC \SERVER\RESOURCE\
// This is for API functions
::cDriveType := acDrive[ ::nDiskType ]
::cLabel := "Unavaiable"
::cFileSystem := "Unknown"
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2
Hebert,
thank You very much,
Now I can carry on with my translations of the new DISKINFO.
best regards
Uwe 
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Uwe, don't bother, I just found testdski.prg on fwh\samples
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)
FiveWin Version: FWHX 15.01
BCC 5.8.2
FiveWin Version: FWHX 15.01
BCC 5.8.2