[Dodakaedr]

Nordek, а копировать и перемещать как?

[Nordek]

Dodakaedr,

Код:

[Code]
procedure InitializeWizard();
var
  ResultCode: Integer;
begin
  Exec('cmd.exe', ExpandConstant('/C XCOPY {sd}\2 {sd}\1 /E /I'), ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilIdle, ResultCode);
end;

Код:

[Code]
procedure InitializeWizard();
var
  ResultCode: Integer;
begin
  Exec('cmd.exe', ExpandConstant('/C MD {sd}\1 &&  MOVE {sd}\2 {sd}\1'), ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilIdle, ResultCode);
end;

Dodakaedr, Win + R »

Код:

cmd /k help

[kotyarko@fb]

Например? »

Можно использовать SHFileOperation.

[Dodakaedr]

kotyarko@fb, делал как в примере описано не работает. У меня unicode версия.

[saurn]

Назрел вопрос: как в инно удалить из памяти массив строк, типа Ars: array of String? В дельфи можно отправить в Finalize(), а здесь как? Просто привести к "0"?

[Dodakaedr]

Nordek, А если в пути есть пробел, то как быть? Так не копирует.

Код:

[Code]
procedure InitializeWizard();
var
  RCode: Integer;
begin
  Exec('cmd.exe', ExpandConstant('/C XCOPY ""{commonappdata}\Astra\DR Updater"" ""{src}\Data\DR Updater"" /E /I'), ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilIdle, RCode);
end;

[ROMKA-1977]

Подскажите как выполнить кнопкой переход на нужную страницу? В моём случае необходимо выполнить переход кастомной кнопкой с ReadyPage на страницу SelectDirPage, не кликая несколько раз кнопку "Назад".

[Dodakaedr]

Как провести проверку на наличие атрибута "Только чтение" у файла hosts и если оно присутствует то убрать, внести изменения и снова поставить атрибут "Только чтение", а если отсутствует атрибут, то просто внести изменения?

[sergey3695]

Dodakaedr,
http://forum.ru-board.com/topic.cgi?...90&limit=1&m=1
далее сам.

У меня unicode версия. »

для Unicode

Код:

#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif

function GetFileAttributes(lpFileName: string): integer;  
external 'GetFileAttributes{#A}@kernel32.dll stdcall';  
 
function SetFileAttributes(lpFileName: string; dwFileAttributes: integer): integer;  
external 'SetFileAttributes{#A}@kernel32.dll stdcall';

[Dodakaedr]

Вот собрал, все выполняется кроме последнего, атрибут не становится обратно. Хэлп.

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

Код:

#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif

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

[Code]
function GetFileAttributes(lpFileName: string): integer;
external 'GetFileAttributes{#A}@kernel32.dll stdcall';

function SetFileAttributes(lpFileName: string; dwFileAttributes: integer): integer;
external 'SetFileAttributes{#A}@kernel32.dll stdcall';

procedure SetAttr();
var
FileName:string;
begin
FileName:= ExpandConstant('{sys}\drivers\etc\hosts');
if (GetFileAttributes(FileName) and FILE_ATTRIBUTE_NORMAL) = FILE_ATTRIBUTE_NORMAL then
SetFileAttributes(FileName, FILE_ATTRIBUTE_READONLY);
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
   HostFile: TStringList;
   FileName: string;
begin
FileName:= ExpandConstant('{sys}\drivers\etc\hosts');
if (GetFileAttributes(FileName) and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then
SetFileAttributes(FileName, FILE_ATTRIBUTE_NORMAL);
   HostFile := TStringList.Create;
   try
     with HostFile do
     if CurStep = ssPostInstall then
     begin
       LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
       Add('127.0.0.1    tratata.ru');
       SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
     end;
   finally
     HostFile.free;
   end;
  SetAttr;
end;