| Pregunta: | 17889 - CODIGO PARA CONSEGUIR EL LABEL DE UN DISKETTE EN TP |
| Autor: | Alex Izarra Toledo |
| Tengo TP Version 7.0 para Dos
Necesito crear una libreria en TP para Foxpro 2.6 para DOS que contenga una funcion que me devuelva la etiqueta del diskette su label. Necesito saber el codigo como el procedimiento para anexar la libreria a un proyecto Foxpro espero haberme dejado entender muchisimas gracias al que corresponda | |
| Respuesta: | Juan Perez |
| NO creo que sepas lo que estas haciendo. Si hablas de Fox, lo recomendable es que la rutina sea en ensamblador y no en TP. Ya que ambos no son integrables. Caso contrario ocurre con el Assembler que mediante el Kit de desarrollo de Fox, permite hacer llamadas a rutinas (integradas al codigo de fox) en assembler. Chao! | |
| Respuesta: | Diego Romero |
| No tengo idea cómo llamar desde FoxPro una funcion en una Unit de Pascal... pero te doy una pista para obtener la etiqueta de volumen de un disquette.
var archivo:searchrec; begin FindFirst('A:\',$08,archivo); end. la estructura searchrec está definida en la Unit DOS como SearchRec = record Fill: array[1..21] of Byte; Attr: Byte; Time: Longint; Size: Longint; Name: string [12]; end; en el campo name obtienes la etiqueta de volumen, como sabrás DOS almacena la etiqueta como un nombre de archivo que es el unico que tiene el flag de atibuto VolumeID ($08). | |