[Gnom_aka_Lexander]

[Files] Source: {code_GetSpecialPath}\MyProg; DestDir: {code:GetVideoPath}\MyProg »

тут засада. MyProg это файл или папка?
Просто Мое Видео входит в системные файлы папки и система может не дать изменить то, что уже есть. По крайней мере семерка.

[ChVL]

это файл или папка? »

Папка.
Но какой-то выход из положения должен быть. Цель тривиальная: положить туда свою папку.

[Gnom_aka_Lexander]

папка с содержимым? Просто вот так:

Код:

Source: {code_GetSpecialPath}\MyProg; DestDir: {code:GetVideoPath}\MyProg

это будет файл.
А вот так:

Код:

Source: {code_GetSpecialPath}\MyProg\*; DestDir: {code:GetVideoPath}\MyProg

содержимое папки без подпапок. Если нужно создать пустую папку, то лучше использовать секцию [Dirs] а не файлов.

[ChVL]

Gnom_aka_Lexander,
То, что надо положить: папка\папка\файл

[Gnom_aka_Lexander]

Код:

Source: {code_GetSpecialPath}\папка\папка\файл; DestDir: {code:GetVideoPath}\папка\папка

[ChVL]

Gnom_aka_Lexander,
Естественно, обычная запись.

[ChVL]

Кстати, в ХР та же ситуация:



Это подтверждает необходимость уточнять скрипт.

[Gnom_aka_Lexander]

ChVL, тогда вот так:

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={code:GetVideoPath}

[Files]
Source: GetVideoPath.iss; Flags : dontcopy;

[*code]
function SHGetSpecialFolderPath(hwndOwner: HWND; lpszPath: PAnsiChar; nFolder: Integer; fCreate: BOOL): BOOL;
  external 'SHGetSpecialFolderPathA@shell32.dll stdcall';

function GetSpecialPath(CSIDL: Word): string;
var
  s: string;
begin
  SetLength(s, 260);
  if not SHGetSpecialFolderPath(0, PAnsiChar(s), CSIDL, True) then s := '';
  Result:= PAnsiChar(s);
end;

function GetVideoPath(s : string): string;
begin
  Result:= GetSpecialPath($0e);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    ForceDirectories(GetSpecialPath($0e) +'\MyProgName');
    ExtractTemporaryFileEx('GetVideoPath.iss',GetSpecialPath($0e)+'\MyProgName');
  end;
end;

но у меня почему-то распаковывает в папку видео, а не в подпапку MyProgName, которая даже не создается. Видимо, все-таки система запрещает вмешательство, не вижу других причин.

[ChVL]

Вообще-то решение существует. Встречал несколько программ, у которых эта функция реализована. Но до секции [Сode] не добраться...

[El Sanchez]

ChVL, так попробуйте. Если система будет выделываться, уберите флаг CSIDL_FLAG_CREATE.

Код:

[Files]
Source: test.txt; DestDir: {code:GetVideoPath}\test

[code]
const
    MAX_PATH = 260;
    CSIDL_MYVIDEO = $E;
    CSIDL_FLAG_CREATE = $8000;
    SHGFP_TYPE_DEFAULT = $1;

function SHGetFolderPath(hwndOwner: HWND; nFolder: Integer; hToken: THandle; dwFlags: DWORD; pszPath: String): Longint; external 'SHGetFolderPathA@shell32.dll stdcall';

function GetVideoPath(Param: String): String;
begin
    SetLength(Result, MAX_PATH);
    if SHGetFolderPath(0, CSIDL_MYVIDEO or CSIDL_FLAG_CREATE, 0, SHGFP_TYPE_DEFAULT, Result) <> 0 then Result := '';
    Result := CastIntegerToString(CastStringToInteger(Result));
end;