[Casper-Hacker]

Один флуд вместо реальной помощи

Название процессора

Код:

uses ..., Registry, ...

function GetProcessorName: String;
var
  RegFile: TRegIniFile;
begin
  RegFile:=TRegIniFile.Create('Software');
  RegFile.RootKey := HKEY_LOCAL_MACHINE;
  RegFile.OpenKey('hardware', false);
  RegFile.OpenKey('DESCRIPTION', false);
  RegFile.OpenKey('System', false);
  RegFile.OpenKey('CentralProcessor', false);
  Result := copy(RegFile.ReadString(IntToStr(0),
                          'ProcessorNameString', ''),12,100);
 RegFile.CloseKey;
 RegFile.Free;
end;

Название видеокарты

Код:

function GetVideoCard:string;
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
  vidlst:tstringlist;
begin
  vidlst:=tstringlist.Create;
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
 while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
    vidlst.Add(lpDisplayDevice.DeviceString);
end;
result:=vidlst[0];
end;

Кол-во mhz процессора

Код:

function GetCPUSpeed: word;
begin
  with tregistry.Create do
  begin
    rootkey := HKEY_LOCAL_MACHINE;
    openkey('\hardware\description\system\centralprocessor\0\', false);
    result := readinteger('~mhz');
    free;
  end;
end;

Кол-во оперативки

Код:

function GetTotalPhys:DWORD;
var
 MemInfo : TMemoryStatus;
begin
MemInfo.dwLength := Sizeof (MemInfo);
GlobalMemoryStatus (MemInfo);
Result := MemInfo.dwTotalPhys;
end;

Вот основная инфа, остальное функции/процедуры ищи/пиши сам.

А передачу инфы php скрипту, сделай либо запросом на winapi или на idhttp.