Duda acerca de ShellExecute

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

[Chupi]

Pues parece que no funciona, le puse el siguiente codigo y nada:

procedure TForm1.Button1Click(Sender: TObject);
function GetSpecialFolder(nFolder: Integer): String;
var
Path: array[0..MAX_PATH] of Char;
begin
ShlObj.SHGetSpecialFolderPath(0, Path, nFolder, false);
Result := Path;
end;
End;
end.

Me da los siguientes errores:

[Error] Unit1.pas(39): BEGIN expected but END found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[roman]

No pongas el cuerpo de la función dentro del procedimiento. La función está para que puedas usarla desde cualquier parte. Suponiendo que vas a colocar la ruta en un edit al moment de hacer click al botón, pondrías:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := GetSpecialFolder(CSIDL_INTERNET_CACHE);
end;

pero la definición de la función la dejas fuera.

// Saludos

pd: ¿A qué libro te refieres? Ten encuenta que ningún libro bastará y tienes que recurrir a varias fuentes. Para cuestiones relacionadas con las APIs de Windows, una fuente invaluable es la ayuda del SDK de Windows que se incluye con Delphi o que puedes consultar más actualizada y completa
directamente en línea en http://msdn.microsoft.com/library/

[Chupi]

Ok pero sigo teniendo problemas de tozudo porque no tengo ni idea y puse lo siguiente:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShlObj, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetSpecialFolder(nFolder: Integer): String;
procedure TForm1.Button1Click(Sender: TObject);
var
Path: array[0..MAX_PATH] of Char;
begin
ShlObj.SHGetSpecialFolderPath(0, Path, nFolder, false);
Result := Path;
end;
End;
end.

Y los errores:

[Error] Unit1.pas(27): ';' expected but '.' found
[Error] Unit1.pas(12): Unsatisfied forward or external declaration: 'TForm1.Button1Click'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Seguro que la respuesta esta ante mis narizes lo que pasa que todavia no entiendo muy bien los codigos, solo me se los basicos.

Y acerca de lo del libro es mas bien un manual de como usar el delphi.

PD: Gracias por aguantarme.

[[maeyanes]]

Sigues poniendo mal tú código...

Debes hacerlo así más o menos...

Código Delphi [-]

// Inicio de unidad y Declaraciones...

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

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := GetSpecialFolder(CSIDL_INTERNET_CACHE);
end;

[Chupi]

no quiero nada de un texto, tan solo es una variable que no se donde ponerla pero si se que la del win2K es USERPROFILE% y la del XP es %HOMEPATCH% y yo me toy aciendo un lio.

PD: vamos a batir un record en mensajitos colega.