1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

const
  SHGFP_TYPE_CURRENT = 0;
  CSIDL_PROFILES =$3e;
  CSIDL_PROFILE= $28;
var
  path: array[0..MAX_PATH] of char;
begin

    SHGetFolderPath(0, CSIDL_PROFILES, 0, SHGFP_TYPE_CURRENT, @path[0]) ;
    showmessage(path);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.Button1Click(Sender: TObject);
uses
  SHFolder;

const
  SHGFP_TYPE_CURRENT = 0;
  CSIDL_PROFILES = $3E;
  CSIDL_PROFILE = $28;
var
  path: array[0..MAX_PATH] of char;
  x: integer;
  Dummy_String,Hex_String: string;
begin

  memo1.Clear;
  for x := 0 to 10240 do
  begin
    SHGetFolderPath(0, x, 0, SHGFP_TYPE_CURRENT, @path[0]);
    Dummy_String := path;
    if length(trim(Dummy_String)) > 0 then
      Memo1.lines.Add(format('%d ($%s) -> %s', [x, IntToHex(x,100),Dummy_String]));
    path[0] := #0;
    if x mod 25 = 0 then
      Application.Processmessages;
  end;

end;