Preparation of system options

[Lomanu4]

Name of computer

function GetCompName: string;
var buffer: array[0..255] of char;
size: dword; begin size := 256;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := '' ;
end;

Name of user

function GetUser: String;
  var UserName : PChar; NameSize : DWORD;
begin UserName := #0;
NameSize := 50;
try GetMem(UserName, NameSize);
GetUserName(UserName, NameSize);
Result:= StrPas(UserName);
finally FreeMem(UserName);
end;
end;

Ram

function MemorySize: string;
var lpMemoryStatus : TMemoryStatus;
begin
lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
GlobalMemoryStatus(lpMemoryStatus);
with lpMemoryStatus do begin
Result:=Format('%0.0f',[dwTotalPhys div 1024 / 1024])+' Mb';
end;
end;

Serial numbar of HD

function GetSerialNum: string;
var SerialNum: DWORD;
a, b: DWORD;
Buffer: array[0..255] of char;
begin
GetVolumeInformation(PChar('c:\'), Buffer, sizeof(Buffer), @SerialNum, a, b, nil, 0); result := IntToStr(SerialNum);
end;

Director receiving windovs

function GetWindowsDir: string; 
var p : PChar; 
begin GetMem(p, MAX_PATH); result := '';
if GetWindowsDirectory(p, MAX_PATH) > 0 then 
result := string(p);
 FreeMem(p);
 end;

Serial numbar of BIOS

function GetBiosNumber: string;
 begin 
result := string(pchar(ptr($FEC71))); 
end;

Check if you are connected to internet

function IsConnectedToInternet: Boolean; var dwConnectionTypes: DWORD;
 begin
 dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; Result := InternetGetConnectedState(@dwConnectionTypes, 0); 
end;

Button.Click
begin
 if IsConnectedToInternet then 
ShowMessage('Connected.') 
else 
ShowMessage('Not Connected.')
 end;