Ver Mensaje Individual
  #5  
Antiguo 21-11-2012
Atzael Atzael is offline
Miembro
NULL
 
Registrado: nov 2012
Posts: 10
Reputación: 0
Atzael Va por buen camino
Post

gracias por su ayuda que me dan >_< pude hacer el código usando un archivo .INI para que se guarde las configuraciones
que se hagan y no se pierdan al cerrar el proyecto
pero tengo un problema creo que hace conflicto al seleccionar el archivo
cuando están separados funcionan de lo mas normal
Aquí Dejo La muestra del Proyecto , pero esta con el error haber si me dan la mano de solucionarlo

Código SQL [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ExtCtrls, XPMan, IniFiles;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Timer1: TTimer;
    XPManifest1: TXPManifest;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyIni : TIniFile;
  MyString : String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  Var
  diretorio : String;
begin
  if opendialog1.Execute then
showmessage(extractfiledir(opendialog1.FileName));
edit1.Text := OpenDialog1.FileName;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   WinExec(PChar('"'+Edit1.Text),SW_SHOW);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
  MyIni := TIniFile.Create(GetCurrentDir+'\Ini\archivo1.ini');
  MyIni.WriteString('Config', 'Edit', Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyIni := TIniFile.Create(GetCurrentDir+'\Ini\archivo1.ini');
Edit1.Text := MyIni.ReadString('Config', 'Edit', Edit1.Text);
end;

end.

Si Quito el código del INI la selección del .exe es estable y funciona normal
pero con la Adicionar el código INI sale un error, amenos que quite el código de selección de .exe
por separados funcionan de lo mas normal normal,

mi pregunta es como hacer que funcionen juntos
seleccionando la ruta del exe y se guarde en el Ini sin salir error


saludos

disculpen las molestias ando empilado en seguir aprendiendo XD >__<
Responder Con Cita