[DELPHI] OBTER TIPO DE SISTEMA DO WINDOWS (32 OU 64 BITS)

procedure TForm1.Button1Click(Sender: TObject); 

var

  IsWow64Process: function(hProcess: THandle; out Wow64Process: Bool): Bool; stdcall;

  Wow64Process: Bool;

begin

{$IF Defined(CPU64)}

  result := '64';

{$ELSEIF Defined(CPU16)}

  result := '32';

{$ELSE}

  @IsWow64Process := GetProcAddress(GetModuleHandle('Kernel32.dll'), PAnsiChar('IsWow64Process'));

  Wow64Process := false;

  if Assigned(IsWow64Process) then

    Wow64Process := IsWow64Process(GetCurrentProcess, Wow64Process) and Wow64Process;

  if Wow64Process then

    ShowMessage('Windows 64 bits!')

  else

    ShowMessage('Windows 32 bits!');

{$IFEND}

end;

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