On Tue, Mar 15, 2011 at 11:13 AM, Henry Vermaak <henry.verm...@gmail.com> wrote:
>
> On 15 March 2011 14:05, Marcos Douglas <m...@delfire.net> wrote:
> > Is there some function to know if the Windows is 32 or 64?
>
> You can use the GetNativeSystemInfo function. Check
> TSystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 to
> see if it's 64 bit.
What unit?
I've used this function in Delphi (7) and didn't work:
function is64bitOS: boolean;
var
SysInfo: TSystemInfo;
begin
GetSystemInfo(SysInfo);
Result := (
(Sysinfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64)
or (Sysinfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64)
);
end;
Marcos Douglas
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
