machetos
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
serg_aka_lain
Цитата: Не может быть, всё должно работать . вот пример через
секцию Code |
вот мой код как есть (точ такой как у тебя)
[Setup]
AppName=myprog
AppVerName=myprog
DefaultDirName=C:\myprog
DefaultGroupName=myprog
Compression=lzma
SolidCompression=yes
[Files]
Source: C:\1\myprog.exe; DestDir: "{app}"; Flags: ignoreversion
[Code]
var
ErrorCode: Integer;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
begin
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', #13#10, true);
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', '[.ShellClassInfo]' + #13#10, true);
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', 'IconFile' + '=' + ExpandConstant('{app}') + '\myprog.exe' + #13#10, true);
SaveStringToFile(ExpandConstant('{app}')+'\desktop.ini', 'IconIndex' + '=' + '0' + #13#10, true);
Exec('attrib', ' +s ' + '"' + ExpandConstant('{app}') + '"', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
Exec('attrib', ' +h +s ' + '"' + ExpandConstant('{app}\desktop.ini') + '"', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
end;
end;
Но папка с программой СКРЫТА
разве в строке Exec('attrib', ' +s ' + '"' + ExpandConstant('{app}') + '"', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode) ей не придаётся атрибут системной? Что делать?
Добавлено:
а если убрать атрибуты системной (скрытой), то ini-шник создаётся, скрывается, внутри всё прописано, но папка с прогой всё та же папка, без иконки |
