nik1967
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: [Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.
[Code]
type
#ifdef UNICODE
PChar = PAnsiChar;
#endif
function SetFileAttributes(lpFileName: PChar; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributesA@kernel32.dll stdcall';
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then begin
SetFileAttributes(PChar(ExpandConstant('{app}\unins000.dat')), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM);
SetFileAttributes(PChar(ExpandConstant('{app}\unins000.exe')), FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM);
end;
end;
|
|
Всего записей: 1076 | Зарегистр. 11-10-2006 | Отправлено: 10:02 03-02-2016 | Исправлено: nik1967, 11:22 03-02-2016 |
|
