Ordenar OpenDialog

[xio]

Ummmm! Necesito abrir un cuadro de dialogo y que me lo muestre con la vista de windows en miniaturas, pero no tengo forma de hacerlo. He estado viendo este post y he visto que hay forma de hacerlo pero no lo consigo.

Podriais echarme una mano??

Código Delphi [-]
  if OpenDialog.Execute then begin
    OpenDialog.InitialDir := ExtractFilePath(OpenDialog.FileName);
  end;

Asi es como abro yo el dialogo, podria adaptar esa forma que exponeis??

[Neftali [Germán.Estévez]]

Empezado por xio

Asi es como abro yo el dialogo, podria adaptar esa forma que exponeis??

¿Has mirado el ejemplo que hay un poco más arriba?

[xio]

Si, pero no se como integrarlo en mi codigo, soy un pelin torpe para estas cosas.....
He estado haciendo pruebas pero no se como integrarlo, lo siento

[Neftali [Germán.Estévez]]

Lo que tú estás haciendo es lo que en el ejemplo está como:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OpenDialog2.Execute;
end;

El resto sólo tienes que copiarlo como está ahí.

[xio]

Pues perdona mi torpeza pero no me funciona. Podrias pasarme un ejemplo en codigo??

[Neftali [Germán.Estévez]]

Sí, aquí lo tienes.

[xio]

Descargo el fichero y tiene un archivo que no tiene extension, con que programa debo abrirlo??