FiveTech Software tech support forums

hi Enrico, i do have use GetDriveType to get Drive Type now i want to change LISTBOX to "show" Removable Drive in other Color HMG PUBLIC bColorUSB := { || IF( USB_DeviceColor(), SP_nColor2(), SP_nColor13() ...

Try using GetDriveType() = DRIVE_REMOVABLE.

... son los mismos. * Se elimina la función WideToAnsi() pues ya existía en FWH. * Se elimina la función DriveType() pues ya existía en FWH la función GetDriveType() que es un wrapper a la del API de Windows. * Una serie de arrays publicos de bytes, los hacemos static para evitar tenerlos como públicos. ...

Con la instruccion

IF N<>1 .AND. GetDriveType(cDrive)==2 //(2=USBDrive/3=HD/5=DVD)

se descartan las unidades A y B asi que aun iniciando con la unidad "C" aparece el error solo cuando un USB PenDrive esta conectado.

... FOR N:=1 TO 32 IF lAnd(nBitDrives,2^(N-1)) cDrive:=CHR(ASC("A")-1+N)+":" //Letra asignada al dispositivo IF N<>1 .AND. GetDriveType(cDrive)==2 //(2=USBDrive/3=HD/5=DVD) IF FILE(cDrive+"\TorosDat.DBF") <--Aqui marca el error cuando no hay un USB conectado ...

Otto,

> Antonio, the result is the same

Then the error may come from GetDriveType()

... ayudar por favor a adaptar o utilizar las siguientes api's en FWH: #pragma BEGINDUMP #include <hbapi.h> #include <windows.h> HB_FUNC( GETDRIVETYPE ) { hb_retnl( GetDriveTypeA( hb_parc( 1 ) ) ); } // SOLO FUNCIONA ESTA :-( HB_FUNC( GETDISKFREESPACE ) { LPSTR lpRootPathName = hb_parc(1); ...

Hola Cuatecatl82: Gracias por tus palabras. Las funciones GetDriveType() y GetLocalDrives() son de FWH. De pronto tenga que ver con la versión. Yo uso FWH 8.02. Qué versión usas ? Sin embargo, buscando por el foro, encontre lo siguiente: Post de Antonio ...

... que estoy seguro, poco a poco empezará a ser más grandiosa.. Solo tengo una duda. He bajado los fuentes y los he compilado pero faltan 2 funiones: GetDriveType() y GetLocalDrives(), lo he compilado con XMate, será problema del gestor de aplicaciones.. Si fuera posible publicar estas dos funciones ...

Antonio,

Remove ".and. GetDriveType( cDrive ) == DRIVE_REMOVABLE" in fwh\samples\protect.prg, or check with other constants there

Dos muy buenas funciones utilizando las API's de Windows. GetLocalDrives() devuelve un arreglo con los drives presentes, y GetDriveType() no retorna el tipo de drive consultado.

http://hyperupload.com/download/016e521 ... e.zip.html 1.1 KB