怎样找到当前系统windows目录路径或者program files路径 var s : string;begin SetLength(s,255); GetWindowDirectory(Pchar(s),255); SetLength(s,StrLen(Pchar(s)));end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var s : string;begin SetLength(s,255); GetWindowDirectory(Pchar(s),255); SetLength(s,StrLen(Pchar(s)));end;program files路径是固定的 ///////Begin Sourceuses ShlObj;function GetSpecialFolderDir(mFolder: Integer): string;{ 返回获取系统文件或系统目录 }(* CSIDL_BITBUCKET * 回收站 CSIDL_CONTROLS * 控制面板 CSIDL_DESKTOP * 桌面 CSIDL_DESKTOPDIRECTORY 桌面目录 //如C:\WINDOWS\Desktop CSIDL_DRIVES * 我的电脑 CSIDL_FONTS 字体 //如C:\WINDOWS\FONTS CSIDL_NETHOOD 网上邻居目录 //如C:\WINDOWS\NetHood CSIDL_NETWORK * 网上邻居 CSIDL_PERSONAL 我的文档 //如C:\My Documents CSIDL_PRINTERS * 打印机 CSIDL_PROGRAMS 程序组 //如C:\WINDOWS\Start Menu\Programs CSIDL_RECENT 最近文档 //如C:\WINDOWS\Recent CSIDL_SENDTO 发送到 //如C:\WINDOWS\SentTo CSIDL_STARTMENU 开始菜单 //如C:\WINDOWS\Start Menu CSIDL_STARTUP 启动 //如C:\WINDOWS\启动 CSIDL_TEMPLATES 模版 //如C:\WINDOWS\ShellNew*)var vItemIDList: PItemIDList; vBuffer: array[0..MAX_PATH] of Char;begin SHGetSpecialFolderLocation(0, mFolder, vItemIDList); SHGetPathFromIDList(vItemIDList, vBuffer); //转换成文件系统的路径 Result := vBuffer;end; { GetSpecialFolderDir }///////End Source///////Begin Demoprocedure TForm1.FormShow(Sender: TObject);begin Caption := GetSpecialFolderDir(CSIDL_DESKTOP);end;///////End Demo 还可以读registry,在hkey_local_maching/software/microsoft/windows/currentversion下有很多系统信息。如systemroot,programfilesdir........ 各位前辈,TCommBlock是什么东西啊? 如何限制一个特定的IP联到本机? 帮我改sql语句,谢谢 哈哈哈~~~明天开始休假了,今天放分,下午六点结贴~~~~ Delphi+ADoTable,与日期有关的过滤条件怎么设置才对? 谁能帮我写下这个 excel 模板公式! 怎样得到一太 计算机 的唯一标识 combobox有没有只能选,不能编辑的只读属性啊? 复兴科技高薪诚聘DELPHI开发工程师(深圳南山科技园) 请问分数用完了怎么办? 我又来简单的问题了送分了:关于delphi的字体问题 请问做三层时,可不可以直接从中间层返回ado的recordset对象?
s : string;
begin
SetLength(s,255);
GetWindowDirectory(Pchar(s),255);
SetLength(s,StrLen(Pchar(s)));
end;program files路径是固定的
uses
ShlObj;function GetSpecialFolderDir(mFolder: Integer): string;
{ 返回获取系统文件或系统目录 }
(*
CSIDL_BITBUCKET * 回收站
CSIDL_CONTROLS * 控制面板
CSIDL_DESKTOP * 桌面
CSIDL_DESKTOPDIRECTORY 桌面目录 //如C:\WINDOWS\Desktop
CSIDL_DRIVES * 我的电脑
CSIDL_FONTS 字体 //如C:\WINDOWS\FONTS
CSIDL_NETHOOD 网上邻居目录 //如C:\WINDOWS\NetHood
CSIDL_NETWORK * 网上邻居
CSIDL_PERSONAL 我的文档 //如C:\My Documents
CSIDL_PRINTERS * 打印机
CSIDL_PROGRAMS 程序组 //如C:\WINDOWS\Start Menu\Programs
CSIDL_RECENT 最近文档 //如C:\WINDOWS\Recent
CSIDL_SENDTO 发送到 //如C:\WINDOWS\SentTo
CSIDL_STARTMENU 开始菜单 //如C:\WINDOWS\Start Menu
CSIDL_STARTUP 启动 //如C:\WINDOWS\启动
CSIDL_TEMPLATES 模版 //如C:\WINDOWS\ShellNew
*)
var
vItemIDList: PItemIDList;
vBuffer: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(0, mFolder, vItemIDList);
SHGetPathFromIDList(vItemIDList, vBuffer); //转换成文件系统的路径
Result := vBuffer;
end; { GetSpecialFolderDir }
///////End Source///////Begin Demo
procedure TForm1.FormShow(Sender: TObject);
begin
Caption := GetSpecialFolderDir(CSIDL_DESKTOP);
end;
///////End Demo
有很多系统信息。如systemroot,programfilesdir........