function GetMyDocumentsPath() : String;
var
arrPath : array [0 .. MAX_PATH - 1] of Char;
begin
Result := '';
if SHGetSpecialFolderPath(0, arrPath, CSIDL_PERSONAL, false) then
Result := arrPath;
end;
var
arrPath : array [0 .. MAX_PATH - 1] of Char;
begin
Result := '';
if SHGetSpecialFolderPath(0, arrPath, CSIDL_PERSONAL, false) then
Result := arrPath;
end;
解决方案 »
- 请问delphi调用Oracle的村错过程出错!帮忙看一下,多谢
- 如何让 TAniMate 的背影色透明
- delphi 提取autocad数据
- 大家来总结一下搞DELPHI的工资待遇,是不是真的该换语言了。
- 打开一个FORM class TDBGrideh not found 是这么回事 ?
- 请问在DELPHI中。我用ADOCONNECTION连接MYSQL。为什么无法连接
- 招聘兼职Delphi程序员(天津)
- 新年送分,祝大家新年快乐!
- 窗体上放一PageControl,如何使PAGECONTROL(含TABSHEET)变透明以露出下面的窗体背景?
- 如何在Delphi中读取Bios中的内容?
- 如何提取应用程序的图标?
- 如何做出根据当天的日期,将以下报表并打印机出来?
RootKey := HKEY_CURRENT_USER;
\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
读Personal的值就可以了