Nombre de usuario

[Saltimbanki]

Hola, necesito hacer un programilla para borrar un fichero de forma automatica.
El fichero en cuestion esta en la carpeta usuarios/Nombre Usuario, y no se averiguar el nombre de usuario para acceder a dicha carpeta.
Tambien necesito visualizar los ficheros ocultos

Como lo hago ??

Gracias

[Casimiro Noteví]

Creo que para empezar deberías dar un repaso a nuestra guía de estilo, gracias
Y después, depende de cuál sea el problema exacto que tengas...

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

Empezado por Casimiro Notevi

Creo que para empezar deberías dar un repaso a nuestra guía de estilo, gracias
Y después, depende de cuál sea el problema exacto que tengas...

+1

Empezado por Saltimbanki

Hola, necesito hacer un programilla para borrar un fichero de forma automatica.

Eso es sencillo.
https://docwiki.embarcadero.com/Libr...ils.DeleteFile

Empezado por Saltimbanki

El fichero en cuestion esta en la carpeta usuarios/Nombre Usuario

Si no es tu usuario, necesitarás elevación de permisos o permisos de Administrador (o ambas cosas).

Empezado por Saltimbanki

...y no se averiguar el nombre de usuario para acceder a dicha carpeta.

¿Cuál es la lógica para averiguarlo?

Empezado por Saltimbanki

Tambien necesito visualizar los ficheros ocultos

Revisa las funciones de búsqueda de ficheros:
https://docwiki.embarcadero.com/RADS...Finding_a_File

NOTA: Atención al parámetro Attribute, con el valor: "faHidden | $00000002 | Hidden files"

[navbuoy]

Código Delphi [-]
uses
  SysUtils;

var
  UserFolder: string;
begin
  UserFolder := GetEnvironmentVariable('USERPROFILE');
  ShowMessage(UserFolder);
end;

o solo el nombre de usuario:

Código Delphi [-]
uses
  Windows;

var
  NombreUsuario: array[0..255] of Char;
  Tam: DWORD;
begin
  Tam := SizeOf(NombreUsuario);
  if GetUserName(NombreUsuario, Tam) then
    ShowMessage('Usuario: ' + NombreUsuario);
end;

Si quieres ir más lejos y obtener cosas como "Mis Documentos", usá SHGetFolderPath:

Código Delphi [-]
uses
  ShlObj, Windows, SysUtils;

var
  path: array[0..MAX_PATH] of Char;
begin
  SHGetFolderPath(0, CSIDL_PERSONAL, 0, 0, path);
  ShowMessage('Mis Documentos: ' + path);
end;

También puedes usar:

CSIDL_DESKTOP → Escritorio

CSIDL_APPDATA → AppData\Roaming

CSIDL_LOCAL_APPDATA → AppData\Local