Duda acerca de ShellExecute

[Chupi]

Hola me gustaria saber si podría poner un codigo para que se ejecute el ShellExecute para todos los usuarios, aver que me explico, un ejemplo:

ShellExecute ('C:\Documents and Settings\Administrador' ) ;

Donde Administrador puede estar el nombre de otro usuario y me pregunto si ay un comando para que funcione con todos, algo asi como ¨users¨, no se mejor dejo de decir burradas y me ayudais, GRACIAS.

PDT: eta es mi 1ª pregunta aqui

[defcon1_es]

Hola,
¿pero qué fichero quieres ejecutar exactamente?

ShellExecute sirve para realizar acciones sobre ficheros,
¿qué es lo que quieres hacer?

PD: Ayuda de MS sobre ShellExecute
http://msdn.microsoft.com/library/de...ellexecute.asp

[Chupi]

quiero crear un boton que me lleve a un directorio que se encuentra en documents & settings, cosa que ya consegui. Lo que pasa que solo me funciona a mi por lo siguiente:

"El boton que cree en la aplicacion me lleva al siguiente directorio..."

C:\Documents and Settings\Chupi\Configuración local\Archivos temporales de Internet

"...y a unas cuantas personas les gusto mi aplicacion porque son unos gandules."

Entonces yo no boy a estar creando aplicaciones para cada uno de los usuarios que me la pidan. Así es como lo puse y funciona, pero solo para mí:

ShellExecute ( 'C:\Documents and Settings\Chupi\Configuración local\Archivos temporales de Internet' )

El problema esta en "Chupi", no todo el mundo tiene este directorio claro.

GRACIAS por atenderme.

[[maeyanes]]

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...

[roman]

Otra forma es usar la siguiente función:

Código Delphi [-]
uses
  ShlObj;

function GetSpecialFolder(nFolder: Integer): String;
var
  Path: array[0..MAX_PATH] of Char;

begin
  ShlObj.SHGetSpecialFolderPath(0, Path, nFolder, false);
  Result := Path;
end;

que te da la ruta de muchos folders de este tipo. En tu caso usarías:

Código Delphi [-]
Edit1.Text := GetSpecialFolder(CSIDL_INTERNET_CACHE);

Si consultas la ayuda del SDK de Windows para la función ShGetSpecialFolderLocation podrás ver los valores que puedes dar al parámetro nFolder.

// Saludos

[Chupi]

Ok, gracias creo que ya me quedo claro, aver si me compro el dichoso libro porque si no boy a estar con dudas hasta que me canse.