Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 21-11-2012
Atzael Atzael is offline
Miembro
NULL
 
Registrado: nov 2012
Posts: 10
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Guardar configuración de PrinterSetupDialog BlueSteel Impresión 10 09-07-2007 19:26:30
guardar configuracion wireless anubis Windows 0 17-05-2007 06:14:16
Guardar la configuracion en un archivo razor7 Varios 2 14-05-2007 06:15:37
Guardar Configuracion de Delphi 7 Paradiso Varios 1 06-02-2006 12:41:13
Guardar configuración del programa Crandel Varios 2 29-08-2005 18:03:46


La franja horaria es GMT +2. Ahora son las 19:51:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi