- 07, Apr 2014
- #1
Эй кодеры, дайте мне кодик пожалуйста на привязку к HWID, или чтобы хотябы была привязка к компьютеру и по серийному номеру.
Ну раз знаешь, напиши мне код)Какая программа?Лично умею делать в Autoите к привязке к железу с файла в сети
Какая программа?Лично умею делать в Autoите к привязке к железу с файла в сетиДелаю лоадер крч, нужно чтобы привязка была к примеру на 1 компьютер. А после переустановки Windows либо сбилось чтобы я потом все сделал, либо чтобы все ок было.
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; function ProcType: string;var
lpSystemInfo : TSystemInfo;
begin
GetSystemInfo(lpSystemInfo);
Result:=IntToStr(lpSystemInfo.dwProcessorType);
end; 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;Имя пк:Терь обьясни, куда это сувать? Просто я новичок в Delphi ))
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;
Тип процессора
function ProcType: string;var lpSystemInfo : TSystemInfo; begin GetSystemInfo(lpSystemInfo); Result:=IntToStr(lpSystemInfo.dwProcessorType); end;
Количество памяти:
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;
Можешь применить шифрование, соединить все это и т.д
![[Александр Ткаченко] Владимир Даль](/assets/images/icons/forum2.png){kind=icon}
![[Блокнот Желаний] 5 ключей ресурсного состояния женщины (2020)](/assets/images/icons/forum0.png){kind=icon}
![[яновский Алекс] Секреты Эффективного Управления [2014]](/assets/images/icons/forum4.png){kind=icon}
![[конспект Алгоритмы] Валерий Малышев - Групповой Коучинг По Теннису (2014)](/assets/images/icons/forum1.png){kind=icon}
