abrir explorador de windows

[jonydread]

hola amigos junto con saludarlos ya que soy nuevo por aca y aprendiend recientemente delphi quisiera hacer una consulta quiza muchos saben pero yo no ejje intento crear una aplicacion grafica para una que es cmd, explico bien lo que hace, esta toma una archivo reg y lo convierte a inf, es todo, pero no se mucho de estos codigos y ni-siquiera he logrado crear el boton para abrir el explorador de windows para buscar el archivo reg
si alguien me podria ayudar estaria muy agradecido.

gracias!!

[[oscarac]]

Hola como estas....
tienes algo de codigo avanzado?
da un poquito mas de detalle de lo que necesitas.. de seguro alguien te puede ayudar

[jonydread]

la verdad no se mucho estoy recien aprendiendo no llevo un dia jejej estoy armando dejo lo que tengo

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    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

end;

end.

[[oscarac]]

existe un componente llamado opendialog
con el puedes abrir una rutina con el que te permitira buscar un archivo (tipo explorador de windows)

y para seleccionar el archivo puedes hacer mas o menos asi

Código Delphi [-]
 
if OpenDialog1.Execute then
  begin
    edtMovimientos.Text := OpenDialog1.FileName;
  end;
end;

[jonydread]

he tratado de hacerlo asi

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure open(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.open(Sender: TObject);
begin
OpenDialog1.Filename := '".reg"';
end;

end.

en el codigo qe dejaste debo cambiar algo
"edtMovimientos.Text" por ej qe se coloca aqui
tambien me sale error en esta linea if OpenDialog1.Execute then

gracias por su ayuda!

[[oscarac]]

en el ejemplo que te puse... el

odmovimientos.text es un edit donde se "captura" la ruta y el nombre del archivo que escogi en el openDialog

Código Delphi [-]
if OpenDialog1.Execute then Label1.Caption := OpenDialog1.FileName;

[jonydread]

en mi codigo como deberia realizarlo

edtMovimientos.Text agregarlo a type
ese campo dice Edit1: TEdit; hay que agregarle algo mas

bueno mi duda es que debo tener el type para que funcione lo que quiero realizar e intentado artas formas pero creo que algo me esta faltando...
gracias por tu paciencia jeje

[[oscarac]]

Empezado por jonydread

en mi codigo como deberia realizarlo

edtMovimientos.Text agregarlo a type
ese campo dice Edit1: TEdit; hay que agregarle algo mas

bueno mi duda es que debo tener el type para que funcione lo que quiero realizar e intentado artas formas pero creo que algo me esta faltando...
gracias por tu paciencia jeje

como te dije antes.... edtMovimientos es un EDIT, tu puedes colocar tu propio edit o un label y ahi se asignara la ruta del archivo que seleccionaste en el openDialog

[jonydread]

comienzo a comprender
gracias ay esta como debia hacerlo ahora voy por lo demas

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!!