Código Delphi [-] Label_Mensaje.Caption := 'Abriendo...'; Application.ProcessMessages; OpenCd(TRUE); Sleep(1000); // 1 segundo de espera Label_Mensaje.Caption := 'Abierto.';
Label_Mensaje.Caption := 'Abriendo...'; Application.ProcessMessages; OpenCd(TRUE); Sleep(1000); // 1 segundo de espera Label_Mensaje.Caption := 'Abierto.';