Power Builder - Funcion

 
Vista:

Funcion

Publicado por Pato (1 intervención) el 14/09/2006 01:53:03
Alquien podria decirme como puedo hacer para crear y aplicar esta funcion: FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "Kernel32.dll" alias for "GetComputerNameA;Ansi"
porque no puedo declararla ya que me da un error. Gracias! Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Funcion (API para obtener nombre de la PC)

Publicado por Oscar (1178 intervenciones) el 14/09/2006 02:25:39
Para obtener el nombre de la PC mediante una API, sería:

En PB 8 ó 9:

1. En tu ventana te vas a la ficha Declare Instance Variable (Local External Functions) pegas en una sola línea:
FUNCTION long GetComputerNameA(ref string ComputerName, ref ulong BufferLength) LIBRARY "KERNEL32.DLL"

2. Por ejemplo en un botón, pega:

//Obtiene el nombre de la PC
long ll_ret
string ls_ComputerName
ulong BufferLength = 250

ls_ComputerName = Space(BufferLength)
ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)

MessageBox("Aviso", ls_ComputerName )
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Funcion (API para obtener nombre de la PC)

Publicado por Luis Gabriel Vera Flores (37 intervenciones) el 14/09/2006 16:02:53
En una ventana normal agregas un StatiTex (control) y en el evento open de la ventana agregas este código dependiendo del S.O que tengas instalado en tu pc

/////Nombre del equipo de red - Win XP
string is_equipo

RegistryGet ("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Eventlog", &
"ComputerName",RegString!,is_equipo)
st_6.text=STRING(is_equipo)

/////Nombre del equipo de red - Win 2000
string is_equipo2

RegistryGet ("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName", &
"ComputerName",RegString!,is_equipo2)
st_6.text=STRING(is_equipo2)

Saludos desde Perú.......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar