Obtener ruta de archivo a partir de directorio superior

[[nlsgarcia]]

pokexperto1,

...Obtener ruta de archivo a partir de directorio superior...(DeleteFile)...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Archivos a Borrar|*.*';
   openDialog.FilterIndex := 1;
   if openDialog.Execute then
      DeleteFile(openDialog.FileName);
   openDialog.Free;
end;

El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite borrar un archivo en un directorio cualquiera.

Revisa esta información:

1- ExtractFileName

2- ExtractFilePath

Espero sea útil

Nelson.