problemas con FileCreate o CreateFile

[dec]

Hola,

Tal vez es que tengas que cerrar el archivo una vez creado para que puedas a su vez utilizar "ShellExecute" sin problemas. La función para cerrar un archivo es "CloseFile" o "FileClose".

Lo siguiente provocaría el error que mencionas:

Código Delphi [-]
var
  F: Integer;
begin
  F := FileCreate('C:\archivo.txt');
  //FileClose(F);
  ShellExecute(0, 'open', 'C:\archivo.txt', nil, nil, 0);
end;

Pero, con esto otro ya no habrá problemas:

Código Delphi [-]
var
  F: Integer;
begin
  F := FileCreate('C:\archivo.txt');
  FileClose(F);
  ShellExecute(0, 'open', 'C:\archivo.txt', nil, nil, 0);
end;

Si utilizas, empero, la función "CreateFile", entre sus parámetros está "dwShareMode", que te permite indicar la manera de compartir el archivo recién creado, mientras no lo cierres (cuando lo cierres el archivo estará disponible, claro).

Echa un vistazo a la ayuda de la función "CreateFile" del API de Windows:

FILE_SHARE_DELETE Windows NT only
Subsequent open operations on the object will succeed only if delete access is requested.

FILE_SHARE_READ
Subsequent open operations on the object will succeed only if read access is requested.

FILE_SHARE_WRITE:

Subsequent open operations on the object will succeed only if write access is requested.

Creo que a ti lo que te interesa la segunda constante.

El siguiente código no produce el error que mencionas, porque se cierra el archivo luego de creado y antes de abrirlo:

Código Delphi [-]
var
  F: Integer;
begin
  F := CreateFile('C:\archivo.txt', GENERIC_READ, 0,
   nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

  FileClose(F);

  ShellExecute(0, 'open', 'C:\archivo.txt', nil, nil, 0);
end;

Pero, tampoco este código produciría error alguno, puesto que se da permiso para leer el archivo, incluso sin que su "descriptor" esté cerrado:

Código Delphi [-]
var
  F: Integer;
begin
  F := CreateFile('C:\archivo.txt', GENERIC_READ, FILE_SHARE_READ,
   nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

  ShellExecute(0, 'open', 'C:\archivo.txt', nil, nil, 0);

  FileClose(F);
end;