Código: Seleccionar todo

/* DaW - Labs - http://daw-labs.com */

#include <windows.h>

int main(int argc, CHAR* argv[])
{
	char Buffer[MAX_COMPUTERNAME_LENGTH + 1];
	DWORD nSize = sizeof(Buffer);
	if (GetComputerName(Buffer,&nSize))
		{
			MessageBox(0,Buffer,"Nombre de PC",MB_OK | MB_ICONINFORMATION);
		}
	return 0;
}

Código: Seleccionar todo

(*
    Autor: .:WindHack:.
    Sitio web: http://daw-labs.com
    Clase: Función
    Descripción: Obtiene el nombre del PC usando la API GetComputerName.
*)

function GetPC_Name():String;
var
  Buffer:Array [0..MAX_COMPUTERNAME_LENGTH] of Char;
  BufferSize:DWORD;
begin
  BufferSize := SizeOf(Buffer);
  Result := '';
  if GetComputerName(Buffer,BufferSize) then
    Result := Buffer;
end;