[jonmendi]

Hola y Feliz año nuevo a tod@s!!

Tengo un sistema de 6 pc-s que se conectan a un "servidor" y escriben y leen en el mismo una seríe de ficheros. Uso el siguiente código:

function ComprobarUnidad(AUnidad: String): Boolean;
var
       f: Text;
begin
ComprobarUnidad := False;
…
 
Assign(f, AUnidad + '\flag.txt');
{$I-}
  Rewrite(f);
{$I+}
if IOResult = 0 then begin
  {$I-}
         Writeln(f, 'OK');
  {$I+}
  ComprobarUnidad := IOResult = 0;
  Close(f);
end;
end;

Un poco rudimentario, pero funciona ;-).

Tanto el servidor como los pc-s que se conectan tiene XP. Uso (aún) Delphi7.
El asunto es que quiero (más bien mi jefe) ponerle al servidor un windows7 a 64 bits. Y es aquí donde empiezan mis problemas.
Si el fichero flag.txt no existe no hay ningún problema, pero si existe este mismo código no funciona, ya que IOResult <> 0. Pero si hago un

showmessage(inttostr(IOResult))

esto sí que me daba un = 0. Esto me mosqueaba, con lo que pruebo el siguiente código:

 
function ComprobarUnidad(AUnidad: String): Boolean;
var
         f: Text;
resultado64Bits :Int64;
begin
  ComprobarUnidad := False;
…
 
Assign(f, AUnidad + '\flag.txt');
{$I-}
    Rewrite(f);
{$I+}
resultado64Bits := IOResult;
if IOResult = 0 then begin
    {$I-}
           Writeln(f, 'OK');
    {$I+}
    ComprobarUnidad := IOResult = 0;
    Close(f);
  end;
end;

Si el archivo no existe

showmessage(inttostr(resultado64Bits)) = 0

pero si existe

showmessage(inttostr(resultado64Bits)) = 5

¿Este 5 que significa? Mirando en los códigos de error,
http://www.freepascal.org/docs-html/.../ioresult.html me dice que es un acceso denegado. Pero el usuario que lo crea tiene control total en el "servidor".

¿Alguien tiene un sistema mixto 32 / 64 bits?¿Alguien ha tenido problemas parecidos al pasar a 64bits?
Muchas gracias!