Ver Mensaje Individual
  #3  
Antiguo 19-12-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Reputación: 19
BuRtOn Va por buen camino
Hola dec, si la sintaxis estaba mal, pero ya la habia corregido, pero no me ejecuta nada, en pocas palabras quedaria asi el codigo:

Código Delphi [-]
procedure TfrmReportes.LbSpeedButton3Click(Sender: TObject);
begin
  If FileExists("D:\Giros\'+edtBusqueda.text+'.xls") = True
  begin 
    shellexecute(Handle, 'open', '+edtBusqueda+'.xls', '', '', SW_show);
  end else 
  begin 
    // mensaje: no existe un archivo con este nombre
  end;

solo que no funciona....

Última edición por dec fecha: 19-12-2008 a las 22:38:11.
Responder Con Cita