VASYAKRN
Хоть на русском научись правильно писать!
Хоть на русском научись правильно писать!
DefaultDirName={code:MyConst}\My Program
[no][Code][/no]
function MyConst(Param: String): String;
begin
Result := ExpandConstant('{pf}');
end;
помогите с функцией поиска файла в папках включая подпапки ибо FileSearch ищет только в папке, без вложеных папок
Exec(ExpandConstant('{tmp}\mix.dll'), AddQuotes(AddBackSlash(ExpandConstant('{app}'))+video1)+' '+AddQuotes(AddBackSlash(ExpandConstant('{app}'))+sound)+' '+AddQuotes(AddBackSlash(ExpandConstant('{app}'))+video2)+' '+'/L0 /t'+inttostr(track)+' /R48000 /B16 /C1', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, BinkCode);
[Files]
Source: arc.exe; DestDir: {tmp}; Flags: dontcopy
.....
.....
[_code]
.....
.....
.....
ExtractTemporaryFile('arc.exe')
.....
.....
.....
if not ISExec ( 0, 0, 0, ExpandConstant('{tmp}\arc.exe'), ExpandConstant('x "{src}\Data1.bin" -y -opPASSWORD -dp"{app}"'), ExpandConstant('{tmp}'), '...') then break;
Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177
Предыдущая тема: поиск