fileexist for win 64bit

fileexist64.pas

function FileExists64(const FileName: string):Boolean;
type TWow64DisableWow64FsRedirection = function(var Wow64FsEnableRedirection: LongBool): LongBool; stdcall;
     TWow64EnableWow64FsRedirection  = function(Wow64FsEnableRedirection: LongBool): LongBool; stdcall;

var  hHandle: THandle;
     Wow64DisableWow64FsRedirection : TWow64DisableWow64FsRedirection;
     Wow64EnableWow64FsRedirection  : TWow64EnableWow64FsRedirection;
     Wow64FsEnableRedirection       : LongBool;
begin
 hHandle := GetModuleHandle('kernel32.dll');
 @Wow64EnableWow64FsRedirection  := GetProcAddress(hHandle, 'Wow64EnableWow64FsRedirection');
 @Wow64DisableWow64FsRedirection := GetProcAddress(hHandle, 'Wow64DisableWow64FsRedirection');
 if (hHandle <> 0) and (@Wow64EnableWow64FsRedirection <> nil)
      and (@Wow64DisableWow64FsRedirection <> nil) Then
  begin
   Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection);
   Result := FileExists(FileName);
   Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection);
  end
 else Result:=False;
end;