• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Preparation of system options

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,151
Симпатии
222
Баллы
155
VK
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;
 
Последнее редактирование:
Вверх Снизу