function TForm1.regeditname(i:integer):string;
var
AuToRun: TRegistry;
begin //1快速启动栏位置 2当前用户桌面 3公共桌面位置
AuToRun := TRegistry.Create;
try
if (i = 0) or (i = 1) then
begin
AuToRun.RootKey := HKEY_CURRENT_USER;
AuToRun.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
if i = 0 then
begin
//快速启动栏位置,此位置比较特殊,w10和w7都是一样的
Result := AuToRun.ReadString('AppData') + '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar';
end
else
begin
//当前用户桌面位置
Result := AuToRun.ReadString('Desktop');
end;
AuToRun.CloseKey;
end
else if i = 2 then
begin
//公共桌面位置
AuToRun.RootKey := HKEY_LOCAL_MACHINE;
AuToRun.OpenKey('\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
Result := AuToRun.ReadString('Common Desktop');
AuToRun.CloseKey;
end;
finally
AuToRun.Free;
end;
end;
DELPHI 注册表取桌面、快速启动栏、公共桌面 路径
最新推荐文章于 2024-01-04 14:01:27 发布