PC Toledo

... solicitando para o usuário inserir um disco, e precisa clicar em cancelar. Isto acontece também com a unidade do Certificado. Eu queria a função DiskReady(), porque com ela tenho como neutralizar essa mensagem:
lMode:
True = Windows/DOS mode. If a disk is not ready, open a dialog.
False = Bios mode ...

Veja se ajuda:


/* *************************** */

#pragma BEGINDUMP

#include "hbapi.h"
#include "windows.h"

HB_FUNC( SETERRORMODE )
{
hb_retni( SetErrorMode( hb_parni( 1 ) ) ) ;
}

HB_FUNC( GETDISKFREESPACE ) // cRootPathName, @nSectorsByCluster, @nBytesPerSector,
// @nNumberOfFreeClusters ...

Nao tem como pegar os fontes em .c dessa função? ae vc poderia colocar em qq prg seu

Janio

Olá Pessoal,

Em xHarbour, na lib HBCT:
A Função IsDisk() retorna se o Drive existe.
A Função DriveType() retorna o tipo do Drive
A Função DiskReady() retorna se o Drive está pronto

O que não estou achando é qual função substitui a DiskReady() no Harbour. Porque ela foi excluída da HBCT do Harbour?

... c:(.data+0xba8): undefined reference to `HB_FUN_
FLOPPYTYPE'
.hbmk/win/mingw/GCBOOK.o:GCBOOK.c:(.data+0xbd8): undefined reference to `HB_FUN_
DISKREADY'
.hbmk/win/mingw/GCBOOK.o:GCBOOK.c:(.data+0xc18): undefined reference to `HB_FUN_
DISKFREE'
.hbmk/win/mingw/GCBOOK.o:GCBOOK.c:(.data+0xc58 ...

Olá Asimoes,

Ficou então as funções pra resolver:
Pergunta: Como vocês adaptaram para o harbour estas funções?

DISKREADY (É DA LIB CT QUE NÃO ESTÁ NA LIB HBCT.LIB)
viewtopic.php?f=4&t=9695&hilit=DISKREADY&start=15

TURL
TIPCLIENTPOP
TIPMAIL
TIP_TIMESTAMP
TIPCLIENTSMTP

Ambas está já na TIP do ...

... e estou com receios.

Eu criei um hbm pra gerar o exe e acertei as incompatibilidades IN,LIKE etc.
Ficou então as funções pra resolver:

DISKREADY (É DA LIB CT QUE NÃO ESTÁ NA LIB HBCT.LIB)
TURL
TIPCLIENTPOP
TIPMAIL
TIP_TIMESTAMP
TIPCLIENTSMTP
ADDFONTRESOURCE
REMOVEFONTRESOURCE

Pergunta ...

Leonardo obrigado e cmo diria minha finada vovozinha (gaúcha de São Luiz Gonzaga) "Mas q bom Barbaridade"

Entendi, e qto ao DiskTotal, DiskReady, DiskFree e CurDirX lá tb explica, posta o link aí pra eu dar uma olhada...

Obrigado!!!

:)Pos

... c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_FILEVALID' referenced from C:\SISTEMA\VENDAS.OBJ
Error: Unresolved external '_HB_FUN_DISKREADY' referenced from C:\HARBOUR\LIB\SISTEMA.LIB|d_erro
Error: Unresolved external '_HB_FUN_CURDIRX' referenced from C:\SISTEMA\PROCESSO.OBJ
Error ...

... LASTKEY()=27
SIM_NAO=2
ENDIF
RESTORE SCREEN FROM PER_TELA
IF SIM_NAO=2
@ 12,00 SAY ""
KBDEMULATE(CHR(3)+" "+CHR(13))
QUIT
ELSE
CLS
IF !DISKREADY("A")
LOOP
ELSE
IF !DISKREADYW("A")
BEEP()
JANELA(12,37,16,72,"Aten‡„o",.T.)
@ 14,39 SAY "Retire a prote‡„o do disquete !" COLOR CONTECOR[11 ...