Pobranie nazwy komputera


function STRING _GetComputerName()
#ifndef MAX_COMPUTERNAME_LENGTH
#define MAX_COMPUTERNAME_LENGTH 31
#endif
STRING szDLL;
number nReturn;
STRING szCompName[MAX_COMPUTERNAME_LENGTH+1];
LONG lvBuffer, nResult;
begin
szDLL = WINSYSDIR ^ "kernel32.DLL";
nReturn = UseDLL ( szDLL );
if (nReturn < 0) then MessageBox("Nie moża otworzyć kernel32.DLL", SEVERE); exit; else lvBuffer = MAX_COMPUTERNAME_LENGTH+1; nResult = GetComputerName(szCompName, lvBuffer); return szCompName; endif; UnUseDLL ( szDLL ); end;