Вопрос Запись значения в файл без расширения

[volente]

Как записать значение определения #define MyAppVersion "версия" с удалением предыдущего значения в файл без расширения после успешной установки?

 

[Хамик]

Без самого файла, сложно что-либо подсказать.

 

[volente]

@Хамик, скрин файла под спойлером.

Спойлер

 

[Хамик]

@volente, а если удалить файл и записать строку с помощью savestringtofile? Проканает? Атрибут read only сильно важен?

 

[volente]

@Хамик, я не знаю Pascal. Атрибут Read-only не важен. Достаточно того, что файл сделан системным файлом.

Спойлер

 

[Хамик]

@volente, попробуй так. Путь уже под себя поправь.

Спойлер: Тест1

#define MyAppVersion "0.0.1-beta.3"

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
function SetFileAttributes( lpFileName: String; dwFileAttributes: DWORD ): BOOL; external 'SetFileAttributes{#A}@kernel32.dll stdcall';

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
    //DeleteFile(ExpandConstant('{src}\version'));
    SaveStringToFile(ExpandConstant('{src}\version'), '{#MyAppVersion}', false);
//    SetFileAttributes( ExpandConstant('{src}\version'), FILE_ATTRIBUTE_SYSTEM );
  end;
end;

 

[volente]

@Хамик, это работает. Файл создается, информация записывается. Благодарю!