Nach der Installation soll eine Datei in Abhängigkeit von der Windowsversion in ein Verzeichnis kopiert werden.
Die Datei qf steht im Installationsverzeichnis bereit.
Das Zielverzeichnis zv soll ab Windows-Vista das Verzeichnis
C:\Users\user_name\Appdata\Local\ sein. In älteren Windowsversionen wird die Datei im Programmverzeichnis gespeichert.
[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var qf,zf,zv:string;
Version: TWindowsVersion;
begin
if CurStep = ssPostInstall then begin
GetWindowsVersionEx(Version);
if Version.Major>=6 then
zv:=ExpandConstant('{localappdata}\wnftest\')
else
zv:=ExpandConstant('{app}\');
qf:=ExpandConstant('{src}\einstellungen.dat');
zf:=zv+'kita_fb.liz';
MsgBox(IntToStr(Version.Major)+#13+
qf+#13+zv+#13+zf, mbInformation, MB_OK);
forcedirectories(zv);
FileCopy( qf, zf,FALSE);
end
end;