Цитата:
|
Сообщение от Alegun
Тогда похоже код должен быть примерно такой
Код:
var
i: integer;
s: string;
begin
for i := 0 to sListView1.Items.Count-1 do 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; |
Странно но в применении данный код вообще не работает ни 1 из строк колонок
В чем же косяк?