如何在delphi中获得“我的文档”的路径？在线等～

Question

谢谢～！！

Answer 1

s.LoadFromFile('c:\My Documents\shoujihaoma.Txt');

Answer 2

楼上的那位讲的没错，但前提是你知道系统盘是C，最好的办法是用注册表
 在HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
下的Personal就是的拉
用D读注册表的列子就是
uses Registry;《----------要在USER加Registry
在事件前写
var reg:Tregistry;
BEGIN
reg:=Tregistry.create;
reg.rootkey:='HKey_Current_User';
reg.openkey('.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
reg.READString('Personal','0');reg.closereg;
reg.free;

Answer 3

获得“我的文档”文件夹需要读系统注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders的Personal值。 
程序代码：
uses Registry;procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', False)
    then  edit1.text:= Reg.ReadString('Personal')
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;win2000,delphi5下编译通过！

Answer 4

Reg.RootKey := HKEY_CURRENT_USER这句没通过编译阿 说没有HKEY_CURRENT_USER这样的定义
我use了Registry