IMPORTAR Nº SERIE DO HD

[nasouza]

nao grava no campo o codigo importado importado pela rotina. podem me ajudar?

[sygecom]

Olá Natanael,
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.)

E por fim para isso que você está querendo tem uma rotina nativa do xHarbour, use:
VolSerial('C:\')