IMPORTAR Nº SERIE DO HD
Enviado: 25 Mai 2012 22:56
nao grava no campo o codigo importado importado pela rotina. podem me ajudar?
Você não pode usar savescreen() e restscreen() em aplicativos gráficos.
Outra coisa, se usar RUN vai abrir uma tela preta desagradável use: MYRUN()
Código: Selecionar todos
FUNCTION MYRUN(cComando)
local oShell, RET
#ifdef __XHARBOUR__
oShell := CreateObject("WScript.Shell")
#else
oShell := win_oleCreateObject("WScript.Shell")
#endif
RET :=oShell:Run("%comspec% /c "+cComando,0,.t.)
oShell:=NIL
RETURN IIF(RET=0,.t.,.f.)
VolSerial('C:\')