Foros Club Delphi - abrir explorador de windows

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - abrir explorador de windows (https://www.clubdelphi.com/foros/showthread.php?t=76490)

jonydread

04-11-2011 14:29:32

abrir explorador de windows

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

04-11-2011 14:55:38

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

04-11-2011 15:09:32

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

Código:

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

04-11-2011 15:23:28

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

04-11-2011 15:54:23

he tratado de hacerlo asi

Código:

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

04-11-2011 15:58:18

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

04-11-2011 16:34:17

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

04-11-2011 16:44:06

Cita:

Empezado por jonydread (Mensaje 417608)

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

04-11-2011 20:24:18

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

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

La franja horaria es GMT +2. Ahora son las 17:13:25.