2023年12月5日发(作者：)

InnoSetup桌面快捷方式具有“以管理员身份运行”,双击运行

双击出现请求的操作需要提示处理方式：

inno setup脚本代码：

[Icons]

Name: “{userdesktop}My Program”; Filename: “{app}”;

AfterInstall: SetElevationBit(’{userdesktop}My ’)

[Code]

procedure SetElevationBit(Filename: string);

var

Buffer: string;

Stream: TStream;

begin

Filename := ExpandConstant(Filename);

Log('Setting elevation bit for ’ + Filename);

Stream := (FileName, fmOpenReadWrite);

try

(21, soFromBeginning);

SetLength(Buffer, 1);

ffer(Buffer, 1);

Buffer[1] := Chr(Ord(Buffer[1]) or $20);

(-1, soFromCurrent);

uffer(Buffer, 1);

finally

;

end;

end;