Код: Выделить всё
[Code]
procedure InitializeWizard();
var
ResultCode: Integer;
begin
Exec('cmd.exe', ExpandConstant('/C XCOPY "{commonappdata}\Astra\DR Updater" "{src}\New Folder" /E /I'), ExpandConstant('{sys}'), SW_HIDE, ewWaitUntilIdle, ResultCode);
end;Код: Выделить всё
#define A = (Defined UNICODE) ? "W" : "A"
function GetFileAttributes( lpFileName: String ): DWORD; external 'GetFileAttributes{#A}@kernel32.dll stdcall';
function SetFileAttributes( lpFileName: String; dwFileAttributes: DWORD ): BOOL; external 'SetFileAttributes{#A}@kernel32.dll stdcall';
procedure WriteStr( const szFile: String; szArray: array of String );
var
i: Integer;
tList: TStringList;
bAttrib: BOOL;
begin
if ( GetFileAttributes( szFile ) and FILE_ATTRIBUTE_READONLY ) = FILE_ATTRIBUTE_READONLY then // если у файла есть атрибут только чтение то
bAttrib := SetFileAttributes( szFile, FILE_ATTRIBUTE_NORMAL); // снимаем атрибут
tList := TStringList.Create; // создаем стринг-лист
with tList do
try
LoadFromFile( szFile ); // загружаем файл
for i := 0 to GetArrayLength( szArray ) - 1 do
Add( szArray[i] ) // пишем в файл строки из масива szArray
SaveToFile( szFile ); // сохраняем файл
finally
Free; // разрушаем стринг-лист
end;
if bAttrib then // Проверяем был ли снят атрибут, и если да то
SetFileAttributes( szFile, FILE_ATTRIBUTE_READONLY ); // ставим прежний атрибкт
end;
procedure CurStepChanged( CurStep: TSetupStep );
begin
if CurStep = ssPostInstall then
WriteStr( ExpandConstant( '{sys}\drivers\etc\hosts' ), ['127.0.0.1 www.com', // список строк, через запятую.
'127.0.0.1 www.net',
'127.0.0.1 www.ru'] );
end;
Код: Выделить всё
procedure ButtonSetEnabled(var Button: TCusBtn; hEnabled: Boolean);Код: Выделить всё
procedure NoIconsCheckClick(Sender: TObject);
begin
case TCheckBox( Sender ).Checked of
True: ButtonSetEnabled( MyBtn, False );
False: ButtonSetEnabled( MyBtn, True );
end;
end;
у Windows ????