Genri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
[_Code]
var
str: string;
function InitializeSetup(): Boolean;
begin
str:= #13#10 + '=================' + #13#10 +
'Setup started : ' + GetDateTimeString('dd/mm/yyyy hh:nn:ss', '-', ':');
str:= str + #13#10 + 'Computer/User : ' +
GetComputerNameString + '/' + GetUserNameString;
SaveStringToFile('c:\filename.txt', str, True);
Result:= True;
end;
procedure DeinitializeSetup();
begin
str:= #13#10 + 'Setup finished: ' +
GetDateTimeString('dd/mm/yyyy hh:nn:ss', '-', ':');
SaveStringToFile('c:\filename.txt', str, True);
end;
|
