Цитата:
|
Сообщение от Alegun
Можно немного подсократить, попробуйте так
Код:
with sListView1 do
for i := 0 to Items.Count-1 do
ShellExecute(0, 'open', 'cmd.exe', PChar('/c "' +
ExtractFilePath(paramstr(0)) + 'upx.exe" ' + Items[i].Caption), nil, sw_hide);
З.Ы. Кстати, у нас такой уже лежит в исходниках |
Я не знаю почему , но этот код выполняет действие ShellExecute только на 1 файл в ListBox-е
Можно как то это исправить