Funcion GetComputerName()

[Mario Mansilla]

Hola :
Necesito obtener el nombre de la pc donde se esta ejecutando la aplicacion y al colocar la funcion GetComputerName() me da error y no se crea el ejecutable .
Tengo que agregar alguna libreria extra ?
Uso Hmg 3.046 + Ide

Hello:
I need to get the name of the PC where you are running the application and place the GetComputerName function () it gives me error and creates the executable.
I have to add any additional library?
I use Hmg 3.046 + Ide

Saludos
Mario Mansilla

[danielmaximiliano]

Hola Mario:
estoy utilizando esto en mi aplicacion de red

Code: Select all

Public cDefaultUser    := GETENV( "UserName"     ) 
Public cDefaulMachine:= GETENV( "COMPUTERNAME" )

[Pablo César]

Necesito obtener el nombre de la pc donde se esta ejecutando la aplicacion y al colocar la funcion GetComputerName() me da error

Mario, podria disponibilizar el mensaje de error ?

Porque yo lo utilizo GetComputerName() sin problemas.

[Pablo César]

In the fact in HMG this function there is not present, sorry. But this is not considered as BUG, so please note following code added:

Code: Select all

#include <hmg.ch>

Function Main()
MsgInfo(GetComputerName())
MsgInfo(GetUserName())
Return Nil

#pragma BEGINDUMP

#include <windows.h>
#include <lmcons.h>

HB_FUNC( GETUSERNAME )
{
   TCHAR lpBuffer[ UNLEN + 1 ];
   DWORD nSize = UNLEN;

   GetUserName( lpBuffer, &nSize );

   hb_retc( lpBuffer );
}
HB_FUNC( GETCOMPUTERNAME )
{
   TCHAR lpBuffer[ 129 ];
   DWORD nSize = 128;

   GetComputerName( lpBuffer, &nSize );

   hb_retc( lpBuffer );
}
#pragma ENDDUMP

I hope you enjoy it !

[Mario Mansilla]

Hola Daniel , Pablo :
Perfecto , ambas soluciones funcionan
Muchas gracias
Saludos
Mario Mansilla