[fpc-pascal] Function to know if WIN is 32 or 64

[Marcos Douglas]

On Tue, Mar 15, 2011 at 12:48 PM, Marco van de Voort <marcov at stack.nl> wrote:
> In our previous episode, Marcos Douglas said:
>> > ? ?if (IsWow64Process(GetCurrentProcess, IsWow64)) then
>> > ? ? Result := IsWow64
>> > ? end;
>> > ?FreeLibrary(hKernel32);
>> > end;
>>
>> Thanks Jeff, this also works and seems to be standard function to know
>> if is a 32 or 64bits
>> See http://msdn.microsoft.com/en-us/library/ms684139%28v=vs.85%29.aspx
>
> IIRC Delphi.about.com has Delphi code for this.

But I need it for FPC.


Marcos Douglas