GetComputerName

win32api/getcomna.txt 19-Apr-00
http://members.xoom.com/n_s_wong
http://www.angelfire.com/ns/nswong

_DLL FUNC GetComputerName(lpBuffer AS PSZ, nSize AS DWORD ;
  PTR) AS LOGIC PASCAL:KERNEL32.GetComputerNameA#192

PROCEDURE Start()
  LOCAL DIM abBuffer[MAX_COMPUTERNAME_LENGTH + 1] AS BYTE
  LOCAL dwSize AS DWORD
  dwSize:=MAX_COMPUTERNAME_LENGTH + 1
  GetComputerName(@abBuffer, @dwSize)
  MessageBox(NULL,@abBuffer,String2Psz("GetComputerName"),0)
RETURN

