Abrir un fichero desde Delphi

[jocey]

Hola, necesito ver un ejemplo de como abrir un fichero cualquiera desde Delphi, se que utiliza la funcion ShellExecute, pero please ponganme un ejemplito sencillo.

Gracias Amigos

[[Caral]]

Hola
Perdona mi ignorancia, un fichero es un archivo text o ini o bat ?
Saludos

[marcoszorrilla]

A ver si esto lo que pides:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'mailtoepeperez @asucorreo.com', nil, nil,0);
end;

end.

Un Saludo.

[jocey]

Empezado por Caral

Hola
Perdona mi ignorancia, un fichero es un archivo text o ini o bat ?
Saludos

caral mira lo que necesito hacer es abrir un video a una hora determinada, yo se trabajar con temporalizadores, ahora lo que quiero saber como abro el video.....


Gracias

[[Caral]]

Hola
marcoszorrilla te dio la respuesta correcta.
Saludos

[[Delphius]]

Hola jocey,
¿Y no te vale lo que ofrece marcoszorrilla? ¿Por otro lado.. si sabes que se emplea ShellExecute() porque no vas a la ayuda y te fijas como se emplea?

Y por si fuera poco, hay infinidades de ejemplos en los foros... haz una búsqueda con dicha palabra y obtendrás no pocos resultados.

Saludos,

[jocey]

Empezado por marcoszorrilla

A ver si esto lo que pides:

Código Delphi [-]unit Unit1;

interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi; type TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private { Private declarations } public { Public declarations } end;

var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject);
begin ShellExecute(0, 'open', 'mailtoepeperez @asucorreo.com', nil, nil,0);
end;

end.



Un Saludo.

Gracias Muchas