delphi - BDE、Windows 7 和 UAC

Question

我有一个用 delphi 5 编写的非常旧的应用程序，在一些使用 BDE 的客户中运行。现在，一些使用 Windows Vista 和 7 的用户已经尝试了多用户访问的一些问题。我认为这些问题与 net. 和 .lck 文件的位置有关。所以问题是在 Windows Vista 和 7 下配置 BDE 以避免权限和 UAC 冲突的正确方法是什么？

Answer 1

除了上述答案之外，您还需要确保 .net 和 .lck 文件位于 Windows 7 下的用户特定目录中，具体来说:

C:\Users\{User Name}\AppData\Local\{Your Company Name}\{Your Application Name}

这些是当前用户始终可以完全控制的唯一文件夹。

您可以使用以下代码获取此文件夹:

CSIDL_LOCAL_APPDATA = $001C;

function GetAppDataDirectory: AnsiString;
var
   TempBuffer: array[0..MAX_PATH] of AnsiChar;
   ResultLength: Integer;
begin
   FillChar(TempBuffer,((MAX_PATH+1)*SizeOf(AnsiChar)),0);
   ShlObj.SHGetSpecialFolderPathA(0,@TempBuffer,CSIDL_LOCAL_APPDATA,False);
   ResultLength:=StrLen(pAnsiChar(@TempBuffer));
   SetLength(Result,ResultLength);
   Move(TempBuffer[0],pAnsiChar(Result)^,(ResultLength*SizeOf(AnsiChar)));
end;

然后将 {您的公司名称} 和 {您的应用程序名称} 附加到返回的值中。您需要包含 ShlObj 单元。