打包收尾时发现一个问题,就是在脚本里 [Setup] 段使用了 Uninstallable=no,为了使卸载彻底不留尾巴,请教如何实现“阅后即焚”的自述文件?
查了帮助文件,有个ExpandConstant方法可用,但实际运行时走到 ExtractTemporaryFiles 就报错找不到 {tmp}\Readme.txt,为何?自述文件GB2312编码,系统环境是Win 7 x32,代码如下:
[Files]
Source: "d:\Readme.txt"; Flags: dontcopy
[Code]
function InitializeSetup: Boolean;
var
S: AnsiString;
begin
// Show the contents of Readme.txt (non Unicode) in a message box
ExtractTemporaryFiles('{tmp}\Readme.txt');
if LoadStringFromFile(ExpandConstant('{tmp}\Readme.txt'), S) then
begin
MsgBox(S, mbInformation, MB_OK);
end;
Result := True;
end;