Código Delphi [-] repeat Sleep($7F); // Application.ProcessMessages; until CloseHandle(CreateFile('C:\TEMP\FICHERO.DAT', GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0)); ListBox1.Items.LoadFromFile('C:\TEMP\FICHERO.DAT');
repeat Sleep($7F); // Application.ProcessMessages; until CloseHandle(CreateFile('C:\TEMP\FICHERO.DAT', GENERIC_READ, FILE_SHARE_READ + FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0)); ListBox1.Items.LoadFromFile('C:\TEMP\FICHERO.DAT');