Delphi XE2, Windows 7, fileexists y shellexecute no funcionan

[ecfisa]

Hola sonjeux.

Lamento no tener otra versión, pero te adjunto un código que funciona correctamente con Delphi 7 en Windows 64bits, estimo que debería hacerlo del mismo modo en Delphi XE2. Para probarlo, crea una carpeta temporal y descomprimilo allí. (El demo incluye un archivo .txt en la misma carpeta)

Algo importante a tomar en cuenta es que en Windows 64bits la carpeta Windows\System32 es redirigida a Windows\SysWOW64, así que el código:

Código Delphi [-]
 procedure TForm1.btnSystem32Click(Sender: TObject);
begin
  if FileExists('C:\Windows\System32\telnet.exe') then
    ShowMessage('Existe')
  else
    ShowMessage('No existe')
end;

nos va a porfiar con un rotundo "No existe" aunque tengamos seleccionado el archivo desde el explorador de windows y precisamente en esa carpeta ...

La solución mas simple es reemplazar "System32" por el alias "Sysnative" que le indica al sistema de archivos que no debe redirigir el acceso:

Código Delphi [-]
procedure TForm1.btnSysnativeClick(Sender: TObject);
begin
  if FileExists('C:\Windows\Sysnative\telnet.exe') then
    ShowMessage('Existe')
  else
    ShowMessage('No existe')
end;

Saludos

[Neftali [Germán.Estévez]]

A veces es problema de que el nombre incluye espacios.
Haz una sencilla prueba de acceder a un nombre de fichero sencillo (sin espacios y con pocos caracteres).
Por ejemplo: c:\hola.txt

Descartarás de esa forma que sea por ese problema.

La otra opción más común es que sea por tema de permisos.

[ecfisa]

Hola sonjeux.

Ampliando el caso de FileExists, se puede encapsular la detección del SO en una función para que trabaje en Win32 y Win64:

Código Delphi [-]
function FileExistsExt(aFileName: TFileName): Boolean;
type
 LPFN_ISWOW64PROCESS = function(hProcess: THandle; var Wow64Proc: BOOL): BOOL; stdcall;
var
  fnIsWow64Proc: LPFN_ISWOW64PROCESS;
  IsWow64: BOOL;
begin
  fnIsWow64Proc:= LPFN_ISWOW64PROCESS(GetProcAddress(GetModuleHandle('kernel32'), 'IsWow64Process'));
  if Assigned(fnIsWow64Proc) then
    fnIsWow64Proc(GetCurrentProcess(), IsWow64);
  if IsWow64 then
    Result:= FileExists(StringReplace(aFileName, 'System32', 'Sysnative', [rfIgnoreCase]))
  else
    Result:= FileExists(aFileName);
end;

Saludos