Cita:
Empezado por danielmj
Hola, si es cierto abro 2 veces el archivo "X" pero entre estas dos veces abro el archivo "Y", es decir, la secuencia seria esta: "x" --> "y" --> "x" con lo cual al abrir "y" no deberia darme error al intentar abrir "x" ¿no? con tanta x e y es un lio, espero estar explicandome bien.
saludos y gracias.
|
Hola danielmj.
Tál como te mencionó
Neftalí el código que se visualiza no tendría que dar ese error.
Si limitas el código a:
Código Delphi
[-]
...
var
hdl: THandle;
FileData: TWin32FindData;
Size:int64;
begin
with OpenDialog1 do
if Execute then
begin
Size := 0;
hdl := FindFirstFile(PChar(FileName), FileData);
if (hdl <> INVALID_HANDLE_VALUE) then
begin
Int64Rec(Size).Lo := FileData.nFileSizeLow;
Int64Rec(Size).Hi := FileData.nFileSizeHigh;
end;
LabeledEdit1.Text := FileName;
end;
end;
verás que te cansas de seleccionar alternadamente dos archivos sin que se produzca la situación que mencionas.
También coincido con
Neeruu que pareciera que en otro punto del programa estas abriendo el archivo seleccionado sin cerrarlo. ¿ En la función
ConvertFileSizes tal vez ?
Saludos