Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) pegar o modelo do processador


danielrgoes

Pergunta

Bom dia pessoal

Gostaria de saber como faço pra pegar o modelo do processador

a velocidade eu consegui inclusive segue o codigo se alguém precisar

function GetCPUSpeed: Double;

const

DelayTime = 500;

var

TimerHi, TimerLo: DWORD;

PriorityClass, Priority: Integer;

begin

try

PriorityClass := GetPriorityClass(GetCurrentProcess);

Priority := GetThreadPriority(GetCurrentThread);

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);

SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

Sleep(10);

asm

dw 310Fh // rdtsc

mov TimerLo, eax

mov TimerHi, edx

end;

Sleep(DelayTime);

asm

dw 310Fh // rdtsc

sub eax, TimerLo

sbb edx, TimerHi

mov TimerLo, eax

mov TimerHi, edx

end;

SetThreadPriority(GetCurrentThread, Priority);

SetPriorityClass(GetCurrentProcess, PriorityClass);

Result := TimerLo / (1000.0 * DelayTime);

except

end;

end;

muito obrigado

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Opa tem sim... adiciona um Label e um Button no seu form, e no onclick do button bota o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
regi : TRegistry;
begin
regi:=tRegistry.Create;
With Regi do
Begin
  rootKey:=HKEY_LOCAL_MACHINE;
  OpenKey('Hardware\Description\System\CentralProcessor\zero',false);
  V:=ReadString('ProcessornameString');
  CloseKey;
end;
Label1.Caption:= 'Processador:'+ V;
end;

Obs: o algarismo 0 não aparece aqui, então substitua onde está escrito zero, pelo algarismo

Abraços

Editado por Douglas_Soares
Link para o comentário
Compartilhar em outros sites

  • 0

Douglas... reveja o seu código

uses registry;

procedure TForm1.Button1Click(Sender: TObject);
var
regi : TRegistry; s : string;
begin
   regi:=tRegistry.Create;
   With Regi do
   Begin
     rootKey:=HKEY_LOCAL_MACHINE;
     OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\zero',false);
     s:=ReadString('ProcessorNameString');
     CloseKey;
   end;
   Label1.Caption:= 'Processador:  '+ s;

end;

OBS: Onde esta escrito zero coloque o algarismo zero

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...