[MeKree]

Хочу написать GUI для UPX

Так вот сжим я выполняю через ShellExecute, а файлы лежат в TListView

Как можно сочитать ShellExecute и TListView

Выдает ошибку

Incopatible Tipes 'string' and 'TListView'

Код:

Код:

procedure TForm1.sButton2Click(Sender: TObject);
var
i:integer;
List:TListItem;
begin
   for i:=0 to sListView1.Items.Count-1 do
    List := sListView1.Items[i];
ShellExecute(0,'open','cmd.exe', PChar('/c "' + ExtractFilePath(paramstr(0)) + 'upx.exe" '
+ List), nil, sw_hide);
end;

P.S прошу сильно не пинать

[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);
  

З.Ы. Кстати, у нас такой уже лежит в исходниках

[M.A.D.M.A.N.]

Ну и на кой этой ГУЙ к Упыху?

[MeKree]

Сообщение от 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-е

Можно как то это исправить

[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;

[MeKree]

Сообщение от 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 из строк колонок

В чем же косяк?

[Страдалецъ]

Скобки не поставили:

Код:

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;