Ver Mensaje Individual
  #1  
Antiguo 29-02-2012
cardanver cardanver is offline
Miembro
NULL
 
Registrado: feb 2012
Ubicación: Entre Ríos, Argentina
Posts: 14
Reputación: 0
cardanver Va por buen camino
Edición de archivos txt

Hola a todos.
Les comento, realice una aplicación que genera un archivo txt donde guarda todos los campos completados.
Logre que lo genere si no existe o agregue datos si ya existe.
El problema comienza cuando con el inno setup hago el instalador, al ejecutar la aplicación funciona pero no me guarda ni genera el archivo txt.
Que debería modificar, para que al instalarse el aplicativo genere y/o agregue el archivo.
Les adjunto el codigo con el que genero el archivo:

Código Delphi [-]
 

  path: TextFile;
  sArchivo: string;

Begin
   sArchivo := ExtractFilePath( Application.ExeName ) + 'archivo1.txt';
   AssignFile( path, sArchivo );
 if FileExists( sArchivo )
 then
 begin
   Append( path )
 end
 else
 begin
   Rewrite( path );
 end;
 WriteLn( path,MaskEdit1.Text+' ',MaskEdit2.Text+' ',MaskEdit3.Text+' ',MaskEdit4.Text+' ',MaskEdit5.Text+' ',MaskEdit6.Text+' ',MaskEdit7.Text+' ',MaskEdit8.Text+' ',MaskEdit9.Text+' ',MaskEdit10.Text+' '  );
 WriteLn(path,'-------------------------------------------------------------------------0-------------------------------------------------------------------------');
 WriteLn(path,'');
 CloseFile( path );

Desde ya agradezco su ayuda, saludos.
Responder Con Cita