comienzo a comprender
gracias ay esta como debia hacerlo ahora voy por lo demas
Código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan;
type
TForm1 = class(TForm)
XPManifest1: TXPManifest;
Edit1: TEdit;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
opendialog1.Filter := 'Archivos de registro|*.reg';
edit1.Text := OpenDialog1.FileName;
end;
end.
gracias nuevamente!!