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