[TryRooM]

AlekseyPopovv, Примерно так

Скрытый текст

Код:

procedure CurStepChanged(CurStep: TSetupStep);
  begin
  if  CurStep=ssPostInstall then
    begin
    SaveStringToFile(ExpandConstant('{userdesktop}\Registration.txt'), #13#10 + 'твой номер' + #13#10, True);
    end
  end;