Buscar por:

Conferindo se o processador da máquina é 386, 486 ou pentium

Código

{A função abaixo implementa uma rotina que através da função GetSystemInfo retorna se o processador instalado na sua máquina é um 386, 486 ou Pentium.  Se o seu processador não for nenhum destes apontados, a função retorna que seu processador é desconhecido.

Obs: Para ver o resultado desta rotina, ponha um componente Button no formulário, dê um duplo clique no mesmo e insira o código descrito abaixo da função.}

function Info: String;var SysInfo: TSystemInfo; 

begin 

GetSystemInfo(SysInfo); 

case SysInfo.dwProcessorType of 

386 : result := 'Processador 80386'; 

486 : result := 'Processador 80486'; 

586 : result := 'Processador Pentium'; else 

result := Format('Processado desconhecido (%d)', [SysInfo.dwProcessorType]); 

end; 

end; 

//Como Usar:

procedure TForm1.Button1Click(Sender: TObject); 

begin 

Showmessage('Nesta máquina temos :'+ Info); 

end;