[DELPHI] QUANTIDADE DE NÚCLEOS DA CPU

procedure TForm1.Button1Click(Sender: TObject); 

var

  si: TSystemInfo;

begin

  GetSystemInfo(si);

  ShowMessage(inttostr(si.dwNumberOfProcessors));

end;

procedure TfrmWindows.Button15Click(Sender: TObject);

var

  cUser: array [0 .. 144] of char;

  BufferSize: DWORD;

  cUserName: string;

begin

  BufferSize := SizeOf(cUser);

  GetUserName(cUser, BufferSize);

  cUserName := trim(StrPas(cUser));

  ShowMessage(cUserName);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】