我的安装程序应该在开头检查用户是否具有管理员权限但是它似乎不起作用。使用MyProgChecked的两个布尔值,我没有得到提示
function InitializeSetup(): boolean;
var
i: LongInt;
hWnd: LongInt;
IsUpdate: boolean;
bCancel: boolean;
CallName: string;
MyProgChecked: boolean;
begin
MyProgChecked := not (IsAdminLoggedOn or IsPowerUserLoggedOn);
if MyProgChecked = true then
MsgBox( 'Some message....', mbInformation, MB_OK);
for i := 1 to ParamCount do
begin
if uppercase(ParamStr(i)) = '/UPDATE' then
begin
........