发信人: soaringbird(假行僧*飞翔鸟)
整理人: soaringbird(2002-01-21 11:56:37), 站内信件
|
【 在 aohoo 的大作中提到：】
:【 在 soaringbird 的大作中提到：】
::【 在 aohoo 的大作中提到：】
:::例如：我的文档、IE的缓存目录、桌面、Font文件夹等
:::
:::我现在需要的是IE的缓存目录，Temporary Internet Files 目录，还请高手指点。
:
:......
uses
Registry;
function GetIExplorerCacheFolder(): string;
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
begin
Result := reg.ReadString('Cache');
reg.CloseKey();
end;
finally
reg.Free();
end;
end;
----
我强烈地憎恨所有的日本鬼子，我强烈地厌恶所有的哈日族分子！
打倒日本帝国主义！ |
|