Nombre de usuario
 

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:D

Como lo hago ??:cool:

Gracias

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

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

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

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

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"

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