
11.07.2013, 00:36
|
 |
Гуру
|
|
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
|
|
Скобки не поставили:
Код:
for i := 0 to sListView1.Items.Count-1
do begin
s:= Format('%s"%s" ',[s,sListView1.Items[i].Caption]);
ShellExecute(0,'open','cmd.exe',PChar('/c "'+ExtractFilePath(paramstr(0))+'upx.exe" '+s),nil,sw_hide);
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
|