function CADPath(Param:string): String;
var
filePath: String;
subkeynames1, subkeynames2: TArrayOfString;
begin
if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD', subkeynames1) then
if RegGetSubkeyNames(HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD\'+subkeynames1[0], subkeynames2) then
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD\'+subkeynames1[0]+'\'+subkeynames2[0], 'AcadLocation', filepath) then
begin
Result:=filePath;
end else
Result:='{pf}\';
end;
以前用这个脚本可以提取HKEY_LOCAL_MACHINE, 'SOFTWARE\Autodesk\AutoCAD下面子键名可能不同的路径,但是只能在AutoCAD下面只有一个子键的时候,如果AutoCAD下面有两个子键呢??