Obtener ruta completa

[Neftali [Germán.Estévez]]

Si te refieres al ajecutable:

Código Delphi [-]
Application.ExeName;

[pepecharlie67]

No,me refiero a un archivo .txt.Para cargar un archivo utilizo

Código Delphi [-]
IF Fileexists(ExtractFileDir (ParamStr(0))+NombreCargarConf.Text+'.ptd') THEN
      BEGIN
      Fichero:=NombreCargarConf.Text;
      MiFichero := TiniFile.Create(ExtractFileDir(ParamStr(0))+'/'+Fichero+'.ptd')
      {...}
      END
ELSE
      ShowMessage('El fichero solicitado no existe')

bien y para guardarlo lo mismo

IF NombGuardarConf.text<>'' THEN
   IF Fileexists(ExtractFileDir (ParamStr(0))+NombGuardarConf.Text+'.ptd') THEN
      DeseaSobrescribir.ShowModal
   ELSE
   BEGIN
     Fichero:=NombGuardarConf.Text;
    MiFichero:=TiniFile.Create(ExtractFileDir(ParamStr(0))+'/'+Fichero+'.ptd')

Pues bien,al cargar un fichero que he guardado previamente con el nombre de jose por ejemplo,me dice que al cargar el archivo jose el fichero no existe.¿Alguien sabe el porque?Gracias

[pepecharlie67]

Ya encontre el problema,no se rian...me faltaba +'/',jaja.Gracias tuve un despiste y me volvi loco...estas resacas...jaja.Gracias

[jhonny]

Me tome el atrevimiento de editar tu mensaje para poner las etiquetas [delphi], de esa manera puedes editar tu mensaje y ver como se debe hacer.