hola amigos he regresado y en forma de galletitas....(pequeño chiste) bien veran lo que yo quiero hacer es abrir desde delphi cualquier archivo, sea jpeg,pdf,word,excel,powertpoint, aunque se abra en su aplicacion origen, un ejemplo es digamos que tienen varios archivos en su escritorio, word,excel,pdf,etc.. si ustedes le dan un click al archivo se abre en el programa al cual corresponde la extencion, bien, pues yo quiero hacer lo mismo pero desde delphi,pero utilizando un opendialog y alguna funcion que los abriera, buscando en los foros escuche hablar de shellexecute y pues aparentemente creo que si me funciona solo que hay un problema tengo este codigo
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(GetActiveWindow(),'open', 'c:\b.pdf' , nil,nil,W_SHOWNORMAL);
end;
bien eso lo que hace es que me abre un archivo que tengo en C: que se llama ''b'' y es pdf. y me lo abre bien, hasta ahi todo bien, la cosa es que cuando yo le agrego el open.dialog pues no me sale, mi codigo es asi:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog.Execute then
begin
ShellExecute(GetActiveWindow(),'open','opendialog.Files.Text', nil,nil, SW_SHOWNORMAL);
end;
end;
pero con esas lineas no me abre nada,es decir, si se despliega el opendialog y selecciono el mismo archivo que quiero abrir (b.pdf) pero no lo abre,no se que estoy haciendo mal segun yo deberia de funcionar con el codigo que puse pero no hace nada, o tal ves no es la forma indicada, lo que yo quiero es abrir cualquier archivo pero por medio de un open.dialog, si alguien me hecha una manita pues con mucho gusto se los agradecere, se que es un detallito el que falta creo
o si alguien tiene una mejor solucion adelante
Gracias !!