Ver Mensaje Individual
  #4  
Antiguo 21-12-2004
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Usa la variable del sistema %HOMEPATH% para averiguar el dato que necesitas.

Puedes usar esta función:

Código Delphi [-]
function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer;  // buffer size required for value
begin
  // Get required buffer size (inc. terminal #0)
  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    // Read env var value into result string
    SetLength(Result, BufSize - 1); 
    GetEnvironmentVariable(PChar(VarName), PChar(Result), BufSize)
  end
  else
    // No such environment variable
    Result := '';
end;

%HOMEPATH% contiene el valor: C:\Documents and Settings\UserName, ya solo le tienes que agregar el resto de la ruta deseada.


Saludos...

Última edición por maeyanes fecha: 21-12-2004 a las 20:03:05.
Responder Con Cita