Ver Mensaje Individual
  #7  
Antiguo 11-01-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Cita:
A la que esta compilado el programa.
La funcion que se encuentra en el hilo de StackOverflow evalua si el equipo esta corriendo bajo Windows de 64 bits; no evalua tu ejecutable

Osea que lo que queres saber vos es determinar si el sistema operativo es de 32 o 64 bits. Eso lo podes hacer usando la RTL de Delphi

TOSVersion

Código Delphi [-]
uses
  SysUtils;

begin
  if TOSVersion.Architecture in [arIntelX64, arARM64] then
    ShowMessage('Sistema operativo de de 64 bits')
  else
    ShowMessage('Sistema operativo de de 32 bits')
end;
Responder Con Cita