怎样得到windows的一些系统目录,比如'我的文档'我的文档里面的'我的音乐','我的视频'

Question

如题.

Answer 1

注册表中可以读取到   
  HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

Answer 2

我的文档
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
reg:Tregistry;
s:string;
begin
reg:=Tregistry.create;
reg.rootkey:=HKey_Current_User;
reg.openkey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
s:=reg.READString('Personal');
showmessage(s);
reg.closekey;
reg.free;
end;

Answer 3

全部写完了:
uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
reg:Tregistry;
s:string;
begin
reg:=Tregistry.create;
reg.rootkey:=HKey_Current_User;
reg.openkey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
s:=reg.READString('Personal');  //我的文档
showmessage(s);
s:=reg.READString('My Music'); //我的音乐
showmessage(s);
s:=reg.READString('My Pictures');//我的图片
showmessage(s);
s:=reg.READString('My Video'); //我的视频
showmessage(s);
reg.closekey;
reg.free;
end;