scieżka katalogu Documents and Settings

witam

mam taki kod :

function GetFolderPath(Folder: Integer): string;
var
Path: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderPath(0, Path, Folder , False);
Result := Path;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=GetFolderPath(CSIDL_DESKTOPDIRECTORY);

end;

end.

wszystko fajnie działa ale jak zmieniam GetFolderPath(CSIDL_DESKTOPDIRECTORY) na GetFolderPath(CSIDL_PROFILE)

to już <ort>niechce </ort>czemu ? [browar]

po pierwsze: co znaczy "niechce"? wyrzuca blad, zwraca pustego stringa czy co? jak chcesz zebysmy pomogli Ci rozwiazac problem to opisuj go dokladnie.
po drugie: u mnie np brakuje tej stalej "CSIDL_PROFILE". jesli u Ciebie tez to sprawdz w necie jaka powinna byc jej wartosc.
po trzecie jest jeszcze:

GetEnvironmentVariable('userprofile');