Llamar a una funcion de la API de Windows

A veces es necesario utilizar funciones del Sistema Operativo, esto se implementa con una llamada a una funcion de una DLL del Sistema:

A continuación un ejemplo para obtener el nombre de la PC donde se ejecuta el Programa:

Obtener el nombre de usuario y de la PC.

Se necesita declarar dos funciones API externas:

FUNCTION long GetComputerNameA(ref string ComputerName, ref ulong BufferLength) LIBRARY "KERNEL32.DLL"
FUNCTION long GetUserNameA(ref string UserName, ref ulong BufferLength) LIBRARY "ADVAPI32.DLL"

Implementación de la Función:

long ll_ret
string ls_ComputerName, ls_UserName
ulong BufferLength = 250
ls_ComputerName = Space(BufferLength)
ls_UserName = Space(BufferLength)
ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)
ll_ret = GetuserNameA(ls_UserName, BufferLength)