Delphi XE2, Windows 7, fileexists y shellexecute no funcionan

[cloayza]

La modificación que te envié la prove en XE2 y si funciona...(Win7 x64).

Este es el código que probe....

Código Delphi [-]
var Archivo: string;
    errorcode: integer;
begin
     Archivo:='c:\Windows\SysWOW64\calc.exe';

     //Archivo:='c:\Windows\System32\calc.exe';

    If Not FileExists(Archivo) Then Exit;

    Errorcode:=ShellExecute(0, 'open', PWideChar(Archivo), nil, nil, SW_NORMAL);
end;

Verifica la ruta y nombre del comando a ejecutar...
Puede ser otro el problema...