پیداکردن مسیر پوشه All Users

[hedi]

چگونه می توان مسیر پوشه All User را در ویندوز ها ی مختلف بدست آورد ؟ البته با استفاده از توابع API نحوه استفاده اش را می خواهم
با تشکر

[DAMAVAND]

در Xp که اینجوری هستش :


procedure TForm1.Button1Click(Sender: TObject);
var
c:array[0..255]of char;
s:String;
begin
GetWindowsDirectory(c,256);
s:=ExtractFileDrive(StrPas(c))+'\Documents and Settings\All Users';
Label1.Caption:=s;

end;

[Delphi Coder]

http://delphi.about.com/od/kbwinshell/a/SHGetFolderPath.htm